I was bored: msg on the start button

[ConsultingJoe]

$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

[SmOke_N]

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

[nitekram]

Anyone have anthing to change the color or the image?

[NELyon]

Wow, i thought you could only do this by modifying a windows system file. Awesome script!

[WTS]

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

[Richard Robertson]

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!

[nitekram]

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.

[JavaScript_Freek]

Omg my start button i cant get to it XD

[ConsultingJoe]

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

[SmOke_N]

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

[rbhkamal]

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

[ConsultingJoe]

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

[ConsultingJoe]

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

[dandymcgee]

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

[Richard Robertson]

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.

[dandymcgee]

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.

[Richard Robertson]

I like how new programs can be improved through AutoIt.

Microsoft Word, phht. I use AutoWordIt! XD

[james3mg]

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

[marfdaman]

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

[Angelos]

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?