Jump to content

Start Button Fun!


HackerZer0
 Share

Recommended Posts

this will change the start button text to "Ahh!!" when you move the mouse over the start button

Opt('WinTitleMatchMode', 4)
HotKeySet("{ESCAPE}", '_Exit')

_ChangeStartButton()

Func _ChangeStartButton()
While 1
$mpos = MouseGetPos()
If $mpos[0] <= 110 AND $mpos[1] >= 737 Then
ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'Ahh!!')
Else
ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'start')
EndIf
Wend
EndFunc

Func _Exit()
    Exit 0
EndFunc

the text will revert to normal no matter how the script exits...have fun : )

SUBMIT ALL YOUR START MENU / START BUTTON SCRIPTS!!!

Link to comment
Share on other sites

lol just a note, if you close the script, make sure your mouse isn't hovering over the start button or it will stay at "Ahh!!" ;)

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Link to comment
Share on other sites

this will change the start button text to "Ahh!!" when you move the mouse over the start button

Opt('WinTitleMatchMode', 4)
HotKeySet("{ESCAPE}", '_Exit')

_ChangeStartButton()

Func _ChangeStartButton()
While 1
$mpos = MouseGetPos()
If $mpos[0] <= 110 AND $mpos[1] >= 737 Then
ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'Ahh!!')
Else
ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'start')
EndIf
Wend
EndFunc

Func _Exit()
    Exit 0
EndFunc

the text will revert to normal no matter how the script exits...have fun : )

SUBMIT ALL YOUR START MENU / START BUTTON SCRIPTS!!!

it just seems to me that this script and many similar to it with '1' test repeats itself in the loop over and over

however, with a '2nd' test it does not.... hopefully this small scriptlet with explain what your script does and how it could be with a 2nd test

Opt('WinTitleMatchMode', 4)

HotKeySet("{ESCAPE}", '_Exit')

Dim $Test_loop = 1
Dim $change = True
Dim $test_count

If $Test_loop = 1 Then
    
    While 1
        $mpos = MouseGetPos()
        If $mpos[0] <= 110 And $mpos[1] >= 737 Then
            ControlSetText("classname=Shell_TrayWnd", "Notification Area", "Button1", 'Ahh!!')
        Else
            ControlSetText("classname=Shell_TrayWnd", "Notification Area", "Button1", 'start')
            _testcount()
        EndIf
    WEnd

Else

    While 1
        $mpos = MouseGetPos()
        If $mpos[0] <= 110 And $mpos[1] >= 737 Then
            If $change Then
                ControlSetText("classname=Shell_TrayWnd", "Notification Area", "Button1", 'Ahh!!')
                $change = False
            EndIf
        ElseIf Not $change Then
            ControlSetText("classname=Shell_TrayWnd", "Notification Area", "Button1", 'start')
            $change = True
            _testcount()
        EndIf
        Sleep(10)
    WEnd
    
EndIf

Func _testcount()
    $test_count += 1
    ToolTip("count = " & $test_count, 20, 20)
EndFunc   ;==>_testcount

Func _Exit()
    Exit 0
EndFunc   ;==>_Exit

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

mine reverts immediatly... what version of windows do you have? i have XP Home sp2

Very strange, it only has that effect if you are in Scite, and choose Tools ->Stop Executing then move your mouse very fast to the start button. Then it will stay the same.

Strange...

The cake is a lie.www.theguy0000.com is currentlyUP images.theguy0000.com is currentlyUP all other *.theguy0000.com sites are DOWN

Link to comment
Share on other sites

HAHA funness lol

Opt('WinTitleMatchMode', 4)
HotKeySet("{ESCAPE}", '_Exit')

_ChangeStartButton()

Func _ChangeStartButton()
While 1
$mpos = MouseGetPos()
If $mpos[0] <= 40 AND $mpos[1] >= 993 Then
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'EVIL!')
ElseIf $mpos[0] <= 70 AND $mpos[1] >= 993 Then
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'BAD!!')
ElseIf $mpos[0] <= 100 AND $mpos[1] >= 993 Then
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'NO!!!')
Else
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", 'start')
EndIf
Wend
EndFunc

Func _Exit()
    Exit 0
EndFunc

MUHAHAHAHAHA

Link to comment
Share on other sites

Does rjlsoftware have anything new? I haven't checked in a while. I think I'll do just that.

I've been working on rewriting every one of RJL's software programs, so they can be open source, and I've written a couple other new ones, similar in style to RJL's. If you guys are interested, I can send them to you or host them....

Link to comment
Share on other sites

I've been working on rewriting every one of RJL's software programs, so they can be open source, and I've written a couple other new ones, similar in style to RJL's. If you guys are interested, I can send them to you or host them....

put them on a new thread titled "Rebuilding RJL" or somthing like that, post the link/name here...

