Jump to content
Sign in to follow this  
Regency

GUICtrlRead Func is dumb..

Recommended Posts

Regency

Ok, how my script is set up, it makes a empty space where u need to click so u can see the $address & what ever i put. So i need to click 3 places before i even start the script. anyway i can get rid of them, or have it show imidiately? and not have me click.. its making me mad.. anyone have an idea..?

#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
Opt("MustDeclareVars", 1); having this option set will help find mistakes before you run it. Such as using a variable before setting its value or misspelling a variable 

Global $Paused
Global $begin = 0
Global $begin2 = 0
Global $nMsg = 0
Global $age1 = ''
Global $name1 = ''
Global $pass1 = ''
Global $url1 = ''
Global $Cr1 = ''
Global $G1 = ''
Global $J1 = ''

SplashTextOn("ScopriA Auto Scripter", "I do not take responsibinity if you get banned or not. Have fun Scripting",-1, -1, -1, -1, 4, 4,"")
Sleep(3000)
SplashOff()

Global $Quick = GUICreate("Auto Scripter - By - ScorpiA" , 290, 350, 320, 300)
;Global $Quick = GUICreate("Auto Scripter - By - ScorpiA" , 290, 350, 320, 300)
Global $agegroup = GUICtrlCreateGroup("Would You Like to Script Jail?:", 8, 8, 265, 49)
Global $Selectone = GUICtrlCreateCombo("Select one", 16, 24, 145, 25)
    GUICtrlSetData(-1, "----------------------|Yes|No|")
