[S] Source

[C0RE']

Hallo Leute

Ich suche eine Source, die per PostMessage Keys an ein Programm sendet:

Das Programm fängt die Keys so ab:



Sollte in Visual Basic geschrieben sein.

Preis können wir dann Verhandeln...

[Hourmin2]

Hallo,

Wäre interessiert dies in Vb.net zu meistern. Falls ich dafür ausgewählt werde hier ist mein skype name: matthiassos. MatthiasSkype

Einer von den beiden.

MfG
Matthias

[C0RE']

Suche immer noch

[snow]

Sollte funktionieren, habs nicht getestet.

 Spoiler

Public Class SpamSpam
	Private windowHandle As IntPtr
	
	<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
	Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
	End Function
	
	<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
	Private Shared Function FindWindow( _
     ByVal lpClassName As String, _
     ByVal lpWindowName As String) As IntPtr
	End Function

	Sub New(ByVal title As String)
		windowHandle = FindWindow(IntPtr.Zero, title)
	End Sub
	
	Private Sub PostChar(ByVal c As Char)
		PostMessage(windowHandle, WM_KEYDOWN, c, 0);
		PostMessage(windowHandle, WM_CHAR, c, 0);
		PostMessage(windowHandle, WM_KEYUP, c, 0);
	End Sub

	Public Sub PostString(ByVal message As String)

		For Each c As Char In message
			PostChar(c)
		Next
	End Sub
	
End Class

[C0RE']

Push

Suche immernoch.

[C0RE']

Suche immernoch ...