Jump to content
Sign in to follow this  
jdshjj

HELP

Recommended Posts

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

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

yea Nahuel, you already had 10 minutes to check the script .. what is taking you so long ?

:)

Share this post


Link to post
Share on other sites

yea Nahuel, you already had 10 minutes to check the script .. what is taking you so long ?

^_^

I know, what is up with Nahuel today, hes so slow... lol :)

Share this post


Link to post
Share on other sites

Try this and tell me if you get an error.

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

Edit: Code

Edited by schilbiz

Share this post


Link to post
Share on other sites

I helped ScopriA with some things for that game. I don't know what's causin the problem though, ask him.

Share this post


Link to post
Share on other sites

I helped ScopriA with some things for that game. I don't know what's causin the problem though, ask him.

I was completely being sarcastic Nahuel, although I can not speak for Jos, I am pretty sure he was as well.

Share this post


Link to post
Share on other sites

I tried it but it dosnt login now

I don't have a username or password to get into the game with to really test it out. I just looked over it and changed what I thought needed it.

I would save it to a new file if you don't have any other code to add to it. It seemed to work fine for me.

Share this post


Link to post
Share on other sites

does anybody no what ScorpiA's name is on here?

This should work, if not you might have to just change a few minor things.

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

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  

×
×
  • Create New...