Garanator Posted October 29, 2005 Share Posted October 29, 2005 (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 October 29, 2005 by Garanator Link to comment Share on other sites More sharing options...
GaryFrost Posted October 29, 2005 Share Posted October 29, 2005 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. Link to comment Share on other sites More sharing options...
Garanator Posted October 29, 2005 Author Share Posted October 29, 2005 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? Link to comment Share on other sites More sharing options...
Valuater Posted October 29, 2005 Share Posted October 29, 2005 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 thisHotKeySet("!{f7}", "Terminate") While 1 Sleep(10) Wend Func Terminate() Exit EndFunc8) Link to comment Share on other sites More sharing options...
Garanator Posted October 29, 2005 Author Share Posted October 29, 2005 ok yeah that works great. Thank you Garanator Link to comment Share on other sites More sharing options...
Confuzzled Posted October 29, 2005 Share Posted October 29, 2005 ok yeah that works great. Thank youGaranatorGUICtrlCreateLabel("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. 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