Jump to content

I was bored: msg on the start button


ConsultingJoe
 Share

Recommended Posts

$msg = "Auto it is cool"
$msg = StringSplit( $msg, " " )
ControlSetText( "","Notification Area", "Button1", "" )
While 1
    For $i = 1 To $msg[0]
        ControlSetText( "","Notification Area", "Button1", $msg[$i] )
    Sleep(700)
Next
Sleep(1000)
WEnd

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

  • Moderators

I was bored too, this does it only on a mouse over (even put in my startup folder lol)

#NoTrayIcon
Opt('WinTitleMatchMode', 4)
HotKeySet('^!k', '_ExitNow');ctrl+alt+k to stop it
Global $msg = StringSplit("Ackk!! Don't Click Me!!", " " )

AdlibEnable('_ChangeStartMenu', 10)
While 1
    Sleep(100000)
WEnd

Func _ChangeStartMenu()
    Local $aWPos = WinGetPos("classname=Shell_TrayWnd")
    Local $aMpos = MouseGetPos()
    Local $aCpos = ControlGetPos("classname=Shell_TrayWnd","Notification Area", "Button1")
    If IsArray($aMpos) And IsArray($aCpos) And _
        $aMpos[0] >= $aWpos[0] And $aMpos[0] <= $aWpos[0] + $aCpos[2] And _
        $aMpos[1] >= $aWpos[1] And $aMpos[1] <= $aWpos[1] + $aCpos[2] Then
        For $i = 1 To $msg[0]
            ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $msg[$i])
            Sleep(100)
        Next
    EndIf
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'Start')
EndFunc

Func _ExitNow()
    Exit 0
EndFunc

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

Anyone have anthing to change the color or the image?

2¢

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Link to comment
Share on other sites

i saw something that did the same thing which gave me an idea heres a gui.

#include <GUIConstants.au3>
$Default = ControlgetText( "","Notification Area", "Button1")
$Form1 = GUICreate("StartMenu Changer", 321, 143, 192, 125)
$Input1 = GUICtrlCreateInput("End", 27, 44, 189, 21, -1, $WS_EX_CLIENTEDGE)
$Set = GUICtrlCreateButton("Set startmenu text", 27, 73, 113, 26)
GUICtrlCreateLabel("Change Start Menu text", 26, 15, 116, 17)
$Reset = GUICtrlCreateButton("Reset", 229, 72, 78, 26)
$Random = GUICtrlCreateButton("Random", 147, 73, 78, 26)
$RandomText = StringSplit('Dont,OMG!,WTF,End,Hot,Cool,tarts',',')
GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Set
        ControlSetText( "","Notification Area", "Button1", GUICtrlRead($Input1))
    Case $msg = $Reset
        ControlSetText( "","Notification Area", "Button1", $Default)
    Case $msg = $Random 
        ControlSetText( "","Notification Area", "Button1", $RandomText[Random(1,UBound($RandomText) -1)])
    Case Else
;;;;;;;
    EndSelect
WEnd
Exit
Edited by WTS
Link to comment
Share on other sites

Now this is a script for not being able to click the Start button.

Opt("WinTitleMatchMode", 4)

HotKeySet("{ESC}", "Quit")
Global $Quiting = False, $OriginalPos = ControlGetPos("classname=Shell_TrayWnd", "", "Button1")

While Not $Quiting
    If PointInRect(MouseGetPos(), ControlGetPos("classname=Shell_TrayWnd", "", "Button1")) Then
        ControlMove("classname=Shell_TrayWnd", "", "Button1", Random(0, @DesktopWidth - $OriginalPos[2], 1), Default)
    EndIf
WEnd

ControlMove("classname=Shell_TrayWnd", "", "Button1", $OriginalPos[0], Default)

Func Quit()
    $Quiting = True
EndFunc

Func PointInRect($p, $s)
    Local $dif = WinGetPos("classname=Shell_TrayWnd")
    $dif = $dif[1]
    Return ($p[0] >= $s[0]) And ($p[0] <= $s[0] + $s[2]) And ($p[1] - $dif >= $s[1]) And ($p[1] - $dif <= $s[1] + $s[3])
EndFunc

Runaway Start button!

Link to comment
Share on other sites

Now this is a script for not being able to click the Start button.

Opt("WinTitleMatchMode", 4)

