Meshios Posted July 4, 2006 Share Posted July 4, 2006 hi if anyone could make this into a gui , I'd be so happy. expandcollapse popupMsgBox(1, "Auto-Heal", "F5 - 15 Seconds | F6 - 30 Seconds | F7 - 45 Seconds | F8 - 1 MINUTES | F9 - 1.15 MINUTES | F10 - 1.30 MINUTES | F11 - 1.45 MINUTES | F12 - 2 MINUTES | NUMPAD0 - STOP ALL| NUMPAD 1 - Left CLICK | NUMPAD2 - Right Click | NUMPAD3 - Auto Loot | Made By MJB Crew") HotKeySet("{F5}", "FFFFF") HotKeySet("{F6}", "FFFFFF") HotKeySet("{F7}", "FFFFFFF") HotKeySet("{F8}", "FFFFFFFF") HotKeySet("{F9}", "FFFFFFFFF") HotKeySet("{F10}", "FFFFFFFFFF") HotKeySet("{F11}", "FFFFFFFFFFF") HotKeySet("{F11}", "FFFFFFFFFFFF") HotKeySet("{NUMPAD0}", "StopAll") HotKeySet("{NUMPAD5)", "Terminate") TrayTip("AFK PROGRAM", "Go to MPC Forums , for more updates.", 3, 2) Func FFFFF () While 1 Send("Q") Sleep(15000) WEnd EndFunc Func FFFFFF () While 1 Send("Q") Sleep(30000) WEnd EndFunc Func FFFFFFF () While 1 Send("Q") Sleep(45000) WEnd EndFunc Func FFFFFFFF () While 1 Send("Q") Sleep(60000) WEnd EndFunc Func FFFFFFFFF () While 1 Send("Q") Sleep(75000) WEnd EndFunc Func FFFFFFFFFF () While 1 Send("Q") Sleep(90000) WEnd EndFunc Func FFFFFFFFFFF () While 1 Send("Q") Sleep(105000) WEnd EndFunc Func FFFFFFFFFFFF () While 1 Send("Q") Sleep(120000) WEnd EndFunc Func StopAll () While 1 Sleep(1) WEnd EndFunc Func Terminate () Exit EndFunc While 1 Sleep(1) WEnd Link to comment Share on other sites More sharing options...
Nuffilein805 Posted July 4, 2006 Share Posted July 4, 2006 expandcollapse popup#include <guiconstants.au3> $main = guicreate("Main", 300, 300) $combo = guictrlcreatecombo ("Choose!", 10, 10, 100) guictrlsetdata(-1, "15s|30s|45s|60s|75s|90s|105s|120s") $button = guictrlcreatebutton ("Apply", 120, 10) $stop = guictrlcreatebutton ("Stop", 120, 40) guisetstate() while 1 $msg = guigetmsg() if $msg = $GUI_EVENT_CLOSE then exit if $msg = $button then select case guictrlread($combo) = "15s" FFFFF() case guictrlread($combo) = "30s" FFFFFF() case guictrlread($combo) = "45s" FFFFFFF() case guictrlread($combo) = "60s" FFFFFFFF() case guictrlread($combo) = "75s" FFFFFFFFF() case guictrlread($combo) = "90s" FFFFFFFFFF() case guictrlread($combo) = "105s" FFFFFFFFFFF() case guictrlread($combo) = "120s" FFFFFFFFFFFF() endselect endif wend Func FFFFF () While 1 Send("Q") Sleep(15000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFF () While 1 Send("Q") Sleep(30000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFFF () While 1 Send("Q") Sleep(45000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFFFF () While 1 Send("Q") Sleep(60000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFFFFF () While 1 Send("Q") Sleep(75000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFFFFFF () While 1 Send("Q") Sleep(90000) WEnd EndFunc Func FFFFFFFFFFF () While 1 Send("Q") Sleep(105000) if $msg = $stop then exitloop WEnd EndFunc Func FFFFFFFFFFFF () While 1 Send("Q") Sleep(120000) if $msg = $stop then exitloop WEnd EndFunc hope thats what you need my little chatmy little encryption toolmy little hidermy unsafe clickbot 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