Il programma consiste in un pulsante che si sposta sullo schermo e non si fa prendere, ogni volta che tentate di prenderlo cambia posizione
CODICE
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
HotKeySet("!{TAB}", "non_si_bara")
$n1 = Random(100,(@DesktopHeight-100),1)
$n = Random(200,(@DesktopWidth-200),1)
$Form1 = GUICreate("gabry9191", 138, 26, $n, $n1,$WS_POPUP,$WS_EX_TOOLWINDOW)
$Button1 = GUICtrlCreateButton("Click Me", 0, 0, 137, 25, $WS_GROUP)
GUISetState()
While 1
Sleep(100)
$posizione = MouseGetPos()
if ($posizione[0] < ($n+200) And $posizione[0] > $n) and ($posizione[1] < ($n1+100) And $posizione[1] > $n1) Then
$n1 = Random(100,(@DesktopHeight-100),1)
$n = Random(200,(@DesktopWidth-200),1)
_guichangeposition($Form1,138, 26, $n, $n1)
EndIf
$nMsg = GUIGetMsg()
WEnd
func non_si_bara()
MsgBox(48,"ClickMe - gabry9191","Non Si Bara!")
EndFunc
func _guichangeposition($GuiName,$GuiW,$GuiH,$X,$Y)
GUIDelete($GuiName)
$Form1 = GUICreate($GuiName,$GuiW,$GuiH,$X,$Y,$WS_POPUP,$WS_EX_TOOLWINDOW)
$Button1 = GUICtrlCreateButton("Click Me", 0, 0, 137, 25, $WS_GROUP)
GUISetState()
EndFunc