XProfan

Source wurde am 23.04.2007 in die Babyklappe auf XProfan.Com abgelegt:
Startmenue deaktivieren
Def keybd_event(4) !USER32,keybd_event
Def GetAsyncKeyState(1) !USER32,GetAsyncKeyState
Def W32settimer(4) !USER32.DLL, SetTimer
Def W32killtimer(2) !USER32.DLL, KillTimer
Def &KEYEVENTF_KEYUP  2
Def &VK_ESCAPE  27
Def &VK_LWIN  91
Def &VK_RWIN  92

Proc isstartmenu

    If (GetAsyncKeyState(&VK_LWIN)+1) Or (GetAsyncKeyState(&VK_RWIN)+1)

        keybd_event(&VK_ESCAPE, 0, 0, 0)
        keybd_event(&VK_ESCAPE, 0,&KEYEVENTF_KEYUP, 0)

    Endif

endproc

cls
W32settimer(%Hwnd, 0, 100, Procaddr(isstartmenu, 0))

while 1

    waitinput

endwhile

W32killtimer(%Hwnd,0)