Maus "sperren"
Verfasst: 22.03.2007 19:58
"Fangen wir mal ne Maus..."
Hier mal'n Witzprogramm, das die Maus sperrt und 'n bisschen damit rumspielt.
In diesem Programm bleiben Taskmanager & Co. noch erreichbar, da es sich ja um ein
Witzprogramm und nicht um ein "User zu Tode nerv"-programm handeln soll.
Daher ist der Code auch sehr kurz:
Hier mal'n Witzprogramm, das die Maus sperrt und 'n bisschen damit rumspielt.
In diesem Programm bleiben Taskmanager & Co. noch erreichbar, da es sich ja um ein
Witzprogramm und nicht um ein "User zu Tode nerv"-programm handeln soll.
Daher ist der Code auch sehr kurz:
Code: Alles auswählen
EnableExplicit
Define.l b,m,a,x,y
b=0
m=1
Repeat
a+2
If a>359
a=0
EndIf
b+m
If b<1
m=1
ElseIf b>200
m=-1
EndIf
x=Int(Sin(#PI/180*a)*b)
y=Int(Cos(#PI/180*a)*b)
SetCursorPos_(GetSystemMetrics_(#SM_CXSCREEN)/2+x,GetSystemMetrics_(#SM_CYSCREEN)/2+y)
Delay(10)
Until GetAsyncKeyState_(#VK_END)