| |
|
|
| Prüfen ob Workstation gesperrt ist von Ragnar Rehbein. KompilierenMarkierenSeparierendef opendesktop(4) ! "USER32","OpenDesktopA"
def closedesktop(1) ! "USER32","CloseDesktop"
def getlasterror(0) ! "KERNEL32","GetLastError"
cls
settimer 1000
declare desk$, deskhandle&, lasterr&
desk$ = "default"
while 1
deskhandle& = opendesktop(addr(desk$),0,0,0)
lasterr& = getlasterror()
print "deskhandle : ",deskhandle&," lasterr : ",lasterr&
case lasterr& = 5 : print "Desktop gesperrt"
closedesktop(deskhandle&)
waitinput
endwhile
Salve, iF. |
|
|
| |
|
|