Innovative Posted November 5, 2007 Share Posted November 5, 2007 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.. expandcollapse popup; 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 More sharing options...
JustinReno Posted November 5, 2007 Share Posted November 5, 2007 Spambots aren't widely accepted to make in AutoIt. Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 Maybe for personal uses ? Link to comment Share on other sites More sharing options...
Nahuel Posted November 5, 2007 Share Posted November 5, 2007 Nah, the problem is in YOUR script. You are missing 2 EndIf's Link to comment Share on other sites More sharing options...
Innovative Posted November 5, 2007 Author Share Posted November 5, 2007 Where is it ? i cant find any wrong . Link to comment Share on other sites More sharing options...
Nahuel Posted November 5, 2007 Share Posted November 5, 2007 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 goexpandcollapse 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...
JustinReno Posted November 5, 2007 Share Posted November 5, 2007 I found it. 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 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 Link to comment Share on other sites More sharing options...
Nahuel Posted November 5, 2007 Share Posted November 5, 2007 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 More sharing options...
Achilles Posted November 5, 2007 Share Posted November 5, 2007 (edited) Nuevo Script That sounds funny... Edited November 5, 2007 by Piano_Man My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list] Link to comment Share on other sites More sharing options...
Nahuel Posted November 5, 2007 Share Posted November 5, 2007 Nuevo Script That sounds funny... I translated your AutoIt Tray. I use it all the time But yeah... "Nuevo Script" does sound weird... how should I call it? Link to comment Share on other sites More sharing options...
Nevin Posted November 5, 2007 Share Posted November 5, 2007 Eh? Nuevo means new. (Spanish) Link to comment Share on other sites More sharing options...
Achilles Posted November 5, 2007 Share Posted November 5, 2007 Eh? Nuevo means new. (Spanish)I knew that, I live in Ecuador. But it still sounds funny...@NahuelNueva 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] 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