Sign in to follow this  
Followers 0
Kolsboy

Themafinetwork

2 posts in this topic

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

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

Any1 that got a script for jail or can help me out?

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Give it GuiSetState() to show the GUI

#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 by DeeRiee

Sorry 4 Bad English, I'm Indonesian...I'm really need 'Translator' for helping me posting in this forum (http://deeriee.wordpress.com)

Share this post


Link to post
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
Sign in to follow this  
Followers 0