ConsultingJoe 1 Posted August 12, 2006 $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 Hide ConsultingJoe's signature Hide all signatures [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] Share this post Link to post Share on other sites
SmOke_N 207 Posted August 12, 2006 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 Hide SmOke_N's signature Hide all signatures 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. Share this post Link to post Share on other sites
nitekram 68 Posted August 12, 2006 Anyone have anthing to change the color or the image? Hide nitekram's signature Hide all signatures 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." 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 2AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDFLearning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming TipsExcel ChangesControlHover.UDFGDI_PlusDraw_On_ScreenGDI BasicsGDI_More_BasicsGDI RotateGDI GraphGDI  CheckExistingItemsGDI TrajectoryReplace $ghGDIPDll with $__g_hGDIPDllDLL 101?Array via ObjectGDI SwimlaneGDI Plus French 101 SiteGDI Examples UEZGDI Basic ClockGDI DetectionTernary operator Share this post Link to post Share on other sites
NELyon 2 Posted August 12, 2006 Wow, i thought you could only do this by modifying a windows system file. Awesome script! Share this post Link to post Share on other sites
WTS 0 Posted August 12, 2006 (edited) 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 August 12, 2006 by WTS Share this post Link to post Share on other sites
Richard Robertson 186 Posted August 12, 2006 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! Share this post Link to post Share on other sites
nitekram 68 Posted August 13, 2006 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. Hide nitekram's signature Hide all signatures 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." 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 2AutoItSetOption | Macros | AutoIt Snippets | Wrapper | Autoit Docs SCITE | SciteJump | BB | MyTopics | Programming | UDFs | AutoIt 123 | UDFs Form | UDFLearning to script | Tutorials | Documentation | IE.AU3 | Games? | FreeSoftware | Path_Online | Core Language Programming TipsExcel ChangesControlHover.UDFGDI_PlusDraw_On_ScreenGDI BasicsGDI_More_BasicsGDI RotateGDI GraphGDI  CheckExistingItemsGDI TrajectoryReplace $ghGDIPDll with $__g_hGDIPDllDLL 101?Array via ObjectGDI SwimlaneGDI Plus French 101 SiteGDI Examples UEZGDI Basic ClockGDI DetectionTernary operator Share this post Link to post Share on other sites
JavaScript_Freek 1 Posted August 13, 2006 Omg my start button i cant get to it XD Hide JavaScript_Freek's signature Hide all signatures [center]Cookyx.com :: Simple LAN Chat[/center] Share this post Link to post Share on other sites
ConsultingJoe 1 Posted August 13, 2006 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 Hide ConsultingJoe's signature Hide all signatures [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] Share this post Link to post Share on other sites
SmOke_N 207 Posted August 13, 2006 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 Hide SmOke_N's signature Hide all signatures 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. Share this post Link to post Share on other sites
rbhkamal 0 Posted August 13, 2006 (edited) 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 August 13, 2006 by rbhkamal Hide rbhkamal's signature Hide all signatures "When the power of love overcomes the love of power, the world will know peace"-Jimi Hendrix Share this post Link to post Share on other sites
ConsultingJoe 1 Posted August 13, 2006 I kinda got scared too for a sec, my start button wouldnt come back after running an other script, lol Hide ConsultingJoe's signature Hide all signatures [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] Share this post Link to post Share on other sites
ConsultingJoe 1 Posted August 13, 2006 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 Hide ConsultingJoe's signature Hide all signatures [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] Share this post Link to post Share on other sites
dandymcgee 0 Posted August 13, 2006 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 Hide dandymcgee's signature Hide all signatures - Dan [Website] Share this post Link to post Share on other sites
Richard Robertson 186 Posted August 13, 2006 It's based on a program I saw years ago that did exactly the same thing. I hope you users saw the ESC hotkey? It will reset the position and close. Share this post Link to post Share on other sites
dandymcgee 0 Posted August 14, 2006 Yeah, I actaully downloaded that program from some prank website, its called Avoid. I had made a fairly small effort to remake it in AutoIt, but failed. I think it's really great how old programs can be revived and rebuilt in AutoIt. Hide dandymcgee's signature Hide all signatures - Dan [Website] Share this post Link to post Share on other sites
Richard Robertson 186 Posted August 14, 2006 I like how new programs can be improved through AutoIt. Microsoft Word, phht. I use AutoWordIt! XD Share this post Link to post Share on other sites
james3mg 1 Posted August 14, 2006 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 Hide james3mg's signature Hide all signatures "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 Share this post Link to post Share on other sites
marfdaman 0 Posted August 14, 2006 Haha, I like this so much I've actually put it in my startup folder expandcollapse popup#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 Hide marfdaman's signature Hide all signatures Don't take my pic to serious...~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~You Looked, but you did not see!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Share this post Link to post Share on other sites
Angelos 0 Posted August 14, 2006 I get the the error attached (screenshot) when trying to run IceBirky's runaway start button. I just copy/pasted this. Why is this happening? Share this post Link to post Share on other sites
