Sendkeys in VB6

[LanteanKnight]

Ik ben een programmaatje aan het schrijven waar ik sendkeys voor wil gebruiken.
Maar ik krijg constant deze fout:
Argument not optional

Weet iemand wat hier fout aan is?

Private Sub CMDbutton_Click()
Dim txtnext As String

SendKeys.Send txtnext
SendKeys.Send ("{ENTER}")
End Sub

 

[That Guy]

De syntax voor SendKeys is als volgt:

function sendKeys(data as string)

er is niet zoiets als een .send functie. Het is zelf al een functie, geen object.

Probeer dit:

sendKeys "{ENTER}"

:thumb:

 

[LanteanKnight]

Hey thanks man, maar hoe zorg ik er nu voor dat het programma als het ware op de achtergrond draait en bij elke keer dat ik op F2 druk (of iets dergelijks) het geplakt wordt in mijn active window?

 

[That Guy]

Met de getAsynckeyState api kan je de ingedrukte key opzoeken. Verder is het je form deactiveren, en dan maar klikken.

ik neem aan dat het voor een spam-iets is? (msn spammer ofzo?)

 

[LanteanKnight]

Nou het is eigenlijk voor m'n zusje
Ze doet mee aan één of andere wedstrijd en moet daarvoor snel typen

Maar ik zal die Ascii dinges eens proberen.
Ik heb al wel iets dergelijks geprobeerd, maar het scheen niet te werken.

Hmm dit werkt ook niet, maar misschien is de rest van het script wel gewoon fout?
------------
Private Sub Form1_KeyPress(KeyAscii As Integer)

If (GetAsyncKeyState(VK_LEFT)) Then

Dim zin1 As String

zin1 = Text1.Text

sendKeys txtnext
sendKeys ("{ENTER}")
End If

End Sub
------------
txtnext is de textbox waar Text1 in verschijnt

Edit: ok dit is erg dom, maar ik heb het nu aangepast en hij doet het nog steeds niet :S
Hij is nu zo:

Dim volg As String
If (GetAsyncKeyState(vbKeyF2)) Then

volg = txtnext.Text

sendKeys volg
sendKeys ("{ENTER}")
End If