Sign in to follow this  
Followers 0
Innovative

stop Send()

17 posts in this topic

because im creating a spaming program.

How can i stop send() when on click .

Share this post


Link to post
Share on other sites



Not gonna bother to flame you, use _IsPressed()

Share this post


Link to post
Share on other sites

_IsPressed then what script to stop the sending?

Because it will still continue to send the words until i stop.. but how ?

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

Share this post


Link to post
Share on other sites

Can i make it _ispressed on a guibutton ?

Share this post


Link to post
Share on other sites

I cant find a place to input the script..

Can you please tell me where to input ?

The guibutton is $deactivate

#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

Share this post


Link to post
Share on other sites

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 ?

#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

Share this post


Link to post
Share on other sites

thank you very much.. you owns =P

anyway , can i assign a hotkey to maybe activate or something like that ?

Share this post


Link to post
Share on other sites

#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

Share this post


Link to post
Share on other sites

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..

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Start simple ? I dont really understand you..

Share this post


Link to post
Share on other sites

He means that you should start with other things, and do things like this when you understand abit more of autoit. <_<

Share this post


Link to post
Share on other sites

I just started AutoIT .. And to experience autoit-sters this is just the basis..

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0