Catch Me If you Can

[flip209]

Try to click on the tooltip

CODE

HotKeySet("{ESC}", "_Exit")

Global $ranx

Global $rany

Func _Exit()

Exit

EndFunc ;==>_Exit

_rantool()

While 1

$mouse = MouseGetPos()

If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 160 Then

_rantool()

Beep(2100, 100)

EndIf

Sleep(100)

WEnd

Func _rantool()

$ranx = Random(0, @DesktopWidth - 200, 1)

$rany = Random(0, @DesktopHeight - 200, 1)

ToolTip("test", $ranx, $rany, "Click here to get rid of me", 3)

EndFunc ;==>_rantool

Edited April 26, 2008 by flip209

[AdmiralAlkex]

Ofcourse you cant win if there isn't any way to win!

[flip209]

Lol I just did it to my boss it is freakin funny...

[flip209]

Updated:

CODE

HotKeySet("{ESC}", "_Exit")

Global $ranx

Global $rany

Func _Exit()

Exit

EndFunc ;==>_Exit

_rantool()

While 1

$mouse = MouseGetPos()

If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 160 Then

_rantool()

Beep(2100, 150)

EndIf

Sleep(10)

WEnd

Func _rantool()

$ranx = Random(0, @DesktopWidth - 200, 1)

$rany = Random(0, @DesktopHeight - 200, 1)

ToolTip("Click me Trick me", $ranx, $rany, "Click here to get rid of me", 3)

EndFunc ;==>_rantool

Moves a little fast and beep is longer

[DexterMorgan]

Updated:

CODE

HotKeySet("{ESC}", "_Exit")

Global $ranx

Global $rany

Func _Exit()

Exit

EndFunc ;==>_Exit

_rantool()

While 1

$mouse = MouseGetPos()

If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 160 Then

_rantool()

Beep(2100, 150)

EndIf

Sleep(10)

WEnd

Func _rantool()

$ranx = Random(0, @DesktopWidth - 200, 1)

$rany = Random(0, @DesktopHeight - 200, 1)

ToolTip("Click me Trick me", $ranx, $rany, "Click here to get rid of me", 3)

EndFunc ;==>_rantool

Moves a little fast and beep is longer

Hehe. This is crazy. I love it...

I'm going to out this on my brothers computer

[ProgAndy]

This one' a bit improved (Better Hotkey , Close if Hotkey Pressed + Move mouse on Tip with MouseLeft held down )

#NoTrayIcon
#include <Misc.au3>
HotKeySet("#!^{ESC}", "_Exit")

Global $ranx
Global $rany
$NoExit = True
Func _Exit()
$NoExit = False
EndFunc ;==>_Exit

_rantool()
While 1
$mouse = MouseGetPos()
If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 160 Then
_rantool()
If Not $NoExit Then 
    If _IsPressed("01") Then Exit
EndIf
Beep(2100, 150)
EndIf

Sleep(10)
WEnd

Func _rantool()
    Do 
        $ranx = Random(0, @DesktopWidth - 200, 1)
    Until Abs(MouseGetPos(0)-$ranx) > 100
    Do
        $rany = Random(0, @DesktopHeight - 200, 1)
    Until Abs(MouseGetPos(0)-$rany) > 100
ToolTip("Click me Trick me", $ranx, $rany, "Click here to get rid of me", 3)
EndFunc ;==>_rantool

Edited April 26, 2008 by ProgAndy

[devilboy1324]

Fun and funny

[flip209]

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("TrayIconHide", 1)
HotKeySet("{End}", "_Exit")

Global $ranx
Global $rany
Global $reversewide = Random(0, 1, 1)
Global $reverseHieght = Random(0, 1, 1)

Func _Exit()
    Exit
EndFunc   ;==>_Exit

_rantool()
While 1
    $mouse = MouseGetPos()
    If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 90 Then
        _rantool()
        Beep(2100, 100)
    EndIf

    Sleep(10)
    
    If $ranx > @DesktopWidth - 200 Then $reversewide = 1
    If $ranx < 0 Then $reversewide = 0
    
    If $rany > @DesktopHeight - 55 Then $reverseHieght = 1
    If $rany < 0 Then $reverseHieght = 0
    
    If $reversewide = 1 Then $ranx -= 1
    If $reversewide = 0 Then $ranx += 1

    If $reverseHieght = 1 Then $rany -= 1
    If $reverseHieght = 0 Then $rany += 1
    
    ToolTip("You can not Click on me", $ranx, $rany, "Click here to get rid of me", 3)
WEnd

Func _rantool()
    $ranx = Random(0, @DesktopWidth - 200, 1)
    $rany = Random(0, @DesktopHeight - 200, 1)
    ToolTip("You can not Click on me", $ranx, $rany, "Click here to get rid of me", 3)
    $reverseHieght = Random(0, 1, 1)
    $reversewide = Random(0, 1, 1)
EndFunc   ;==>_rantool

Update code