jdshjj Posted December 14, 2007 Share Posted December 14, 2007 I keep getting this error how can i fix it? Link to comment Share on other sites More sharing options...
Nahuel Posted December 14, 2007 Share Posted December 14, 2007 How about showing us your code? Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 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 Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 Any luck? Link to comment Share on other sites More sharing options...
Developers Jos Posted December 14, 2007 Developers Share Posted December 14, 2007 yea Nahuel, you already had 10 minutes to check the script .. what is taking you so long ? SciTE4AutoIt3 Full installer Download page  - Beta files    Read before posting   How to post scriptsource   Forum etiquette Forum Rules  Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 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 Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 (edited) Try this and tell me if you get an error. expandcollapse popup#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 December 14, 2007 by schilbiz Link to comment Share on other sites More sharing options...
Nahuel Posted December 14, 2007 Share Posted December 14, 2007 I helped ScopriA with some things for that game. I don't know what's causin the problem though, ask him. Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 I tried it but it dosnt login now Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 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. Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 I tried it but it dosnt login nowI 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. Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 i searched for ScopriA on members but he is not there Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 try with username jdshjj1234 Pass : 1234 Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 is it working for you? Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 try with username jdshjj1234 Pass : 1234It logged in fine for me. Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 it let me log in but it is not scripting the pages Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 does anybody no what ScorpiA's name is on here? Link to comment Share on other sites More sharing options...
schilbiz Posted December 14, 2007 Share Posted December 14, 2007 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. expandcollapse popup#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 Link to comment Share on other sites More sharing options...
jdshjj Posted December 14, 2007 Author Share Posted December 14, 2007 i tried that script and it logs in but the other windo still gets stuck on a connecting screen 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