HotKeySet("{ESC}", "Quit")
Global $Quiting = False, $OriginalPos = ControlGetPos("classname=Shell_TrayWnd", "", "Button1")

While Not $Quiting
    If PointInRect(MouseGetPos(), ControlGetPos("classname=Shell_TrayWnd", "", "Button1")) Then
        ControlMove("classname=Shell_TrayWnd", "", "Button1", Random(0, @DesktopWidth - $OriginalPos[2], 1), Default)
    EndIf
WEnd

ControlMove("classname=Shell_TrayWnd", "", "Button1", $OriginalPos[0], Default)

Func Quit()
    $Quiting = True
EndFunc

Func PointInRect($p, $s)
    Local $dif = WinGetPos("classname=Shell_TrayWnd")
    $dif = $dif[1]
    Return ($p[0] >= $s[0]) And ($p[0] <= $s[0] + $s[2]) And ($p[1] - $dif >= $s[1]) And ($p[1] - $dif <= $s[1] + $s[3])
EndFunc

Runaway Start button!

Thats cool - yet the processor is maxed.

2¢

All by me:

"Sometimes you have to go back to where you started, to get to where you want to go." 

"Everybody catches up with everyone, eventually" 

"As you teach others, you are really teaching yourself."

From my dad

"Do not worry about yesterday, as the only thing that you can control is tomorrow."

 

WindowsError.gif

WIKI | Tabs; | Arrays; | Strings | Wiki Arrays | How to ask a Question | Forum Search | FAQ | Tutorials | Original FAQ | ONLINE HELP | UDF's Wiki | AutoIt PDF

AutoIt Snippets | Multple Guis | Interrupting a running function | Another Send

StringRegExp | StringRegExp Help | RegEXTester | REG TUTOR | Reg TUTOT 2

AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit  Docs

SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDF

Learning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language

Programming Tips

Excel Changes

ControlHover.UDF

GDI_Plus

Draw_On_Screen

GDI Basics

GDI_More_Basics

GDI Rotate

GDI Graph

GDI  CheckExistingItems

GDI Trajectory

Replace $ghGDIPDll with $__g_hGDIPDll

DLL 101?

Array via Object

GDI Swimlane

GDI Plus French 101 Site

GDI Examples UEZ

GDI Basic Clock

GDI Detection

Ternary operator

Link to comment
Share on other sites

Now this is a script for not being able to click the Start button.

Opt("WinTitleMatchMode", 4)

HotKeySet("{ESC}", "Quit")
Global $Quiting = False, $OriginalPos = ControlGetPos("classname=Shell_TrayWnd", "", "Button1")

While Not $Quiting
    If PointInRect(MouseGetPos(), ControlGetPos("classname=Shell_TrayWnd", "", "Button1")) Then
        ControlMove("classname=Shell_TrayWnd", "", "Button1", Random(0, @DesktopWidth - $OriginalPos[2], 1), Default)
    EndIf
WEnd

ControlMove("classname=Shell_TrayWnd", "", "Button1", $OriginalPos[0], Default)

Func Quit()
    $Quiting = True
EndFunc

Func PointInRect($p, $s)
    Local $dif = WinGetPos("classname=Shell_TrayWnd")
    $dif = $dif[1]
    Return ($p[0] >= $s[0]) And ($p[0] <= $s[0] + $s[2]) And ($p[1] - $dif >= $s[1]) And ($p[1] - $dif <= $s[1] + $s[3])
EndFunc

Runaway Start button!

WOW, very creative

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

  • Moderators

Thats cool - yet the processor is maxed.

This takes care of the maxing:
Opt("WinTitleMatchMode", 4)

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

AdlibEnable('_StartStartEscape', 10)

Global $Quiting, $OriginalPos = ControlGetPos("classname=Shell_TrayWnd", "", "Button1")

While 1
    Sleep(10000)
WEnd

Func _StartStartEscape()
    While Not $Quiting
        If PointInRect(MouseGetPos(), ControlGetPos("classname=Shell_TrayWnd", "", "Button1")) And _
            ControlCommand("classname=Shell_TrayWnd", "", "Button1", 'Isvisible', '') Then
            ;ControlHide("classname=Shell_TrayWnd", "", "Button1")
            ControlMove("classname=Shell_TrayWnd", "", "Button1", Random(0, @DesktopWidth - $OriginalPos[2], 1), Default)
            Sleep(10)
        EndIf
        Sleep(10)
    WEnd
    ;ControlShow("classname=Shell_TrayWnd", "", "Button1")
    ControlMove("classname=Shell_TrayWnd", "", "Button1", $OriginalPos[0], Default)
