Sign in to follow this  
Followers 0
flip209

Catch Me If you Can

8 posts in this topic

#1 ·  Posted (edited)

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 by flip209

" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites



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


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

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


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

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


code

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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

#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 by ProgAndy

*GERMAN* [note: you are not allowed to remove author / modified info from my UDFs]My UDFs:[_SetImageBinaryToCtrl] [_TaskDialog] [AutoItObject] [Animated GIF (GDI+)] [ClipPut for Image] [FreeImage] [GDI32 UDFs] [GDIPlus Progressbar] [Hotkey-Selector] [Multiline Inputbox] [MySQL without ODBC] [RichEdit UDFs] [SpeechAPI Example] [WinHTTP]UDFs included in AutoIt: FTP_Ex (as FTPEx), _WinAPI_SetLayeredWindowAttributes

Share this post


Link to post
Share on other sites

Fun and funny :)

Share this post


Link to post
Share on other sites

#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


" I haven't failed. I've just found 10,000 ways that won't work." Thomas Edison "You cannot help men permanently by doing for them what they could and should do for themselves." Abraham Lincoln

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0