Scrippter Posted September 26, 2008 Posted September 26, 2008 Here is the script i wrote to say auto text, What i need help with is a hotkey that allows you to change what $answer is. I wanting F12, if anyone knows a way to do this, i would be grateful. I want it to exit (close) when F11 is pressed. Thanks Guys/Gals. Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Tales of Pirates - Paradise Found","") If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","") WinWaitActive("Tales of Pirates - Paradise Found","") ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") For $i = 0 to 100 step 1 sleep(20) ; wait time. ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent. sleep(500) ; wait a half of a second. ProgressOff() ; close the progress meter. $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _ -1, -1, 0, 0) While 1 Send($answer1) ;~ Says text put in inputbox sleep(20) send("{enter}") Sleep(8500) WEnd
Scrippter Posted September 26, 2008 Author Posted September 26, 2008 I think i figured it out, take a look: expandcollapse popup#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=Icons\Computer.ico #AutoIt3Wrapper_outfile=..\Desktop\Auto_text.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Tales of Pirates - Paradise Found","") If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","") WinWaitActive("Tales of Pirates - Paradise Found","") ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") ;~Press Esc to terminate script, Pause/Break to "pause" Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{END}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d For $i = 0 to 100 step 1 sleep(20) ; wait time. ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent. sleep(500) ; wait a half of a second. ProgressOff() ; close the progress meter. ;~ Input Box for answer to Question $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _ -1, -1, 0, 0) While 1 Send($answer1) ;~ Says text put in inputbox sleep(20) send("{enter}") Sleep(8500) WEnd Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "You Paused Me"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","Super Secret Message.") EndFunc
Marlo Posted September 26, 2008 Posted September 26, 2008 expandcollapse popup#Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=Icons\Computer.ico #AutoIt3Wrapper_outfile=..\Desktop\Auto_text.exe #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** Opt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Tales of Pirates - Paradise Found","") If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","") WinWaitActive("Tales of Pirates - Paradise Found","") ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") ;~Press Esc to terminate script, Pause/Break to "pause" HotKeySet("{f12}", "_ChangeAnswer") For $i = 0 to 100 step 1 sleep(20); wait time. ProgressSet( $i, $i & " %"); set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete"); when the loop is complete, set the progress meter to 100 percent. sleep(500); wait a half of a second. ProgressOff(); close the progress meter. ;~ Input Box for answer to Question $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _ -1, -1, 0, 0) While 1 Send($answer1);~ Says text put in inputbox sleep(20) send("{enter}") Sleep(8500) WEnd Func _ChangeAnswer() $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", -1, -1, 0, 0) EndFunc that shouls do it Click here for the best AutoIt help possible.Currently Working on: Autoit RAT
Scrippter Posted September 26, 2008 Author Posted September 26, 2008 I added some sounds, now if i can figure out a way to make it when Home is pressed, and you can change the $answer. expandcollapse popupSoundPlay(@WindowsDir & "\media\tada.wav",1) ;~Press Esc to terminate script, Pause/Break to "pause" Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{END}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") For $i = 0 to 100 step 1 sleep(20) ; wait time. ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent. sleep(500) ; wait a half of a second. ProgressOff() ; close the progress meter. MsgBox(48, "Control Auto_Texter:", "To Close Press END. To Pause Press PAUSE/BREAK.") ;~ Input Box for answer to Question $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _ -1, -1, 0, 0) While 1 Send($answer1) ;~ Says text put in inputbox sleep(20) send("{enter}") Sleep(8500) WEnd Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "You Paused Me"',0,0) SoundPlay(@WindowsDir & "\media\notify.wav",1) WEnd ToolTip("") EndFunc Func Terminate() SoundPlay(@WindowsDir & "\media\chimes.wav",1) Exit 0 EndFunc Func ShowMessage() SoundPlay(@WindowsDir & "\media\tada.wav",1) MsgBox(4096,"","A Venluckey Production.") EndFunc
Scrippter Posted September 26, 2008 Author Posted September 26, 2008 Thanks man, That worked Here it is completed! expandcollapse popupOpt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Tales of Pirates - Paradise Found","") If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","") WinWaitActive("Tales of Pirates - Paradise Found","") SoundPlay(@WindowsDir & "\media\tada.wav",1) ;~Press Esc to terminate script, Pause/Break to "pause" Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{END}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d HotKeySet("{HOME}", "_ChangeAnswer") ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") For $i = 0 to 100 step 1 sleep(20) ; wait time. ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent. sleep(500) ; wait a half of a second. ProgressOff() ; close the progress meter. MsgBox(48, "Control Auto_Texter:", "To Close Press END. To Pause Press PAUSE/BREAK.") ;~ Input Box for answer to Question $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", _ -1, -1, 0, 0) While 1 Send($answer1) ;~ Says text put in inputbox sleep(20) send("{enter}") Sleep(8500) WEnd Func _ChangeAnswer() $answer1 = InputBox("Auto Texter", "What do you want to say?", "", "", -1, -1, 0, 0) EndFunc Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "You Paused Me"',0,0) SoundPlay(@WindowsDir & "\media\notify.wav",1) WEnd ToolTip("") EndFunc Func Terminate() SoundPlay(@WindowsDir & "\media\chimes.wav",1) Exit 0 EndFunc Func ShowMessage() SoundPlay(@WindowsDir & "\media\tada.wav",1) MsgBox(4096,"","A Venluckey Production.") EndFunc
Scrippter Posted September 26, 2008 Author Posted September 26, 2008 Now moved on to an Auto pickup Bot!
Scrippter Posted September 26, 2008 Author Posted September 26, 2008 (edited) I think I got it! Wow after learning that first one, this one when faster. Look it over and tell me what you think. expandcollapse popupOpt("WinWaitDelay",100) Opt("WinTitleMatchMode",4) Opt("WinDetectHiddenText",1) Opt("MouseCoordMode",0) WinWait("Tales of Pirates - Paradise Found","") If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","") WinWaitActive("Tales of Pirates - Paradise Found","") SoundPlay(@WindowsDir & "\media\tada.wav",1) ; creates a progress meter with comments. Global $Paused HotKeySet("{PAUSE}", "TogglePause") HotKeySet("{END}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d ; creates a progress meter with comments. ProgressOn("A Venluckey Production", "Opening program", "0 %") For $i = 0 to 100 step 1 sleep(20) ; wait time. ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i. Next ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent. sleep(500) ; wait a half of a second. ProgressOff() ; close the progress meter. while 1 Send("^a") sleep(500) Send("^a") WEnd Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "You Paused Me"',0,0) SoundPlay(@WindowsDir & "\media\notify.wav",1) WEnd ToolTip("") EndFunc Func Terminate() SoundPlay(@WindowsDir & "\media\chimes.wav",1) Exit 0 EndFunc Func ShowMessage() SoundPlay(@WindowsDir & "\media\tada.wav",1) MsgBox(4096,"","A Venluckey Production.") EndFunc Edited September 26, 2008 by Scrippter
JinXt3r Posted January 17, 2009 Posted January 17, 2009 (edited) Hello everyone as you can see I am quite new and very interested on how all this works and perhaps maybe even would be able to add to a wonderful bot for TOP. First question is going to sound probably incredibly stupid but how the hell do I use this program?? I just downloaded it and I don't even know where to begin or even where to input the code that is supplied here!!! I want to learn so if you can, a dumbed down detailed explanation would be best, then I can try to take it from there. Regards JinX Edited January 17, 2009 by JinXt3r
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