EndFunc

Func Quit()
    $Quiting = Not $Quiting
EndFunc

Func PointInRect($p, $s)
    Local $dif = WinGetPos("classname=Shell_TrayWnd")
    $dif = $dif[1]
    Return ($p[0] >= $s[0]) And ($p[0] <= $s[0] + $s[2]) And ($p[1] - $dif >= $s[1]) And ($p[1] - $dif <= $s[1] + $s[3])
EndFunc

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

By misstake I ran your script while zerocool60544's script was still runnning.

I was scared for a second.

Now this is a script for not being able to click the Start button.

Opt("WinTitleMatchMode", 4)

HotKeySet("{ESC}", "Quit")
Global $Quiting = False, $OriginalPos = ControlGetPos("classname=Shell_TrayWnd", "", "Button1")

While Not $Quiting
    If PointInRect(MouseGetPos(), ControlGetPos("classname=Shell_TrayWnd", "", "Button1")) Then
        ControlMove("classname=Shell_TrayWnd", "", "Button1", Random(0, @DesktopWidth - $OriginalPos[2], 1), Default)
    EndIf
WEnd

ControlMove("classname=Shell_TrayWnd", "", "Button1", $OriginalPos[0], Default)

Func Quit()
    $Quiting = True
EndFunc

Func PointInRect($p, $s)
    Local $dif = WinGetPos("classname=Shell_TrayWnd")
    $dif = $dif[1]
    Return ($p[0] >= $s[0]) And ($p[0] <= $s[0] + $s[2]) And ($p[1] - $dif >= $s[1]) And ($p[1] - $dif <= $s[1] + $s[3])
EndFunc

Runaway Start button!

Edited by rbhkamal

"When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix

Link to comment
Share on other sites

I kinda got scared too for a sec, my start button wouldnt come back after running an other script, lol

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

Opt("WinTitleMatchMode", 4)
While 1
    ControlHide( "classname=Shell_TrayWnd", "", "Button1" )
    Sleep(200)
    ControlHide( "classname=Shell_TrayWnd", "", "ToolbarWindow324" )
    Sleep(200)
    ControlHide( "classname=Shell_TrayWnd", "", "ToolbarWindow323" )
    Sleep(200)
    ControlHide( "classname=Shell_TrayWnd", "", "Button2" )
    Sleep(200)
    ControlHide( "classname=Shell_TrayWnd", "", "ToolbarWindow321" )
    Sleep(200)
    ControlHide( "classname=Shell_TrayWnd", "", "TrayClockWClass1" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "Button1" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow324" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow323" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "Button2" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow321" )
    Sleep(200)
    ControlShow( "classname=Shell_TrayWnd", "", "TrayClockWClass1" )
    Sleep(200)
WEnd

Func onautoitexit()
    ControlShow( "classname=Shell_TrayWnd", "", "Button1" )
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow324" )
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow323" )
    ControlShow( "classname=Shell_TrayWnd", "", "Button2" )
    ControlShow( "classname=Shell_TrayWnd", "", "ToolbarWindow321" )
    ControlShow( "classname=Shell_TrayWnd", "", "TrayClockWClass1" )
EndFunc

[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Link to comment
Share on other sites

wow that start button running away thing is really kool, but its not like you still can't get to start. I just had to hit the windows key and "pop" there was my start menu. Although it did look kinda wierd having my start menu pop up on the right side of the screen... Nice work

- Dan [Website]

Link to comment
Share on other sites

Here's another one...marquee style: There's two methods, comment out the #cs and #ce on either end of method one to see the alternate. Use the tray icon to end this script:

$msg = "Auto it is cool!"
ControlSetText( "","Notification Area", "Button1", "" )


#cs
;Method 1
$msg ="       " & $msg
While 1
    For $i = 1 To StringLen($msg)
        ControlSetText( "","Notification Area", "Button1", StringRight($msg,StringLen($msg)-$i))
    Sleep(500)
Next
WEnd
;End Method 1
#ce


;#cs
;Method 2
$msg ="    " & $msg
While 1
    For $i = 1 To StringLen($msg)
        ControlSetText( "","Notification Area", "Button1", StringMid($msg,$i,5))
    Sleep(500)
Next
WEnd
;End Method 2
;#ce
"There are 10 types of people in this world - those who can read binary, and those who can't.""We've heard that a million monkeys at a million keyboards could produce the complete works of Shakespeare; now, thanks to the Internet, we know that is not true." ~Robert Wilensky0101101 1001010 1100001 1101101 1100101 1110011 0110011 1001101 10001110000101 0000111 0001000 0001110 0001101 0010010 1010110 0100001 1101110
Link to comment
Share on other sites

Haha, I like this so much I've actually put it in my startup folder :whistle:

#NoTrayIcon
#include <File.au3>

HotKeySet("^!q", "_Exit")

Opt("WinTitleMatchMode", 4)
AdlibEnable("_ReduceMemory", 30000)

ProcessSetPriority(@AutoItPID, 0)

$message = StringSplit("A.  l.   z.     o.       !.Alzo!", ".")
$funcs = StringSplit("_LetterByLetter _Flash _TwoSides _SlideRight _SlideLeft _Invert _Matrix _Abc _OneLiner _Guess", " ")
$File_OneLiner = @MyDocumentsDir & "\Startmenu Enhancer.txt"

While 1
    Call($funcs[Random(1, UBound($funcs)-1, 1)])
;~  Call($funcs[10])
    Sleep(Random(1000, 10000, 1))
WEnd

Func _Exit()
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Start")
    Exit
EndFunc

Func _LetterByLetter()
    For $i = 1 To UBound($message)-1
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", $message[$i])
        Sleep(1000)
    Next
EndFunc

Func _Flash()
    For $i = 1 To 10
        If IsInt($i/2) Then
            ControlSetText("classname=Shell_TrayWnd", "", "Button1", "")
        Else
            ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
        EndIf
        Sleep(500)
    Next
EndFunc

Func _TwoSides()
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "A     !")
    Sleep(1000)
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Al  o!")
    Sleep(1000)
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
    Sleep(1000)
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "   z   ")
    Sleep(1000)
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "  lzo")
    Sleep(1000)
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
    Sleep(1000)
