Sign in to follow this  
Followers 0
gamepin126

Exiting GUI and still run script

6 posts in this topic

#1 ·  Posted (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

#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 by gamepin126

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

guidelete() it, and use return or something

Edited 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]

Share this post


Link to post
Share on other sites

I'm not sure how return works, I looked in the helpfile and I don't get it xD

Share this post


Link to post
Share on other sites

maybe

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


NEWHeader1.png

Share this post


Link to post
Share on other sites

Awesome, thanks :P

Share this post


Link to post
Share on other sites

Awesome, thanks :P

Welcome

8)


NEWHeader1.png

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