Regency Posted November 22, 2007 Share Posted November 22, 2007 Ok, how my script is set up, it makes a empty space where u need to click so u can see the $address & what ever i put. So i need to click 3 places before i even start the script. anyway i can get rid of them, or have it show imidiately? and not have me click.. its making me mad.. anyone have an idea..? 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 $Crime $Cr1 = GUICtrlRead($address) & "/crimes.aspx?" guictrlsetdata($Crime, $Cr1) Case $Gta $G1 = Guictrlread($address) & "/gta.aspx?" GUICtrlSetData($Gta, $G1) Case $Jail $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...
dani Posted November 22, 2007 Share Posted November 22, 2007 Ok, how my script is set up, it makes a empty space where u need to click so u can see the $address & what ever i put. So i need to click 3 places before i even start the script. anyway i can get rid of them, or have it show imidiately? and not have me click.. its making me mad.. anyone have an idea..?I tried, but I don't understand what you are saying :/ If you want something to start immediately after your GUI shows, just include it in the script just before the While 1 loop. Link to comment Share on other sites More sharing options...
enaiman Posted November 22, 2007 Share Posted November 22, 2007 GUICtrlRead function is not dumb at all ... in 99% cases the problem is not in the software but ... in the chair It has this "unwanted" behaviour because you scripted it this way: Case $Crime $Cr1 = GUICtrlRead($address) & "/crimes.aspx?" guictrlsetdata($Crime, $Cr1) Case $Gta $G1 = Guictrlread($address) & "/gta.aspx?" GUICtrlSetData($Gta, $G1) Case $Jail $J1 = GuiCtrlRead($address) & "/jail.aspx?" GUICtrlSetData($Jail,$J1) this part of the code says: "set data on those labels when the user clicks on them" ... any bell ringing? To make them show automatically remove these lines from your script and add the following code: 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) Coded this way it will update the info on those label whenever you change the content of your inputbox. SNMP_UDF ... for SNMPv1 and v2c so far, GetBulk and a new example script wannabe "Unbeatable" Tic-Tac-Toe Paper-Scissor-Rock ... try to beat it anyway :) 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