EndFunc

Func _SlideRight()
    For $i = 1 To 2
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "o!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "zo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "lzo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", " Alzo")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "  Alz")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "    Al")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "      A")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "")
        Sleep(250)
    Next
EndFunc

Func _SlideLeft()
    For $i = 1 To 2
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "      A")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "    Al")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "  Alz")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", " Alzo")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "lzo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "zo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "o!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "")
        Sleep(250)
    Next
EndFunc

Func _ReduceMemory()
    Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', @AutoItPID)
    DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
EndFunc

Func _Invert()
    For $i = 1 To 2
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "  lzo")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "   z")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", " ozl")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "!ozlA")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", " ozl")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "   z")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "  lzo")
        Sleep(250)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
        Sleep(250)
    Next
EndFunc

Func _Matrix()
    For $i = 1 To 150
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", Random(0, 999, 1))
        Sleep(30)
    Next
EndFunc

Func _Abc()
    For $i = 1 To 150
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", Chr(Random(32, 127, 1)) & Chr(Random(32, 127, 1)) & Chr(Random(32, 127, 1)) & Chr(Random(32, 127, 1)))
        Sleep(50)
    Next
EndFunc

Func _OneLiner()
    Local $Count = _FileCountLines($File_OneLiner), $Line = "      " & FileReadLine($File_OneLiner, Random(1, $Count, 1))
    For $i = 0 To StringLen($Line)
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", StringLeft($Line, 4))
        $Line = StringTrimLeft($Line, 1)
        Sleep(175)
    Next
EndFunc

Func _Guess()
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "")
    For $i = 1 To 75
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", Chr(Random(0, 255, 1)))
        Sleep(5)
    Next
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "A")
    For $i = 1 To 75
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "A" & Chr(Random(0, 255, 1)))
        Sleep(5)
    Next
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Al")
    For $i = 1 To 75
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Al" & Chr(Random(0, 255, 1)))
        Sleep(5)
    Next
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alz")
    For $i = 1 To 75
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alz" & Chr(Random(0, 255, 1)))
        Sleep(5)
    Next
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo")
    For $i = 1 To 75
        ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo" & Chr(Random(0, 255, 1)))
        Sleep(5)
    Next
    ControlSetText("classname=Shell_TrayWnd", "", "Button1", "Alzo!")
EndFunc

Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...