Jump to content

stop Send()


Recommended Posts

Link to comment
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
Link to comment
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
Link to comment
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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...