Global $Saveage = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Desired = GUICtrlCreateGroup("TMN Login Name", 8, 56, 265, 49)
Global $username = GUICtrlCreateInput("", 16, 72, 145, 21)
Global $savename = GUICtrlCreateButton("Save", 168, 72, 75, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $DesiredP = GUICtrlCreateGroup("Password", 8, 104, 265, 49)
Global $password = GUICtrlCreateInput("", 16, 120, 145, 21)
Global $savepassword = GUICtrlCreateButton("Save", 168, 120, 75, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $StartUrl = GUICtrlCreateGroup("Address to log into TMN with", 8, 152, 256, 49)
Global $address = GUICtrlCreateInput("", 16, 168, 145, 21)
Global $saveurl = Guictrlcreatebutton("Save", 168, 168 ,75, 25, 0)
GuictrlCreategroup("",-99, -99, 1, 1)
    

    
Global $Age = GUICtrlCreateLabel("", 8, 208, 250, 17)
Global $User = GUICtrlCreateLabel("", 8, 224, 250, 17)
Global $Pass = GUICtrlCreateLabel("", 8, 240, 250, 17)
Global $Url = GUICtrlCreatelabel("",8, 256, 250, 17)
Global $Crime = GUICtrlCreatelabel("", 8, 272, 250, 17) ; This is the line i need to click to see the url and the criemes url
Global $Jail = GUICtrlCreatelabel("", 8, 288, 250, 17) ; same here
Global $Gta = GUICtrlCreatelabel("", 8, 304, 250, 17); and here   How can i made these show up with out clicking them?
Global $Make = GUICtrlCreateButton("Start Auto Scripter By ScorpiA", 8, 320, 267, 25, 0)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Saveage
            If GUICtrlRead($Selectone) = "Select one"  Or GUICtrlRead($Selectone) = "----------------------"  Then
                Sleep(1000)
            Else
                $age1 = GUICtrlRead($Selectone)
                GUICtrlSetData($Age, $age1)
            EndIf
        Case $savename
            $name1 = GUICtrlRead($username)
            GUICtrlSetData($User, $name1)
        Case $savepassword
            $pass1 = GUICtrlRead($password)
            GUICtrlSetData($Pass, $pass1)
        Case $saveurl
            $url1 = GUICtrlRead($address) & "/userlogin.aspx?"
            Guictrlsetdata($Url, $url1)
         Case $Crime
            $Cr1 = GUICtrlRead($address) & "/crimes.aspx?"
            guictrlsetdata($Crime, $Cr1)
        Case $Gta
            $G1 = Guictrlread($address) & "/gta.aspx?"
            GUICtrlSetData($Gta, $G1)
        Case $Jail
            $J1 = GuiCtrlRead($address) & "/jail.aspx?" 
            GUICtrlSetData($Jail,$J1)
        Case $Make
            myRun()
    EndSwitch
WEnd


Func myRun()
    HotKeySet("{Home}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")
    
    Local $dif = ''
    Local $AgeValue = ''
    Local $oIE = 0
    Local $oUser = 0
    Local $oPass = 0
    Local $oLogIn = 0
    Local $bLoop = 1

    
    $AgeValue = GUICtrlRead($Age)
    $oIE = _IECreate($Url1)
    _IELoadWait($oIE)
    WinSetState("TheMafiaNetwork - Internet Explorer", "", @SW_MAXIMIZE)
    $oUser = _IEGetObjByName($oIE, "txtuid")
    _IEFormElementSetValue($oUser, $name1)
    $oPass = _IEGetObjByName($oIE, "txtpwd")
    _IEFormElementSetValue($oPass, $pass1)
    $oLogIn = _IEGetObjByName($oIE, "Button1")
    _IEAction($oLogIn, "click")
    _IELoadWait($oIE)

    If $AgeValue = "No"  Then
        $begin = ""
        $begin2 = ""
        MyFunction()
        $begin = TimerInit()
        $begin2 = TimerInit()
        
        While 2
            Sleep(100)
            $dif = Int(TimerDiff($begin) / 1000)
            If $dif >= (2 * 60) Then
                MyFunction()
                $begin = TimerInit()
            EndIf
        WEnd
    ElseIf $AgeValue = "Yes"  Then
    $begin = ""
    $begin2 = ""
    MyFunction()
    $begin = TimerInit()
    $begin2 = TimerInit()
    
    $oIE = _IECreate($J1)
      ;~ "TheMafiaNetwork - Nationl Jail - Internet Explorer" 
        _IELoadWait($oIE)
        WinSetState("TheMafiaNetwork - National Jail - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
        WinSetState("TheMafiaNetwork - National Jail - Microsoft Internet Explorer", "", @SW_MINIMIZE)

        $bLoop = 1
        While $bLoop = 1
            For $var = 0 To 100 Step 1
                _IELoadWait($oIE)
                _IELinkClickByText($oIE, "Break")
                _IELoadWait($oIE)
                _IENavigate($oIE, $J1)
            Next
            WinSetState("TheMafiaNetwork - National Jail - Microsoft Internet Explorer", "", @SW_MAXIMIZE)
            sleep(900)
            If IsArray(PixelSearch(603,200,655,215,9175040,"",2)) = 1 Then
        $bLoop = 0
        MsgBox(0,"Verification Box Present","Please Enter Verification Code For Script To Resume")
        sleep(20000)
        $bLoop = 1
        
    Else
        If IsArray(PixelSearch(603,200,655,215,9175040,"",2)) = 0 Then
        WinSetState("TheMafiaNetwork - National Jail - Microsoft Internet Explorer", "", @SW_MINIMIZE)
        Else 
            $bLoop = 1
                EndIf
            EndIf
        WEnd

  

    While 2
        Sleep(10)
        $dif = Int(TimerDiff($begin) / 1000)
        If $dif >= (2 * 60) Then
            MyFunction()
            $begin = TimerInit()
        EndIf
    WEnd
    Endif
EndFunc ;==>myRun

Func MyFunction()
    Local $oIE = 0
    Local $dif2 = ''
    Local $oSubmit = 0
    Local $oRadio = 0
    
    $oIE = _IECreate($Cr1)
      WinSetState("The Mafia Network - Crimes - Microsoft Internet Explorer", "", @SW_MINIMIZE)
  $oSubmit = _IEGetObjByName ($oIE, "btncrime1")
_IEAction ($oSubmit, "click")
_IELoadWait ($oIE)
    _IEQuit($oIE)
    $dif2 = Int(TimerDiff($begin2) / 1000)
    If $dif2 >= (4 * 60) Then
        $oIE = _IECreate($G1)
        WinSetState("The Mafia Network - Grand Theft Auto - Microsoft Internet Explorer", "", @SW_MINIMIZE)
;~ "TheMafianetwork - Grand Theft Auto - Internet Explorer"
        _IELoadWait($oIE)
        $begin2 = TimerInit()
        $oRadio =_IEGetObjById($oIE,"carslist_2")
        _IEAction($oRadio,"click")
         $oSubmit = _IEGetObjByName ($oIE, "Submit1")
          _IEAction ($oSubmit, "click")
          _IELoadWait($oIE)
          _IEQuit($oIE)
    EndIf

EndFunc ;==>MyFunction

Func MyFunction2()
    Local $oIE = 0
    Local $dif2 = ''
    Local $oSubmit = 0
    Local $oRadio = 0

    $oIE = _IECreate($Cr1)
    WinSetState("The Mafia Network - Crimes - Microsoft Internet Explorer", "", @SW_MINIMIZE)
;~ "The Mafia network - Crimes - Internet Explorer"
  $oSubmit = _IEGetObjByName ($oIE, "btncrime1")
_IEAction ($oSubmit, "click")
_IELoadWait ($oIE)
    _IEQuit($oIE)                   
    
    $dif2 = Int(TimerDiff($begin2) / 1000)
    If $dif2 >= (4 * 60) Then
        $oIE = _IECreate($G1)
        WinSetState("The Mafia Network - Grand Theft Auto - Microsoft Internet Explorer", "", @SW_MINIMIZE)
;~ "TheMafianetwork - Grand Theft Auto - Internet Explorer"
      _IELoadWait($oIE)
        $begin2 = TimerInit()
        $oRadio =_IEGetObjById($oIE,"carslist_2")
        _IEAction($oRadio,"click")
         $oSubmit = _IEGetObjByName ($oIE, "Submit1")
          _IEAction ($oSubmit, "click")
          _IELoadWait($oIE)
          _IEQuit($oIE)
    EndIf

EndFunc ;==>MyFunction2

While 3
    Sleep(100)
WEnd


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 
EndFunc

Share this post


Link to post
Share on other sites
dani

Ok, how my script is set up, it makes a empty space where u need to click so u can see the $address & what ever i put. So i need to click 3 places before i even start the script. anyway i can get rid of them, or have it show imidiately? and not have me click.. its making me mad.. anyone have an idea..?

I tried, but I don't understand what you are saying :/ If you want something to start immediately after your GUI shows, just include it in the script just before the While 1 loop.

Share this post


Link to post
Share on other sites
enaiman

GUICtrlRead function is not dumb at all ... in 99% cases the problem is not in the software but ... in the chair :P

It has this "unwanted" behaviour because you scripted it this way:

Case $Crime
            $Cr1 = GUICtrlRead($address) & "/crimes.aspx?"
            guictrlsetdata($Crime, $Cr1)
        Case $Gta
            $G1 = Guictrlread($address) & "/gta.aspx?"
            GUICtrlSetData($Gta, $G1)
        Case $Jail
            $J1 = GuiCtrlRead($address) & "/jail.aspx?" 
            GUICtrlSetData($Jail,$J1)

this part of the code says: "set data on those labels when the user clicks on them" ... any bell ringing?

To make them show automatically remove these lines from your script and add the following code:

Case $address
$Cr1 = GUICtrlRead($address) & "/crimes.aspx?"
            guictrlsetdata($Crime, $Cr1)
$G1 = Guictrlread($address) & "/gta.aspx?"
            GUICtrlSetData($Gta, $G1)
$J1 = GuiCtrlRead($address) & "/jail.aspx?" 
            GUICtrlSetData($Jail,$J1)

Coded this way it will update the info on those label whenever you change the content of your inputbox.


SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script

wannabe "Unbeatable" Tic-Tac-Toe

Paper-Scissor-Rock ... try to beat it anyway :)

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  

×