Jump to content

Script runs, Gui is hidden, Why


Regency
 Share

Recommended Posts

What is wrong with this script... I had a longer version with more options, but wanted to cut it down.

Why wont the GUI show?

#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

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) ; Log in name for Themafianetwork.net
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) ; Password for the acct stated above
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) ; You can use proxys if you like, it just needs to get you to The mafia network
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) ; 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 $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()
    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
Link to comment
Share on other sites

  • Moderators

GUISetState(@SW_SHOW)

Oh, that's when you know you need to open the help file ... when "she" answers a question! :)

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

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...