gamepin126 Posted August 18, 2006 Share Posted August 18, 2006 (edited) Not sure how to go about this, but this is what I have, and just need to exit the GUI, and still allow the second While loop to run. I was thinking about input windows, but I didn't like the ideas of 4 windows popping up, that could be annoying expandcollapse popup#include <misc.au3> #include <GuiConstants.au3> ;X: 225 Y: 186 top left ;X: 524 Y: 429 bottom right ; 0xFF0000 color ;shoutbox ;X: 1055 Y: 445 left top ;X: 1244 Y: 594 right bottom ;~ ================================ ;~ UP ARROW - Auto Click w/ no aimbot ;~ RIGHT ARROW - Aimbot w/ auto click ;~ DOWN ARROW - Turn off autoclick or aimbot ;~ LEFT ARROW - Exit ;~ ~gamepin126 "RAWR" ;~ ================================ GuiCreate("Input Coords", 157, 139,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $In_Left_X = GuiCtrlCreateInput("", 10, 30, 60, 20) $In_Top_Y = GuiCtrlCreateInput("", 90, 30, 60, 20) $In_Right_X = GuiCtrlCreateInput("", 10, 80, 60, 20) $In_Bottom_Y= GuiCtrlCreateInput("", 90, 80, 60, 20) $Left_X_Lbl = GuiCtrlCreateLabel("Left X:", 20, 10, 40, 20) $Top_Y_Lbl = GuiCtrlCreateLabel("Top Y:", 100, 10, 40, 20) $Right_X_Lbl = GuiCtrlCreateLabel("Right X:", 20, 60, 40, 20) $Bottom_X_Lbl = GuiCtrlCreateLabel("Bottom Y:", 100, 60, 50, 20) $Sub_Btn = GuiCtrlCreateButton("SUBMIT", 40, 110, 80, 20) $Left_X = "" $Top_Y = "" $Right_X = "" $Bot_Y = "" GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $Sub_Btn GUICtrlSetData($Left_X, GUICtrlRead($In_Left_X)) GUICtrlSetData($Top_Y, GUICtrlRead($In_Top_Y)) GUICtrlSetData($Right_X, GUICtrlRead($In_Right_X)) GUICtrlSetData($Bot_Y, GUICtrlRead($In_Bottom_Y)) ExitLoop Case Else EndSelect WEnd While 1 If _IsPressed("25") Then Exit ;LEFT ARROW If _IsPressed("26") Then ;UP ARROW Do MouseClick("left") Sleep(10) Until _IsPressed("28") ; DOWN ARROW EndIf If _IsPressed("27") Then ; RIGHT ARROW Do WinWaitActive("BWHacks - Powered by vBulletin - Mozilla Firefox") $coord = PixelSearch($Left_X, $Top_Y, $Right_X, $Bot_Y, 0xFF0000) ;search coords If IsArray($coord) Then MouseMove($coord[0], $coord[1] - 10) MouseClick("left") Sleep(10) EndIf Until _IsPressed("28") ; DOWN ARROW EndIf Sleep(100) ; This will change the scripts hog on resources WEnd Edited August 18, 2006 by gamepin126 Link to comment Share on other sites More sharing options...
eynstyne Posted August 18, 2006 Share Posted August 18, 2006 (edited) guidelete() it, and use return or something Edited August 18, 2006 by eynstyne F@m!ly Guy Fr33k! - Avatar speaks for itself__________________________________________________________________________________________ite quotes... - Is your refrigerator running? If it is, It probably runs like you...very homosexually - Christians don't believe in gravity - Geeze Brian where do you think you are, Payless?- Show me potato Salad!__________________________________________________________________________________________Programs available - Shutdown timer[indent][/indent] Link to comment Share on other sites More sharing options...
gamepin126 Posted August 18, 2006 Author Share Posted August 18, 2006 I'm not sure how return works, I looked in the helpfile and I don't get it xD Link to comment Share on other sites More sharing options...
Valuater Posted August 18, 2006 Share Posted August 18, 2006 maybe expandcollapse popup#include <misc.au3> #include <GuiConstants.au3> HotKeySet("{F9}", "_Start") Dim $Left_X = "", $Top_Y = "", $Right_X = "", $Bot_Y = "" ;X: 225 Y: 186 top left ;X: 524 Y: 429 bottom right ; 0xFF0000 color ;shoutbox ;X: 1055 Y: 445 left top ;X: 1244 Y: 594 right bottom ;~ ================================ ;~ UP ARROW - Auto Click w/ no aimbot ;~ RIGHT ARROW - Aimbot w/ auto click ;~ DOWN ARROW - Turn off autoclick or aimbot ;~ LEFT ARROW - Exit ;~ ~gamepin126 "RAWR" ;~ ================================ _Start() Func _Start() $My_GUI = GuiCreate("Input Coords", 157, 139,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)) $In_Left_X = GuiCtrlCreateInput("", 10, 30, 60, 20) $In_Top_Y = GuiCtrlCreateInput("", 90, 30, 60, 20) $In_Right_X = GuiCtrlCreateInput("", 10, 80, 60, 20) $In_Bottom_Y= GuiCtrlCreateInput("", 90, 80, 60, 20) $Left_X_Lbl = GuiCtrlCreateLabel("Left X:", 20, 10, 40, 20) $Top_Y_Lbl = GuiCtrlCreateLabel("Top Y:", 100, 10, 40, 20) $Right_X_Lbl = GuiCtrlCreateLabel("Right X:", 20, 60, 40, 20) $Bottom_X_Lbl = GuiCtrlCreateLabel("Bottom Y:", 100, 60, 50, 20) $Sub_Btn = GuiCtrlCreateButton("SUBMIT", 40, 110, 80, 20) GuiSetState() While 1 $msg = GuiGetMsg() Select Case $msg = $Sub_Btn GUICtrlSetData($Left_X, GUICtrlRead($In_Left_X)) GUICtrlSetData($Top_Y, GUICtrlRead($In_Top_Y)) GUICtrlSetData($Right_X, GUICtrlRead($In_Right_X)) GUICtrlSetData($Bot_Y, GUICtrlRead($In_Bottom_Y)) ExitLoop Case Else EndSelect WEnd GUIDelete($My_GUI) EndFunc While 1 If _IsPressed("25") Then Exit ;LEFT ARROW If _IsPressed("26") Then ;UP ARROW Do MouseClick("left") Sleep(10) Until _IsPressed("28") ; DOWN ARROW EndIf If _IsPressed("27") Then ; RIGHT ARROW Do WinWaitActive("BWHacks - Powered by vBulletin - Mozilla Firefox") $coord = PixelSearch($Left_X, $Top_Y, $Right_X, $Bot_Y, 0xFF0000) ;search coords If IsArray($coord) Then MouseMove($coord[0], $coord[1] - 10) MouseClick("left") Sleep(10) EndIf Until _IsPressed("28") ; DOWN ARROW EndIf Sleep(100) ; This will change the scripts hog on resources WEnd 8) Link to comment Share on other sites More sharing options...
gamepin126 Posted August 18, 2006 Author Share Posted August 18, 2006 Awesome, thanks Link to comment Share on other sites More sharing options...
Valuater Posted August 18, 2006 Share Posted August 18, 2006 Awesome, thanks Welcome8) 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