Visual Basic Forum

Daywalker · Tutorial Leser Anmeldedatum: 14.06.2008 Beiträge: 56

also meine frage ist wie kann ich sowas machen das ich z.b. schad immer Commandant bottend immer zu drücken f4 drücke und das gleich dabei raus kommt
also sowas änliches wie ein trainer
ich danke jden der mir hilft

igoe · Gast

Zuallererst mal http://www.duden.de/ , sry

Und wie meinst du das mit dem Drücken, willst du einen Button auf
deiner Form Drücken oder auf irgendein anderen Programm?

Edit: Ich denke mal das du einen Button auf einem anderen Programm
Drücken willst, wenn du es so meinst, dann wirst du dich wohl mit
HWND auseinandersetzen müssen.

Mfg Igoe

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

er meint warscheinlich SystemWeites Tastendruckaufnehmteil , dass wenn F4 gedrückt wird, ein Befehl ausgeübt wird.

So dafür brauchste GetAsyncKey (hoffe hab richtig geschrieben Very Happy

)

mfg

igoe · Gast

Achso, jetzt weis ich was er meint ^^

Hier:
Visual Basic: [code]Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyF6) Then
MsgBox "strg + f6"
End If[/code]

Mfg Igoe

Daywalker · Tutorial Leser Anmeldedatum: 14.06.2008 Beiträge: 56

irgentwie funkt das net ihr meint das richtige aber es funkt halt net

igoe · Gast

Sorry, ich habe vergessen zu sagen, das du das in den Timer tuhen sollst.
Den Timer stellst du am Besten auf Timer1.Interval="100"

Visual Basic: [code]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyF6) Then
MsgBox "strg + f6"
End If
End Sub
[/code]

Daywalker · Tutorial Leser Anmeldedatum: 14.06.2008 Beiträge: 56

ja danke nur wie will ich das mache wenn cih das mehrere male hintereinander also mal f1 f2 usw drücken will???

igoe · Gast

Dann machst du das einfach so

Visual Basic: [code]Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) And GetAsyncKeyState(vbKeyF2) Then
MsgBox "F1 + F2"
End If
End Sub[/code]

Und wenn du noch mehr F Tasten Habe möchtest machste einfach immer ein dran z.B.

Visual Basic: [code]Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) And GetAsyncKeyState(vbKeyF2) And GetAsyncKeyState(vbKeyF3) Then
MsgBox "F1 + F2 + F3"
End If
End Sub
[/code]

Ich hoffe ich konnte die Helfen

Daywalker · Tutorial Leser Anmeldedatum: 14.06.2008 Beiträge: 56

aber irgentwie funkt das trotzdem net ich ahb das bei gta sa versucht aber ne???°^^

kannst du mir nicht vll wenn du zeit hats ne source schicken oder auf RS rauf machen

igoe · Gast

Add mich mal in ICQ 549693

r4z3r · Poster Anmeldedatum: 16.04.2008 Beiträge: 173

1.

9. Rechtschreibung
Achtet auf eure Rechtschreibung. Es gibt nichts schlimmeres als Fragen, die man nach dem 5 mal durchlesen immernoch nicht verstanden hat. Auffällige User können mit einer Verwarnung bestraft werden.