Jump to content

Misc problem or ?


Recommended Posts

Can someone please check if something is wrong with this script because whenever i tried to open, it said Misc.au3 (which is in the AutoIT include folder) has an error "If statement with no matching EndIf statement" BUT I DID NOT EVEN TOUCHED THE misc.au3.. how can that be..

; 30 Day Trial
; Author MSLx Fanboy

#include<date.au3>
#include<string.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

    
#include <GuiConstants.au3>
#include <misc.au3>


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")


                        
                    
                    
    If $msg = $Hide Then
        MsgBox(0, "Informations!", "  ")
    Endif
        
        
    wend


Func Terminate()
    Exit
EndFunc
Link to comment
Share on other sites

Dude, that code is a mess! I don't know where to put them, but they are missing..

Look, I put two where they seem to go

#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

No it did not.

D:\Scripts\AutoIt Tray\Nuevo Script (6).au3(114,5) : ERROR: missing EndIf.

wend

~~~~^

D:\Scripts\AutoIt Tray\Nuevo Script (6).au3(81,28) : REF: missing EndIf.

If $msg = $renamer Then

~~~~~~~~~~~~~~~~~~~~~~~~~~~^

D:\Scripts\AutoIt Tray\Nuevo Script (6).au3(117,1) : ERROR: missing EndIf.

Func

^

D:\Scripts\AutoIt Tray\Nuevo Script (6).au3(14,51) : REF: missing EndIf.

If _DateDiff("D", $startdate, _NowCalc()) > 1 Then

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

D:\Scripts\AutoIt Tray\Nuevo Script (6).au3 - 2 error(s), 0 warning(s)

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