title image


Smiley Und noch'n Versuch
Dieses könnte gegen die Windows-taste helfen:





'Sperrt die Windows-Taste für alle Anwendungen (indem ein erneuter Tastendruck darauf simuliert wird)

's. http://www.activevb.de/tipps/vb6tipps/tipp0155.html

Option Explicit



'timer1: enabled=true, interval=20     (je nachdem, wieviel Systemresource du investieren willst, aber nicht schneller!)

     

Private Declare Sub keybd_event Lib "user32" (ByVal _

        bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _

        As Long, ByVal dwExtraInfo As Long)



Private Declare Function GetForegroundWindow Lib "user32" () As Long





Const VK_LWIN = &H5B        'WindowsTaste



Const KEYEVENTF_KEYUP = &H2







Private Sub Form_Load()



End Sub



Private Sub Timer1_Timer()

Static EvilHwnd&

Select Case EvilHwnd

Case 0                                                      'erst mal drücken

    EvilHwnd = -1

    keybd_event VK_LWIN, 0, 0, 0

    keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0

Case -1                                                     'Fensterhandle ermitteln und wieder wegdrücken

    EvilHwnd = GetForegroundWindow

    keybd_event VK_LWIN, 0, 0, 0

    keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0

Case GetForegroundWindow                                    'immer wieder wegdrücken

    keybd_event VK_LWIN, 0, 0, 0

    keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0

End Select

End Sub



 Code eingefügt mit Syntaxhighlighter 1.16

Hoffnung trügt.

(eigentlich dürfte man im Spotlight-VB-Forum keine Fragen stellen, wenn man nicht vorher auf ActiveVB geguckt hat)




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: