Sign in to follow this  
Followers 0
Garanator

How I keep script from closing?

6 posts in this topic

#1 ·  Posted (edited)

Heres the script why does it just close I want it to stay open forever until u manualy close it.

;Drop Hack by GãRãñå†øR

;Don't misspell the password or you will be sitting at your comp for a long time

#NoTrayIcon

$wrongpwd = RegRead("HKEY_CURRENT_USER\SOFTWARE\Garanator\DropBot", "wrongpwd")

If $wrongpwd = "yes" Then

MsgBox(0,"Error","This program is no longer valid")

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

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 50

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

EndFunc

Func Terminate()

Exit

EndFunc

Func Drop()

;Drop

EndFunc

Edited by Garanator

Share this post


Link to post
Share on other sites



1st you need to EndFunc at the end of WrongPass

then to keep it going

you'll need a loop

While 1

Sleep ( 10 )

Wend


SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
Share on other sites

ok yeah i edited it but can u make it so that it will just keep running cuz won't the while1 only last for as long as i say then turn itself off?

Share this post


Link to post
Share on other sites

ok yeah i edited it but can u make it so that it will just keep running cuz won't the while1 only last for as long as i say then turn itself off?

try this

HotKeySet("!{f7}", "Terminate")

While 1

    Sleep(10)

Wend

Func Terminate()
Exit
EndFunc

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

ok yeah that works great. Thank you

Garanator

Share this post


Link to post
Share on other sites

ok yeah that works great. Thank you

Garanator

GUICtrlCreateLabel("Know the password jackass", 25, 18, 87, 27)

I can see where this would be deployed - I'll submit it to my anti-virus vendor.

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