Frage zu sendkeys mit ascii chars

[bamas101 0]

HEy Leute,

ich hab mal ein afk bot programmiert, is ja auch garnich so schwer, also

My.Computer.Keyboard.SendKeys(Chr(32))

in nen timer packen..

jetzt bin ich auf die idee gekommen dass mein player auch ma was laufen soll^^

ich weiß noch dass ich das früher mal hingekriegt hab, ich hab schon für die 32, die 119 und 87 von der Ascii tabelle eingesetzt, die"W"-TAste wird zwar gedrückt, aber mein Player läuft nich

dann kam ich auf die Idee (weil Leertaste ja klappt) einfach Vorwaärtsbewwegen in den Optionen auf die Leertaste umzustellen, hab ich dann natürlich auch getan, aber mein Spieler läuft tro´tzdem nicht, dasselbe hab ich auch mit den A,s und d tasten gemacht..

Bitte helft mir

[Protex361 0]

HEy Leute,

ich hab mal ein afk bot programmiert, is ja auch garnich so schwer, also

My.Computer.Keyboard.SendKeys(Chr(32))

in nen timer packen..

jetzt bin ich auf die idee gekommen dass mein player auch ma was laufen soll^^

ich weiß noch dass ich das früher mal hingekriegt hab, ich hab schon für die 32, die 119 und 87 von der Ascii tabelle eingesetzt, die"W"-TAste wird zwar gedrückt, aber mein Player läuft nich

dann kam ich auf die Idee (weil Leertaste ja klappt) einfach Vorwaärtsbewwegen in den Optionen auf die Leertaste umzustellen, hab ich dann natürlich auch getan, aber mein Spieler läuft tro´tzdem nicht, dasselbe hab ich auch mit den A,s und d tasten gemacht..

Bitte helft mir

 

Moin, für die Funktion brauchst du keine Asc bzw wird diese anders

behandelt, möchte man ein Tastendruck Simulieren lassen so muss

man diese in { } schreiben, das könnte dann so aussehen:

 

My.Computer.Keyboard.SendKeys("{W}")

 

Alternativ dazu könnte man natürlich auch

 

SendKeys.Send("{w}")

 

Jetzt muss diese Taste dauerhaft gedrückt werden, dafür können

wir das ganze in eine Do Schleife legen was allerdings nicht ganz

Optimal ist da die taste immer und immer wieder gedrückt wird.

Dim KeyPressE As Boolean = True
Public Sub PressKey(ByVal i As Boolean)
Do
My.Computer.Keyboard.SendKeys({W})
Loop Until KeyPressE = False
End Sub

Was ich dir allerdings eher empfehlen würde:

<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", ExactSpelling:=True, SetLastError:=True)> _
Public Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
End Sub

Const KEYEVENTF_KEYUP = &H2
Const VK_W = &H57


keybd_event(VK_W, 0, 0, 0) 'Taste gedrückt
keybd_event(VK_W, 0, KEYEVENTF_KEYUP, 0) 'Taste Losgelassen

Viel erfolg und mfg Protex

Edited September 11, 2015 by Protex361