Sign in to follow this  
Followers 0
Innovative

Misc problem or ?

13 posts in this topic

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

Share this post


Link to post
Share on other sites



Spambots aren't widely accepted to make in AutoIt.

Share this post


Link to post
Share on other sites

Maybe for personal uses ?

Share this post


Link to post
Share on other sites

Nah, the problem is in YOUR script. You are missing 2 EndIf's

Share this post


Link to post
Share on other sites

Where is it ? i cant find any wrong .

Share this post


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

Share this post


Link to post
Share on other sites

I found it.

Share this post


Link to post
Share on other sites

thank you very much nahuel !

problem solved..

But i think there is some kind of bugs..

Although there is EndIfs missing in my main script but AutoIT displayed as no matching EndIfs statement in the Misc.au3

Share this post


Link to post
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)

Share this post


Link to post
Share on other sites

Nuevo Script

<_< That sounds funny...

:) I translated your AutoIt Tray. I use it all the time :P

But yeah... "Nuevo Script" does sound weird... how should I call it?

Share this post


Link to post
Share on other sites

Eh? Nuevo means new. (Spanish)

Share this post


Link to post
Share on other sites

Eh? Nuevo means new. (Spanish)

I knew that, I live in Ecuador. But it still sounds funny...

@Nahuel

Nueva Escritura... That would be the literal translation. However, it sounds like something from the Bible...


My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

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