[vb6] Scatenare eventi...

[ASyd]

Quello che vorrei fare penso che sia abbastanza particolare in vb visto che è un linguaggio in cui le azioni sono scatenate da eventi.

A me serverebbe fare la cosa inversa, ovverro fare un programmino che in automatico simula la pressione di un tasto. Per esempio, preme in continuazione "Z" (o qualsiasi altra lettere) con un determinato delay.

Qualcuno mi sa dire qualcosa?

tnx

[Markho]

scatenare eventi?!?!? sembra un pò catastrofico.....

cmq cè una funzione che simula la pressione del tasto, ma non me la ricordo...... prova a cercare nell'help....

[ASyd]

Originariamente inviato da Markho
scatenare eventi?!?!? sembra un pò catastrofico.....

?????

cmq cè una funzione che simula la pressione del tasto, ma non me la ricordo...... prova a cercare nell'help....

Io conosco keydown keyup e keypress che però intercettano un evento digitato da tastiera...

[sebamix]

Originariamente inviato da ASyd
Quello che vorrei fare penso che sia abbastanza particolare in vb visto che è un linguaggio in cui le azioni sono scatenate da eventi.

A me serverebbe fare la cosa inversa, ovverro fare un programmino che in automatico simula la pressione di un tasto. Per esempio, preme in continuazione "Z" (o qualsiasi altra lettere) con un determinato delay.

Qualcuno mi sa dire qualcosa?

tnx

Tratto da AllAPI (dovrebbe andarti bene).

Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
    'Print the key on the form
    Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    'Clear the form
    Me.Cls
    keybd_event VK_H, 0, 0, 0   ' press H
    keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0   ' release H
    keybd_event VK_E, 0, 0, 0  ' press E
    keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0  ' release E
    keybd_event VK_L, 0, 0, 0  ' press L
    keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0  ' release L
    keybd_event VK_L, 0, 0, 0  ' press L
    keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0  ' release L
    keybd_event VK_O, 0, 0, 0  ' press O
    keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0  ' release O
End Sub