HackerZer0 Posted November 28, 2006 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..
NELyon Posted November 28, 2006 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.
HackerZer0 Posted November 28, 2006 Author 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..
Richard Robertson Posted November 28, 2006 Posted November 28, 2006 Does rjlsoftware have anything new? I haven't checked in a while. I think I'll do just that.
NELyon Posted November 28, 2006 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.
theguy0000 Posted November 29, 2006 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
Valuater Posted November 29, 2006 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
HackerZer0 Posted November 29, 2006 Author 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..
theguy0000 Posted November 29, 2006 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
smstroble Posted November 29, 2006 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
magician13134 Posted November 29, 2006 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
HackerZer0 Posted November 29, 2006 Author 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..
the DtTvB Posted November 29, 2006 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]
HackerZer0 Posted November 30, 2006 Author 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..
thenewkid Posted December 2, 2006 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
Thatsgreat2345 Posted December 2, 2006 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
thenewkid Posted December 2, 2006 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
HackerZer0 Posted December 3, 2006 Author Posted December 3, 2006 works for me : ) Earn money on CASHCRATE by sitting around doing nothing..
Paulie Posted December 3, 2006 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
bigassmuffin Posted December 3, 2006 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
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