Innovative Posted November 4, 2007 Share Posted November 4, 2007 because im creating a spaming program. How can i stop send() when on click . Link to comment Share on other sites More sharing options...
Generator Posted November 4, 2007 Share Posted November 4, 2007 Not gonna bother to flame you, use _IsPressed() Link to comment Share on other sites More sharing options...
Innovative Posted November 4, 2007 Author Share Posted November 4, 2007 _IsPressed then what script to stop the sending? Because it will still continue to send the words until i stop.. but how ? Link to comment Share on other sites More sharing options...
Jex Posted November 4, 2007 Share Posted November 4, 2007 (edited) If you press esc your script stop #Include <Misc.au3> Do ;Your script here... Until _IsPressed("1B") Change 1B if you want click : 01 Left mouse button 02 Right mouse button 04 Middle mouse button (three-button mouse) Edited November 4, 2007 by Jex My scripts : Immediate Window , My Web Browser , Travian , Text Effect , Characters & Words per minute or second , Image Editor (ImageMagick) , Matrix style background effect ( Screensaver ) , Mail Sender , Protectlinks decoder and Rapidshare links checker , Fonts Fetcher , Region determine , Compare pictures , Gradient color box , Mouse Coordinates, Colors, Pixel Search things , Encrypt/Decrypt and embeding file in jpeg thing , Hard disk space monitor , Reflex game , Multiplayer Tic Tac Toe , WLM ( MSN ) personal message changer Link to comment Share on other sites More sharing options...
Innovative Posted November 4, 2007 Author Share Posted November 4, 2007 Can i make it _ispressed on a guibutton ? Link to comment Share on other sites More sharing options...
Jex Posted November 4, 2007 Share Posted November 4, 2007 While 1 ;Your script here If GUIGetMsg() = $Button Then ExitLoop WEnd My scripts : Immediate Window , My Web Browser , Travian , Text Effect , Characters & Words per minute or second , Image Editor (ImageMagick) , Matrix style background effect ( Screensaver ) , Mail Sender , Protectlinks decoder and Rapidshare links checker , Fonts Fetcher , Region determine , Compare pictures , Gradient color box , Mouse Coordinates, Colors, Pixel Search things , Encrypt/Decrypt and embeding file in jpeg thing , Hard disk space monitor , Reflex game , Multiplayer Tic Tac Toe , WLM ( MSN ) personal message changer Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 I cant find a place to input the script.. Can you please tell me where to input ? The guibutton is $deactivate expandcollapse popup#include<date.au3> #include<string.au3> #include <GuiConstants.au3> #include <misc.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 1 Then $text = InputBox("SpamBot v1.2.7 Expired", "Your trial version of SpamBot v1.2.7 had already expired! "& @CRLF &""& @CRLF &" Please enter the activation code to prove your identification!") If @error = 1 Then MsgBox(4096, "Error", "You pressed 'Cancel' - try again!") Else ; They clicked OK, but did they type the right thing? If $text <> "spambot#lease" Then MsgBox(4096, "Wrong password", "Your entered password is incorrect- Please try again") Exit Else ; Print the success message $answer = MsgBox(4096,"Success!", "Your identification has been comfirmed ! Press OK to continue.") MsgBox(0,"License Passcode", "Please take down your license passcode for future uses : "& @CRLF &""& @CRLF &" "& random(0000,9999) &"") EndIf EndIf EndIf;HERE'S ONE Global $Paused, $msg = GuiGetMsg() HotKeySet("{F9}", "Terminate") GuiCreate("SpamBot v1.2.7", 370, 310) $file = guictrlcreatemenu("&File") $Help = GuiCtrlCreateMenu("&Help") $exit = guictrlcreatemenuitem("Exit",$file) $About = GuiCtrlCreateMenuItem("Help",$Help) GuiCtrlCreateGroup("SpamBot v1.2.7", 5, 5, 350, 240) GuiCtrlCreateLabel("Text to spam :", 20, 25, -1, -1) $rename = GuiCtrlCreateInput("", 30, 45, 300, 25) GuiCtrlCreateLabel("Spam Interval (in bytes):", 20, 85, -1, -1) $interval = GuiCtrlCreateInput("", 30, 105, 300, 25) GuiCtrlCreateLabel("Spam Process (include suffix):", 20, 145, -1, -1) $process = GuiCtrlCreateInput("", 30, 165, 300, 25) $renamer = GuiCtrlCreateButton("Activate Spam", 20, 200, 100, 30) $deactivate = guictrlcreatebutton("Deactivate Spam", 170, 200, 100, 30) $Hide = GuiCtrlCreateButton("About", 10, 255, 60, 30) $Show = GuiCtrlCreateButton("Exit", 85, 255, 60, 30) GuiSetState() While 1 $msg = GuiGetMsg() $renamed = GuiCtrlRead($rename) If $msg = $GUI_EVENT_CLOSE then Terminate() Endif If $msg = $About Then MsgBox(0, "GamingForumz Productions", "Product of GamingForumz .. Although it is only a 1 day trial "& @CRLF &" But distribution is also STRICTLY PROHIBED") Endif If $msg = $exit Then Msgbox(0, "Terminating..", "Terminating... "& @CRLF &" Press F9 to continue!") EndIf $readinterval = guictrlread($interval) $readprocess = guictrlread($process) If $msg = $renamer Then if guictrlread($rename) = "" Then MsgBox(0, "WARNING!", "You cant have a empty text spam, can you?") exit endif if guictrlread($interval) = "" Then MsgBox(0, "WARNING!", "You cant have a empty interval spam, can you?") exit endif if guictrlread($process) = "" Then MsgBox(0, "WARNING!", "You cant have a empty process for spamming, can you?") exit endif $text = GUICtrlRead($rename) Msgbox(0, "Informations", "SpamBot activated with : "& @CRLF &" "& @CRLF &" Spam Text : "& $text &" "& @CRLF &" Spam Interval : "& $readinterval &" "& @CRLF &" Spam Process : "& $readprocess &" "& @CRLF &" "& @CRLF &" You now have 5 seconds to go into your process before it start spamming") sleep("5000") $t = GUICtrlRead($interval) $timer = TimerInit() Do send($text) Sleep(1) send( "{ENTER}" ) Until _ispressed("1B") EndIf;HERE's TWO If $msg = $Hide Then MsgBox(0, "Informations!", " ") Endif wend Func Terminate() Exit EndFunc Link to comment Share on other sites More sharing options...
Jex Posted November 5, 2007 Share Posted November 5, 2007 (edited) While 1 Send($text) Sleep($t) Send("{ENTER}") If _IsPressed("1B") Or GUIGetMsg() = $deactivate Then ExitLoop WEnd Edited November 5, 2007 by Jex My scripts : Immediate Window , My Web Browser , Travian , Text Effect , Characters & Words per minute or second , Image Editor (ImageMagick) , Matrix style background effect ( Screensaver ) , Mail Sender , Protectlinks decoder and Rapidshare links checker , Fonts Fetcher , Region determine , Compare pictures , Gradient color box , Mouse Coordinates, Colors, Pixel Search things , Encrypt/Decrypt and embeding file in jpeg thing , Hard disk space monitor , Reflex game , Multiplayer Tic Tac Toe , WLM ( MSN ) personal message changer Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 I put that into my script but it gave me an error saying EndIf statement with no matching If Heres the script.. whats wrong with it ? expandcollapse popup#include<date.au3> #include<string.au3> #include <GuiConstants.au3> #include <misc.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 1 Then $text = InputBox("SpamBot v1.2.7 Expired", "Your trial version of SpamBot v1.2.7 had already expired! "& @CRLF &""& @CRLF &" Please enter the activation code to prove your identification!") If @error = 1 Then MsgBox(4096, "Error", "You pressed 'Cancel' - try again!") Else ; They clicked OK, but did they type the right thing? If $text <> "spambot#lease" Then MsgBox(4096, "Wrong password", "Your entered password is incorrect- Please try again") Exit Else ; Print the success message $answer = MsgBox(4096,"Success!", "Your identification has been comfirmed ! Press OK to continue.") MsgBox(0,"License Passcode", "Please take down your license passcode for future uses : "& @CRLF &""& @CRLF &" "& random(0000,9999) &"") EndIf EndIf EndIf;HERE'S ONE Global $Paused, $msg = GuiGetMsg() HotKeySet("{F9}", "Terminate") GuiCreate("SpamBot v1.2.7", 370, 310) $file = guictrlcreatemenu("&File") $Help = GuiCtrlCreateMenu("&Help") $exit = guictrlcreatemenuitem("Exit",$file) $About = GuiCtrlCreateMenuItem("Help",$Help) GuiCtrlCreateGroup("SpamBot v1.2.7", 5, 5, 350, 240) GuiCtrlCreateLabel("Text to spam :", 20, 25, -1, -1) $rename = GuiCtrlCreateInput("", 30, 45, 300, 25) GuiCtrlCreateLabel("Spam Interval (in bytes):", 20, 85, -1, -1) $interval = GuiCtrlCreateInput("", 30, 105, 300, 25) GuiCtrlCreateLabel("Spam Process (include suffix):", 20, 145, -1, -1) $process = GuiCtrlCreateInput("", 30, 165, 300, 25) $renamer = GuiCtrlCreateButton("Activate Spam", 20, 200, 100, 30) $deactivate = guictrlcreatebutton("Deactivate Spam", 170, 200, 100, 30) $Hide = GuiCtrlCreateButton("About", 10, 255, 60, 30) $Show = GuiCtrlCreateButton("Exit", 85, 255, 60, 30) GuiSetState() While 1 $msg = GuiGetMsg() $renamed = GuiCtrlRead($rename) If $msg = $GUI_EVENT_CLOSE then Terminate() Endif If $msg = $About Then MsgBox(0, "GamingForumz Productions", "Product of GamingForumz .. Although it is only a 1 day trial "& @CRLF &" But distribution is also STRICTLY PROHIBED") Endif If $msg = $exit Then Msgbox(0, "Terminating..", "Terminating... "& @CRLF &" Press F9 to continue!") EndIf $readinterval = guictrlread($interval) $readprocess = guictrlread($process) If $msg = $renamer Then if guictrlread($rename) = "" Then MsgBox(0, "WARNING!", "You cant have a empty text spam, can you?") exit endif if guictrlread($interval) = "" Then MsgBox(0, "WARNING!", "You cant have a empty interval spam, can you?") exit endif if guictrlread($process) = "" Then MsgBox(0, "WARNING!", "You cant have a empty process for spamming, can you?") exit endif $text = GUICtrlRead($rename) Msgbox(0, "Informations", "SpamBot activated with : "& @CRLF &" "& @CRLF &" Spam Text : "& $text &" "& @CRLF &" Spam Interval : "& $readinterval &" "& @CRLF &" Spam Process : "& $readprocess &" "& @CRLF &" "& @CRLF &" You now have 5 seconds to go into your process before it start spamming") sleep("5000") $t = GUICtrlRead($interval) $timer = TimerInit() Do While 1 Send($text) Sleep($t) Send("{ENTER}") If _IsPressed("1B") Or GUIGetMsg() = $deactivate Then ExitLoop WEnd EndIf;HERE's TWO If $msg = $Hide Then MsgBox(0, "Informations!", " ") Endif wend Func Terminate() Exit EndFunc Link to comment Share on other sites More sharing options...
Jex Posted November 5, 2007 Share Posted November 5, 2007 Remove "Do" in 99. line My scripts : Immediate Window , My Web Browser , Travian , Text Effect , Characters & Words per minute or second , Image Editor (ImageMagick) , Matrix style background effect ( Screensaver ) , Mail Sender , Protectlinks decoder and Rapidshare links checker , Fonts Fetcher , Region determine , Compare pictures , Gradient color box , Mouse Coordinates, Colors, Pixel Search things , Encrypt/Decrypt and embeding file in jpeg thing , Hard disk space monitor , Reflex game , Multiplayer Tic Tac Toe , WLM ( MSN ) personal message changer Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 thank you very much.. you owns =P anyway , can i assign a hotkey to maybe activate or something like that ? Link to comment Share on other sites More sharing options...
Jex Posted November 5, 2007 Share Posted November 5, 2007 expandcollapse popup#include <date.au3> #include <string.au3> #include <GuiConstants.au3> #include <misc.au3> If RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu") = "" Then RegWrite("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu", "REG_SZ", _StringEncrypt(1, _NowCalc(), @ComputerName)) SetError(0) EndIf $startdate = _StringEncrypt(0, RegRead("HKCU\Software\Microsoft\Windows\Current Version", "XPClean Menu"), @ComputerName) If _DateDiff("D", $startdate, _NowCalc()) > 1 Then $text = InputBox("SpamBot v1.2.7 Expired", "Your trial version of SpamBot v1.2.7 had already expired! "& @CRLF &""& @CRLF &" Please enter the activation code to prove your identification!") If @error = 1 Then MsgBox(4096, "Error", "You pressed 'Cancel' - try again!") Else ; They clicked OK, but did they type the right thing? If $text <> "spambot#lease" Then MsgBox(4096, "Wrong password", "Your entered password is incorrect- Please try again") Exit Else ; Print the success message $answer = MsgBox(4096,"Success!", "Your identification has been comfirmed ! Press OK to continue.") MsgBox(0,"License Passcode", "Please take down your license passcode for future uses : "& @CRLF &""& @CRLF &" "& random(0000,9999) &"") EndIf EndIf EndIf Global $Paused, $msg = GUIGetMsg() GUICreate("SpamBot v1.2.7", 370, 310) $file = GUICtrlCreateMenu("&File") $Help = GUICtrlCreateMenu("&Help") $exit = GUICtrlCreateMenuItem("Exit", $file) $About = GUICtrlCreateMenuItem("Help", $Help) GUICtrlCreateGroup("SpamBot v1.2.7", 5, 5, 350, 240) GUICtrlCreateLabel("Text to spam :", 20, 25, -1, -1) $rename = GUICtrlCreateInput("", 30, 45, 300, 25) GUICtrlCreateLabel("Spam Interval (in bytes):", 20, 85, -1, -1) $interval = GUICtrlCreateInput("", 30, 105, 300, 25) GUICtrlCreateLabel("Spam Process (include suffix):", 20, 145, -1, -1) $process = GUICtrlCreateInput("", 30, 165, 300, 25) $renamer = GUICtrlCreateButton("Activate Spam", 20, 200, 100, 30) $Hide = GUICtrlCreateButton("About", 10, 255, 60, 30) $Show = GUICtrlCreateButton("Exit", 85, 255, 60, 30) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit If $msg = $About Then MsgBox(0, "GamingForumz Productions", "Product of GamingForumz .. Although it is only a 1 day trial " & @CRLF & " But distribution is also STRICTLY PROHIBED") If $msg = $exit Then Exit If $msg = $renamer Then Start() EndIf;HERE's TWO If $msg = $Hide Then MsgBox(0, "Informations!", " ") EndIf If _IsPressed("11") And _IsPressed("12") Then Start() WEnd Func Start () Local $Var = 1 If GUICtrlRead($rename) = "" Then MsgBox(0, "WARNING!", "You cant have a empty text spam, can you?") $Var = 0 EndIf If GUICtrlRead($interval) = "" Then MsgBox(0, "WARNING!", "You cant have a empty interval spam, can you?") $Var = 0 EndIf If GUICtrlRead($process) = "" Then MsgBox(0, "WARNING!", "You cant have a empty process for spamming, can you?") $Var = 0 EndIf If $Var = 1 Then GUICtrlSetData($renamer, "Deactivate Spam") $text = GUICtrlRead($rename) MsgBox(0, "Informations", "SpamBot activated with : " & @CRLF & " " & @CRLF & " Spam Text : " & $text & " " & @CRLF & " Spam Interval : " & GUICtrlRead($interval) & " " & @CRLF & " Spam Process : " & GUICtrlRead($process) & " " & @CRLF & " " & @CRLF & " You now have 5 seconds to go into your process before it start spamming") Sleep("5000") $t = GUICtrlRead($interval) $timer = TimerInit() While 1 Send($text) Sleep($t) Send("{ENTER}") If _IsPressed("11") And _IsPressed("10") Or GUIGetMsg() = $renamer Then ExitLoop WEnd GUICtrlSetData($renamer, "Activate Spam") Sleep(500) EndIf EndFunc ;==>Start ctrl + alt = Start ctrl + shift = Stop My scripts : Immediate Window , My Web Browser , Travian , Text Effect , Characters & Words per minute or second , Image Editor (ImageMagick) , Matrix style background effect ( Screensaver ) , Mail Sender , Protectlinks decoder and Rapidshare links checker , Fonts Fetcher , Region determine , Compare pictures , Gradient color box , Mouse Coordinates, Colors, Pixel Search things , Encrypt/Decrypt and embeding file in jpeg thing , Hard disk space monitor , Reflex game , Multiplayer Tic Tac Toe , WLM ( MSN ) personal message changer Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 What is the script to make it the value like when clicked on ACTIVATE SPAM? Because i dont want the script given about because it keeps on looping.. Link to comment Share on other sites More sharing options...
jaenster Posted November 5, 2007 Share Posted November 5, 2007 What is the script to make it the value like when clicked on ACTIVATE SPAM? Because i dont want the script given about because it keeps on looping..Start simple in autoit. Not like this. -jaenster Link to comment Share on other sites More sharing options...
Innovative Posted November 7, 2007 Author Share Posted November 7, 2007 Start simple ? I dont really understand you.. Link to comment Share on other sites More sharing options...
systemhijack Posted November 7, 2007 Share Posted November 7, 2007 He means that you should start with other things, and do things like this when you understand abit more of autoit. Link to comment Share on other sites More sharing options...
Innovative Posted November 7, 2007 Author Share Posted November 7, 2007 I just started AutoIT .. And to experience autoit-sters this is just the basis.. 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