Jump to content
Sign in to follow this  
Regency

Random Radio Select Value

Recommended Posts

Regency

This is pissing me off SOO much.. I am about to fucking throw my computer out the window. Some help em with this i have been fiddeling with this for freaking WEEKS!!

The ~~~~~~~~~~ Is where the freaking probelm is...

#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 = ''

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)
Global $Jail = GUICtrlCreatelabel("", 8, 288, 250, 17)
Global $Gta = GUICtrlCreatelabel("", 8, 304, 250, 17)
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
    _IELoadWait($oIE)
    $begin = ""
    $begin2 = ""
    MyFunction2()
    $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)
            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
    EndIf

  

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

Func MyFunction()
    Local $oIE = 0
    Local $dif2 = ''
    Local $oSubmit = 0
    
    $oIE = _IECreate($Cr1)
  $oSubmit = _IEGetObjByName ($oIE, "btncrime1")
_IEAction ($oSubmit, "click")
_IELoadWait ($oIE)
    _IEQuit($oIE)
    $dif2 = Int(TimerDiff($begin2) / 1000)
    If $dif2 >= (4 * 60) Then
   ~~~~~~~~~~~~~~~~~~~~~~~~~~;And Below:
     $oIE = _IECreate($G1)
;~ "TheMafianetwork - Grand Theft Auto - Internet Explorer"
        _IELoadWait($oIE)
        $begin2 = TimerInit()
       $oForm = _IEGetObjByName ($oIE, "Form1")
  _IEFormElementRadioSelect($oForm, 51, "carslist")
  _IEAction ($oForm, "click")
  $oSubmit = _IEGetObjByName ($oIE, "Submit1")
_IEAction ($oSubmit, "click")
_IELoadWait ($oIE)
        _IEQuit($oIE)
    EndIf
~~~~~~~~~~~~~~~~~~~~~~~~~~End problem till its called again...
EndFunc ;==>MyFunction

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

    $oIE = _IECreate($Cr1)
;~ "TheMafianetwork - 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) ("form1")
;~ "TheMafianetwork - Grand Theft Auto - Internet Explorer"
        _IELoadWait($oIE)
        $begin2 = TimerInit()
$oSubmit = _IEGetObjByName ($oIE, "")
_IEAction ($oSubmit, "click")

        _IEQuit($oIE)

    EndIf
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~This one is mutilated because i was trying to fix it and got so pissed off i saved and walked the fuck away. but now i need this freaking script t work or i am gunna feel stupid. Someone help me. The Radio id and value shit at bottom.
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

<td><input id="carslist_0" type="radio" name="carslist" value="50" /><label for="carslist_0">Steal car from a public parking lot&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(50% Chance)</label></td>
        </tr><tr>

            <td><input id="carslist_1" type="radio" name="carslist" value="57" /><label for="carslist_1">Steal car from a building parking lot&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(57% Chance)</label></td>
        </tr><tr>
            <td><input id="carslist_2" type="radio" name="carslist" value="62" /><label for="carslist_2">Steal car from a residential place&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(62% Chance)</label></td>
        </tr><tr>
            <td><input id="carslist_3" type="radio" name="carslist" value="55" /><label for="carslist_3">Pick Pocket Keys&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(55% Chance)</label></td>
        </tr><tr>

            <td><input id="carslist_4" type="radio" name="carslist" value="63" /><label for="carslist_4">Car jack from street&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(63% Chance)</label></td>
        </tr><tr>
            <td><input id="carslist_5" type="radio" name="carslist" value="65" /><label for="carslist_5">Steal car from network:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(65% Chance)</label></td>
        </tr>
Thats the HTML form the website i was looking at. U want the Carlist_2 to work. but it switches values also.. i am so pissed off this thing is eluding me.. someone. Make the elementradioselect work!!

Share this post


Link to post
Share on other sites
FireLord

You really think all your crying will get someone to help you?

Make the elementradioselect work!!

Try asking for help a different way, you'll get much better results.

[center]See the Helpfile[/center]
While Alive()
	 DrinkWine();
}
[center][/center]

Share this post


Link to post
Share on other sites
Regency

You really think all your crying will get someone to help you?

Try asking for help a different way, you'll get much better results.

.. Can u seriously stop talking?

And i aint crying shitface... Its called bitching. And its called i am pissed off.. and You aint nothing special. Doubt u could fix it anyways

Share this post


Link to post
Share on other sites
SmOke_N

.. Can u seriously stop talking?

And i aint crying shitface... Its called bitching. And its called i am pissed off.. and You aint nothing special. Doubt u could fix it anyways

Your use of obscenities will not be tolerated despite your current mood.

Maybe locking this thread and you sulking over no one helping you even more will get that through.

Edited by SmOke_N

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×