Link to comment
Share on other sites

Ok, I will post some! ^^;

; Bouncing start button...
Opt ('WinTitleMatchMode', 4);

; Let's move it!
$co = 0;
while (1);
    $co += 0.1;
    controlMove ('classname=Shell_TrayWnd', '', 'Button1', round(sin($co) * 20), 0);
    sleep (20);
wEnd;
Link to comment
Share on other sites

HI

heres a script that will hide the start button but it does not come buck after the script ends ;)

Opt ('WinTitleMatchMode', 4);
HotKeySet("{ESCAPE}", '_Exit')

_Hide()
Func _Hide()
While 1 
$mpos = MouseGetPos()
If $mpos[0] <= 110 AND $mpos[1] >= 737 Then
    ControlHide('classname=Shell_TrayWnd', '', 'Button1')
EndIf
WEnd
EndFunc

Func _Exit()
    Exit 0
EndFunc

some of my scripts check them out and give feedback so i can learn from them :)autoclicker a autoclickernote taker a script to take notes with

Link to comment
Share on other sites

;) the magic of Controlshow

Opt ('WinTitleMatchMode', 4);
HotKeySet("{ESCAPE}", '_Exit')

_Hide()
Func _Hide()
While 1    
$mpos = MouseGetPos()
If $mpos[0] <= 110 AND $mpos[1] >= 737 Then
    ControlHide('classname=Shell_TrayWnd', '', 'Button1')
EndIf
WEnd
EndFunc

Func _Exit()
    Exit 0
EndFunc
Func OnAutoitExit()
    ControlShow('classname=Shell_TrayWnd', '', 'Button1')
EndFunc
Link to comment
Share on other sites

Displays mouse position in start button,

if scrollwheel is pressed, it displays current dec value of color of mouse position, if pressed again it displays hex value of the mouse position, if pressed again it displays "Start" and if pressed again it displays the coords again, and so on and so on...

Opt('WinTitleMatchMode', 4)
HotKeySet("{ESCAPE}", '_Exit')

_ChangeStartButton()

Func _ChangeStartButton()
While 1
    $pos = MouseGetPos()
    ;(2 digit, 3 digit) or (3 digit, 2 digit)
    ;regular font size
    If $pos[0] <=99 Then
        If $pos[1] >=100 Then
            If $pos[1] <=999 then       ;(x<=99, y>=100 and y<=999)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            ElseIf $pos[1] >=1000 then  ;(x<=99, y>=1000)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            EndIf
        ElseIf $pos[1] <=99 Then        ;(x<=99, y<=99)
            ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
        EndIf
        
    ElseIf $pos[0] >=100 Then
        If $pos[1] >=100 Then
            If $pos[1] <=999 then       ;(x>=100, y>=100)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            ElseIf $pos[1] >=1000 then  ;(x>=100, y>=1000)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            EndIf
        ElseIf $pos[1] <=99 Then        ;(x>=100, y<=99)
            ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
        EndIf
        
    ElseIf $pos[0] >=1000 Then
                If $pos[1] >=100 Then
            If $pos[1] <=999 then       ;(x>=1000, y>=100 and y<=999)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            ElseIf $pos[1] >=1000 then  ;(x>=1000, y>=1000)
                ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
            EndIf
        ElseIf $pos[1] <=99 Then        ;(x>=1000, y<=99)
            ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", $pos[0] & "," & $pos[1])
        EndIf
        
    ElseIf _IsPressed("04") Then        ;If scroll wheel is pressed
         _DecStartButton()
    EndIf
Wend
EndFunc
        
Func _DecStartButton()
    $var = PixelGetColor($pos[0], $pos[1])
        ControlSetText("classname=Shell_TrayWnd  ","Notification Area", "Button1", $var)
    If _IsPressed("04") Then        ;If scroll wheel is pressed
        _HexStartButton()
    EndIf
EndFunc
    
Func _HexStartButton()
    $var = PixelGetColor($pos[0] , $pos[1])
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", Hex($var, 6))
    If _IsPressed("04") Then    ;If scroll wheel is pressed
        _Start()
    EndIf
EndFunc

Func _Start()
    ControlSetText("classname=Shell_TrayWnd","Notification Area", "Button1", "Start")
    If _IsPressed("04") Then    ;If scroll wheel is pressed
        _ChangeStartButton()
    EndIf
EndFunc
        
        
        
Func _Exit()
    Exit 0
EndFunc

Two problems:

Problem 1) if coordinates are to high, you cant see full coords, so I divided up the functions in amount of digits, I need a font size changing code to fix this

Problem 2) The Scorllwheel clicked commands arent working? But the script seems right to me???

So this means it only displays coords atm

ANY HELP IS APPRECIATED

Edited by bigassmuffin
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...