Kolsboy Posted December 8, 2008 Share Posted December 8, 2008 Hi I want to script jail, gta and crimes.this is what I have tried:CODE#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 variableGlobal $name1 = ''Global $pass1 = ''Global $url1 = ''Global $nMsg = 0Global $J1 = ''Global $M1 = ''SplashTextOn("ScopriA Auto Scripter", "I do not take responsibinity if you get banned or not. Have fun Scripting. The script is kinda self explanitory. Have fun ~~ScorpiA~~ Sabotage|| Corruption|| Infiltrate|| Assassinate||", -1, -1, -1, -1, 4, 4, "")Sleep(3000)SplashOff()Global $Quick = GUICreate("Auto Jailer - By - ScorpiA", 290, 200, 340, 300)Global $Desired = GUICtrlCreateGroup("TMN Login Name", 8, 8, 265, 49) ; ***Global $username = GUICtrlCreateInput("", 16, 24, 145, 21)Global $savename = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0)GUICtrlCreateGroup("", -99, -99, 1, 1)Global $DesiredP = GUICtrlCreateGroup("Password", 8, 56, 265, 49) ; *****Global $password = GUICtrlCreateInput("", 16, 72, 145, 21)Global $savepassword = GUICtrlCreateButton("Save", 168, 72, 75, 25, 0)GUICtrlCreateGroup("", -99, -99, 1, 1)Global $StartUrl = GUICtrlCreateGroup("Address to log into TMN with", 8, 104, 256, 49) ; http://themafianetwork.netGlobal $address = GUICtrlCreateInput("", 16, 120, 145, 21)Global $saveurl = GUICtrlCreateButton("Save", 168, 120, 75, 25, 0)GUICtrlCreateGroup("", -99, -99, 1, 1)Global $User = GUICtrlCreateLabel("", 8, 352, 250, 17) ; ****Global $Pass = GUICtrlCreateLabel("", 8, 368, 250, 17) ; ****Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17) ; http://themafianetwork.netGlobal $Make = GUICtrlCreateButton("Start Auto Jailer By ScorpiA - Hit ESC to Exit", 8, 168, 267, 25, 0)While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit 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 $Make MyRun() EndSwitchWEndFunc MyRun() Local $dif = '' Local $oLoginPage = 0 Local $oUser = 0 Local $oPass = 0 Local $oLogIn = 0 Local $bLoop = 1 Local $Mail = '' $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) $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 2 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 WEndEndFuncAny1 that got a script for jail or can help me out? Link to comment Share on other sites More sharing options...
DeeRiee Posted December 8, 2008 Share Posted December 8, 2008 (edited) Give it GuiSetState() to show the GUI expandcollapse popup#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 Global $name1 = '' Global $pass1 = '' Global $url1 = '' Global $nMsg = 0 Global $J1 = '' Global $M1 = '' SplashTextOn("ScopriA Auto Scripter", "I do not take responsibinity if you get banned or not. Have fun Scripting. The script is kinda self explanitory. Have fun ~~ScorpiA~~ Sabotage|| Corruption|| Infiltrate|| Assassinate||", -1, -1, -1, -1, 4, 4, "") Sleep(3000) SplashOff() Global $Quick = GUICreate("Auto Jailer - By - ScorpiA", 290, 200, 340, 300) Global $Desired = GUICtrlCreateGroup("TMN Login Name", 8, 8, 265, 49); *** Global $username = GUICtrlCreateInput("", 16, 24, 145, 21) Global $savename = GUICtrlCreateButton("Save", 168, 24, 75, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $DesiredP = GUICtrlCreateGroup("Password", 8, 56, 265, 49); ***** Global $password = GUICtrlCreateInput("", 16, 72, 145, 21) Global $savepassword = GUICtrlCreateButton("Save", 168, 72, 75, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $StartUrl = GUICtrlCreateGroup("Address to log into TMN with", 8, 104, 256, 49); http://themafianetwork.net Global $address = GUICtrlCreateInput("", 16, 120, 145, 21) Global $saveurl = GUICtrlCreateButton("Save", 168, 120, 75, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) Global $User = GUICtrlCreateLabel("", 8, 352, 250, 17); **** Global $Pass = GUICtrlCreateLabel("", 8, 368, 250, 17); **** Global $Url = GUICtrlCreateLabel("", 8, 384, 250, 17); http://themafianetwork.net Global $Make = GUICtrlCreateButton("Start Auto Jailer By ScorpiA - Hit ESC to Exit", 8, 168, 267, 25, 0) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit 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 $Make MyRun() EndSwitch WEnd Func MyRun() Local $dif = '' Local $oLoginPage = 0 Local $oUser = 0 Local $oPass = 0 Local $oLogIn = 0 Local $bLoop = 1 Local $Mail = '' $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) $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 2 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 Its working for me Edited December 8, 2008 by DeeRiee Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now