Maus "sperren"

[Olaf]

"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:

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)