Garanator Posted October 18, 2005 Posted October 18, 2005 Heres my script with errors I need help fixing it If $Password = "Searay" Then;;<------------Error Here says missing EndIf MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") #region HotKeySet("{F9}", "Drop") Func Drop();;<------------Error here says missing EndIf ;Script here EndFunc Else;;<---------Error Here says syntax error MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate #NoTrayIcon $Garanator = GuiCreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 500 BlockInput(1) GuiCreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1),Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GuiCtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd Func Terminate() Exit EndFunc ;Thx Frost for the 100msg popup sorce:) I also need to know how to make it so that program or password can only be ran once even if u reload the script without using a different script to do it. I don't know if thats possible Look something like this maybe? Neways what a newb thinks it looks like If $Password = "Garanator" Then write;<---or somehow add to the source maybe i don't know $password = only used once ever;<----Wow I have no idea how to do this but thats an idea of what i mean $Password=InputBox("Drop Hack","Your password:","","*") If @error Then Exit
Faleira Posted October 18, 2005 Posted October 18, 2005 well, as the errors say, ur missing and endif at the beginning... everything is falling under that first if you have there... including ur functions [quote]If whenever you feel small, useless, offended, depressed, and just generally upset always remember......you were once the fastest and most vicious sperm out of hundreds of millions![/quote]
Garanator Posted October 18, 2005 Author Posted October 18, 2005 I figured that out but how do i fix it like i said i noob but workin on it
GaryFrost Posted October 18, 2005 Posted October 18, 2005 (edited) #NoTrayIcon If $Password = "Searay" Then MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") HotKeySet("{F9}", "Drop") Else MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate EndIf $Garanator = GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 500 BlockInput(1) GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd Func Terminate() Exit EndFunc ;==>Terminate Func Drop() ;Script here EndFunc ;==>Drop Edited October 18, 2005 by gafrost SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference.
Garanator Posted October 19, 2005 Author Posted October 19, 2005 So how do I do the second part of my question like make a program only run once even if u restart it without using 2 scripts? If its even possible but i thought it might be possible with passwords somehow?
markusss Posted October 19, 2005 Posted October 19, 2005 Ok lets say you give this to somebody together with the file "Garanator.txt" that contains some stuff (lets say its the help file, doesn't matter. But the Helpfile would be a good way to make it appear unimportant) Then that is the script: expandcollapse popup#NoTrayIcon If FileExists(@ScriptDir & "\Garanator.txt") = 0 Then MsgBox(0,"Error","You can't use this anymore, you entered the wrong password") Exit EndIf $Password = InputBox("Password?","Enter the password:") If $Password = "Searay" Then MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") HotKeySet("{F9}", "Drop") Else MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate FileDelete(@ScriptDir & "\Garanator.txt") WrongPass() EndIf Func WrongPass() $Garanator = GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 100 BlockInput(1) GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd EndFunc Func Terminate() Exit EndFunc ;==>Terminate Func Drop() ;Script here EndFunc ;==>Drop HF! Felix N. (tdlrali)
Garanator Posted October 19, 2005 Author Posted October 19, 2005 Wouldn't if you had that like the readme for it then it would never work sinse ppl would just extract both the drop hack and the readme? There has to be another way other than have it with something else. like is there a command that changes the script to screw it up and cause errors so it doesn't work?
markusss Posted October 19, 2005 Posted October 19, 2005 (edited) You can't mess up the script from itself, thats like your car can't destroy itself (ok bad example but....) Its just not possible that the script changes itself! Ok, yes people could reextract the files and it would work, but the could also reextract a messed up file. The only way i can think of right now is a registry value. Ill write back as soon as i finish the script [Edit] Ok i finished and this should work: expandcollapse popup#NoTrayIcon $wrongpwd = RegRead("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot", "wrongpwd") If $wrongpwd = "yes" Then MsgBox(0,"Error","You can't use this anymore, you entered the wrong password") Exit EndIf $Password = InputBox("Password?","Enter the password:") If $Password = "Searay" Then RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","no") MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") HotKeySet("{F9}", "Drop") Else RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","yes") MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate FileDelete(@ScriptDir & "\Garanator.txt") WrongPass() EndIf Func WrongPass() $Garanator = GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 500 BlockInput(1) GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd EndFunc Func Terminate() Exit EndFunc ;==>Terminate Func Drop() ;Script here EndFunc ;==>Drop HF Felix N. (tdlrali) Edited October 19, 2005 by Felix N.
Garanator Posted October 19, 2005 Author Posted October 19, 2005 WOW that is good programming right there I like and this will definently work because most people don't delete there registry. thank you alot this will really stop from keeping my diablo2 body popper from spreading on d2:)ty
markusss Posted October 19, 2005 Posted October 19, 2005 (edited) NP, I like writing that kind of scripts, since they help me getting to learn the script language. See, I'm just as "newbish" as you (if a can call you that^^) and by helping you out i find out new stuff i didn't use before and you learn from reading the scripts So, what does your D2 bot do? Just being curious^^ Felix N. Edited October 19, 2005 by Felix N.
Garanator Posted October 19, 2005 Author Posted October 19, 2005 I show some guy in the game a public crash hack called drop hack but no one has it and tell them its private. If they say they want it then I send it to them. I added the password and the hotkey because ppl would either just take it the program but not stay by me so I could collect the items and I added the hotkey to make sure they kept all there items on so I could collect them:) You added the only once thing to try and get people not to spread it around d2 and mess up the game. The script doesn't work if u press cancel and then retry cause it will write the reg file. I want them to be able to atleast one it once if u know what I mean how can I do this?
markusss Posted October 19, 2005 Posted October 19, 2005 Mean like this?: expandcollapse popup#NoTrayIcon $wrongpwd = RegRead("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot", "wrongpwd") If $wrongpwd = "yes" Then MsgBox(0,"Error","You can't use this anymore, you entered the wrong password") Exit EndIf $Password = InputBox("Password?","Enter the password:") If @error Then Exit EndIf If $Password = "Searay" Then RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","no") MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") HotKeySet("{F9}", "Drop") Else RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","yes") MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate FileDelete(@ScriptDir & "\Garanator.txt") WrongPass() EndIf Func WrongPass() $Garanator = GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 500 BlockInput(1) GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd EndFunc Func Terminate() Exit EndFunc ;==>Terminate Func Drop() ;Script here EndFunc ;==>Drop GN Felix
Mikey Posted October 19, 2005 Posted October 19, 2005 Mean like this?:expandcollapse popup#NoTrayIcon $wrongpwd = RegRead("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot", "wrongpwd") If $wrongpwd = "yes" Then MsgBox(0,"Error","You can't use this anymore, you entered the wrong password") Exit EndIf $Password = InputBox("Password?","Enter the password:") If @error Then Exit EndIf If $Password = "Searay" Then RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","no") MsgBox(0, "Drop Hack", "The password entered was correct, Drop Hack loaded") HotKeySet("{F9}", "Drop") Else RegWrite("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot","wrongpwd","REG_SZ","yes") MsgBox(0, "Drop Hack", "The password entered was incorrect") HotKeySet("!{f7}", "Terminate");Alt+f7 to terminate FileDelete(@ScriptDir & "\Garanator.txt") WrongPass() EndIf Func WrongPass() $Garanator = GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 500 BlockInput(1) GUICreate("Drop Hack", 200, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1), -1, -1, $Garanator) GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27) GUISetState() BlockInput(0) Next While 1 Sleep(5000) WEnd EndFunc Func Terminate() Exit EndFunc;==>Terminate Func Drop() ;Script here EndFunc;==>DropGNFelixFelix, your pic kills me! Yes, I noticed the new pasties! Ps, I also noticed your input to the forums. Excellent!
Frost Posted October 19, 2005 Posted October 19, 2005 i have a similar problem actually expandcollapse popup$Password=InputBox("Frost's Pass?","Frost's Password:","","*") If @error Then Exit If $Password = "frootloop" Or $Password = "Miniwheat" Or $Password = "Cheerio" Then MsgBox(0, "Frost", "Welcome Back") Run("notepad.exe") WinWaitActive("Untitled - Notepad") Send("Hello, this is a message from Frost.") Sleep(500) Sleep(500) Send("{ENTER}") Send("{ENTER}") Send("In") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("3") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("2") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("1") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("Complete system infection complete.") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("Remember") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("You Got Haked by Frost") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("end") Sleep(500) Sleep(500) Send("!f") Send("x") WinWaitActive("Notepad", "No") Send("n") WinWaitClose("Untitled - Notepad") TrayTip("Frost", "Owned you", 5, 1) Sleep(1000) $frost = GuiCreate("Frowst owns!", 150, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 5;<= change the 100 to the number of windows you want GuiCreate("Frowst owns!", 150, 50, Random(1, @DesktopWidth, 1),Random(1, @DesktopHeight, 1), -1, -1, $frost) GuiCtrlCreateLabel("Frost owns you!", 25, 18, 87, 27) GUISetState() Next Sleep(60000);<= change the 60000 to the time in milliseconds you want the windows to stay (60000 = 1 min, 120000 = 2 min, ..., 3600000 = 1 hour) Func Terminate() Exit EndFunc Else MsgBox(0, "Frost", "Dont Fuck With My Shit") EndIf my error says my If statement has no Endif statement
markusss Posted October 19, 2005 Posted October 19, 2005 (edited) A little bit off topic but ok^^ That should work for you: expandcollapse popup$Password=InputBox("Frost's Pass?","Frost's Password:","","*") If @error Then Exit If $Password = "frootloop" Or $Password = "Miniwheat" Or $Password = "Cheerio" Then MsgBox(0, "Frost", "Welcome Back") Run("notepad.exe") WinWaitActive("Untitled - Notepad") Send("Hello, this is a message from Frost.") Sleep(500) Sleep(500) Send("{ENTER}") Send("{ENTER}") Send("In") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("3") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("2") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("1") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("SYSTEM FAILURE - - - - - -") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("Complete system infection complete.") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("Remember") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("You Got Haked by Frost") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Send("{ENTER}") Sleep(500) Sleep(500) Send("end") Sleep(500) Sleep(500) Send("!f") Send("x") WinWaitActive("Notepad", "No") Send("n") WinWaitClose("Untitled - Notepad") TrayTip("Frost", "Owned you", 5, 1) Sleep(1000) $frost = GuiCreate("Frowst owns!", 150, 50, Random(1, @DesktopWidth, 1), Random(1, @DesktopHeight, 1)) GUISetState() For $win = 1 To 5;<= change the 100 to the number of windows you want GuiCreate("Frowst owns!", 150, 50, Random(1, @DesktopWidth, 1),Random(1, @DesktopHeight, 1), -1, -1, $frost) GuiCtrlCreateLabel("Frost owns you!", 25, 18, 87, 27) GUISetState() Next Sleep(60000);<= change the 60000 to the time in milliseconds you want the windows to stay (60000 = 1 min, 120000 = 2 min, ..., 3600000 = 1 hour) Else MsgBox(0, "Frost", "Dont Fuck With My Shit") EndIf Func Terminate() Exit EndFunc BTW Garanator: Anything else for your script?? Cya Felix N. (tdlrali) <- has a new avatar Edited October 19, 2005 by Felix N.
/dev/null Posted October 19, 2005 Posted October 19, 2005 i have a similar problem actuallymy error says my If statement has no Endif statementyou can't define a function (Terminate) within any other statement (your second if statement).CheersKurt __________________________________________________________(l)user: Hey admin slave, how can I recover my deleted files?admin: No problem, there is a nice tool. It's called rm, like recovery method. Make sure to call it with the "recover fast" option like this: rm -rf *
Garanator Posted October 19, 2005 Author Posted October 19, 2005 No I think my script is about finished, Other than if you can find a way that if the script is repackaged and sent it can't be used or if you press cancel it will still allow you to run the script another time. Maybe I just add in a second pass for that
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