HackerZer0 Posted November 28, 2006 Share Posted November 28, 2006 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!!! Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
NELyon Posted November 28, 2006 Share Posted November 28, 2006 *cough* *cough* Was this script ripped off of CyberZeroCool's thread he started a while ago? Smoke posted something EXTREMELY similar to this. Link to comment Share on other sites More sharing options...
HackerZer0 Posted November 28, 2006 Author Share Posted November 28, 2006 ummm... no, i just decided to do this after i remembered seeing a start button text changer on rjlsoftware.com Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
Richard Robertson Posted November 28, 2006 Share Posted November 28, 2006 Does rjlsoftware have anything new? I haven't checked in a while. I think I'll do just that. Link to comment Share on other sites More sharing options...
NELyon Posted November 28, 2006 Share Posted November 28, 2006 Well, if your sure you didn't rip it then nice job. I'm gonna recreate some rjl programs right now. Link to comment Share on other sites More sharing options...
theguy0000 Posted November 29, 2006 Share Posted November 29, 2006 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 More sharing options...
Valuater Posted November 29, 2006 Share Posted November 29, 2006 (edited) 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 expandcollapse popupOpt('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 November 29, 2006 by Valuater Link to comment Share on other sites More sharing options...
HackerZer0 Posted November 29, 2006 Author Share Posted November 29, 2006 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!!"mine reverts immediatly... what version of windows do you have? i have XP Home sp2 Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
theguy0000 Posted November 29, 2006 Share Posted November 29, 2006 mine reverts immediatly... what version of windows do you have? i have XP Home sp2Very 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 More sharing options...
smstroble Posted November 29, 2006 Share Posted November 29, 2006 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 More sharing options...
magician13134 Posted November 29, 2006 Share Posted November 29, 2006 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.... Visit Magic Soft Inc. for some of my software Link to comment Share on other sites More sharing options...
HackerZer0 Posted November 29, 2006 Author Share Posted November 29, 2006 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... Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
the DtTvB Posted November 29, 2006 Share Posted November 29, 2006 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; [right]Please visit: My biggest project, the DtTvB's AutoIt Web ServerOlder Stuff: A Smoother MouseMove :: AutoIt Syntax Highlighter[/right] Link to comment Share on other sites More sharing options...
HackerZer0 Posted November 30, 2006 Author Share Posted November 30, 2006 lol nice, can u recreate the security program, "black.exe", i've been thinking about it and i dont know how to set an always on top black window...and i have NO idea how to do the pass thingie with no input box... Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
thenewkid Posted December 2, 2006 Share Posted December 2, 2006 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 More sharing options...
Thatsgreat2345 Posted December 2, 2006 Share Posted December 2, 2006 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 More sharing options...
thenewkid Posted December 2, 2006 Share Posted December 2, 2006 i tryed that but it never worked 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 More sharing options...
HackerZer0 Posted December 3, 2006 Author Share Posted December 3, 2006 works for me : ) Earn money on CASHCRATE by sitting around doing nothing.. Link to comment Share on other sites More sharing options...
Paulie Posted December 3, 2006 Share Posted December 3, 2006 ; Bouncing start button... Opt ('WinTitleMatchMode', 4); ; Let's move it! $co = 0; while (1); $co += 0.1; controlMove ('classname=Shell_TrayWnd', '', 'But Link to comment Share on other sites More sharing options...
bigassmuffin Posted December 3, 2006 Share Posted December 3, 2006 (edited) 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... expandcollapse popupOpt('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 December 3, 2006 by bigassmuffin Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now