title image


Smiley Beispiel inside (keybd_event)
Zum Test Brauchst du eine Form mit einem Command1 Button.



Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_EXTENDEDKEY = &H1

Const KEYEVENTF_KEYUP = &H2

Dim sKey As KeyCodeConstants



Private Sub Command1_Click()

sKey = vbKeyEscape

keybd_event sKey, 0, 0, 0 ' press ESC

keybd_event sKey, 0, KEYEVENTF_KEYUP, 0 ' release ESC

End Sub



Im Beispiel wird das drücken der "ESC" Taste simuliert.

Um Andere Tasten zu senden sKey ersetzen.

Handylogos,SMS(bis 640 Zeichen),Flash SMS,Bildmitteilungen,Bildschirmschoner erstellen,bearbeiten und senden.
NokiGrafix







geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: