Delta01 Posted September 12, 2007 Posted September 12, 2007 (edited) Hey, I'm trying to make a simple message sender for a game, to stop me having to type repetitively. I made a GUI and created some input boxes, I can get the script to read the input boxes, so that if they equal the default then the script won't send anything. However, when I want it to send the message that I have entered into the input box, it just sends the number 3. My code is as follows. expandcollapse popupGlobal $Paused = 0 HotKeySet("{F5}", "Togglepause") GuiCreate("BooYA's Spammer", 265, 450) $Line1 = GuiCtrlCreateInput("What you wish to spam. Line 1", 10, 55) $Line2 = GuiCtrlCreateInput("What you wish to spam. Line 2", 10, 85) $Line3 = GuiCtrlCreateInput("What you wish to spam. Line 3", 10, 115) $Line4 = GuiCtrlCreateInput("What you wish to spam. Line 4", 10, 145) $Line5 = GuiCtrlCreateInput("What you wish to spam. Line 5", 10, 175) $Start = GuiCtrlCreateButton("Start", 20, 275, 100, 35) $Pause = GuiCtrlCreateButton("Pause", 125, 275, 100, 35) $Sleep = GuiCtrlCreateInPut("1000", 10, 230, 50, 20) GuiCtrlCreateLabel("Sleep time inbetween messages, in miliseconds", 10, 205) GuiCtrlCreateLabel("Enter what you wish to spam below." & @CRLF & "If you don't want to use all lines, leave them blank", 10, 10) GuiCtrlCreateLabel("Made by BooYA©", 175, 435) GuiCtrlCreateLabel("Instructions: Run Silkroad, login then load the script." & @CRLF & "Fill in the boxes. Click on the chat box. Press F5" & @CRLF & "to unpause the script." & @CRLF & "If you want to edit what you spam, please pause" & @CRLF & "the script first.", 10, 330) GuiSetState() TogglePause() While 1 $msg = GuiGetMsg() $Read1 = GuiCtrlRead($Line1) If $Read1 = "What you wish to spam. Line 1" Then sleep(10) Else Send($Line1) sleep($Sleep) send("{ENTER}") EndIf WEND Func TogglePause() $Paused = Not $Paused While $Paused Sleep(500) ToolTip("Booya's Spammer is paused - Press F5 to resume",1,1) WEnd ToolTip("") EndFunc Does anybody know what's wrong? Alot of the things in the GUI have no value at the moment. It's not finished, i just need to know how to get the sending to work. Thanks Edited September 12, 2007 by Delta01
Generator Posted September 12, 2007 Posted September 12, 2007 I believe... Replace Send($Line1) with Send(GUICtrlRead($Line1))
Delta01 Posted September 12, 2007 Author Posted September 12, 2007 Ahhhhhh. That's what was wrong! Thanks
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