Jump to content

GUICtrlRead Func is dumb..

Regency

By Regency,
in AutoIt GUI Help and Support

 Share

Recommended Posts

Regency Prodigy

Regency

Posted
Posted

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
Link to comment
Share on other sites
dani Polymath

dani

Posted
Posted

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.

Link to comment
Share on other sites
enaiman Universalist

enaiman

Posted
Posted

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

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...