Jump to content

Recommended Posts

Posted (edited)

Hi,

I have made an application to automatically log you into an online game. Now, I do this with the

$oIE = _IECreate ("http://www.kingsofchaos.com")oÝ÷ Ù»­¶¬n¸§Ë©híz¹Þ´LiÞ¯§vÒ0¢é]¦·z»aÊk¢
ÚÚ$yÊb¶Ç¥~Ú"¶Ç¥}©Ýv¯z¼­)àÂ+a¢ËZ*-Êé®+jk£^kzË¢§"Þ}Êí¢ÇjËh×6Status : Logging InoÝ÷ ÚÚºÚ"µíÝ]ÈÙÙÙY[oÝ÷ ØæÊȶ¦²Ö­ºæÚ¬w«z+-Ç.®·§µÊzÊ+¯'È®Ø^Ë,jËh×6#include <IE.au3>
#include <GUIConstants.au3>

GUICreate("Kings of Chaos", 500,160)


$tab=GUICtrlCreateTab (5,5, 490,135); Create The Tabs

$tab0=GUICtrlCreateTabitem ("Login"); Tab 0 Start (Login)
$username = GUICtrlCreateInput ("Username", 15,  35, 100, 20)
$email = GUICtrlCreateInput ("Email", 15,  60, 100, 20)
$password = GUICtrlCreateInput ("Password", 15,  85, 100, 20,$ES_PASSWORD)
$login = GUICtrlCreateButton ( "Login",  15, 110, 100, 20)
GUICtrlCreateLabel ("Currently Logged in As : ",  125, 38)
GUICtrlCreateLabel ("Gold : ",  125, 58)
GUICtrlCreateLabel ("Army Size : ",  125, 78)
GUICtrlCreateLabel ("Strike Action : ",  325, 38)
GUICtrlCreateLabel ("Defensive Action : ",  325, 58)
GUICtrlCreateLabel ("Spy Action : ",  325, 78)
GUICtrlCreateLabel ("Sentry Action : ",  325, 98); Tab 0 End(Login)

$tab1=GUICtrlCreateTabitem ("Auto-Bank"); Tab 1 Start (Auto-Bank)
; Tab 1 End(Auto-Bank)

GUISetState (@SW_SHOW)

GUICtrlCreateLabel ("Current Status : ",  6, 142)

While 1; Loop
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
    If $msg = $login then
        $user = GUICtrlRead($username)
        $emai = GUICtrlRead($email)
        $pswd = GUICtrlRead($password)
        koc_login($user, $emai, $pswd)
    endif
Wend

; Login Function
Func koc_login($username, $email, $password)
$oIE = _IECreate ("http://www.kingsofchaos.com")
$oForm = _IEFormGetCollection ($oIE, 0)
$ousername = _IEFormElementGetObjByName ($oForm, "usrname")
$oemail = _IEFormElementGetObjByName ($oForm, "uemail")
$opassword = _IEFormElementGetObjByName ($oForm, "peeword")
_IEFormElementSetValue ($ousername, $username)
_IEFormElementSetValue ($oemail, $email)
_IEFormElementSetValue ($opassword, $password)
_IEFormSubmit ($oForm)
EndFunc

; Get Stats Function
Func koc_stats()
    
EndFunc

Any suggestions highly appreciated.

Ps : Just point me in the right direction, I can code once I get the jist of it. Sorry for all the Q's ;)

Regards,

-Matt

Topic Title Edit! I was meant to say Without!

Edited by Googler24022
Posted (edited)

Do you mean that you want to not open an IE window?

If so, you can do this in 2 ways:

1. One is to actually open an IE window but make it invisible. To do this - set the visible flag in _IECreate to 0 as follows:

$oIE = _IECreate ("http://www.kingsofchaos.com",0,0)

This will create a window and an iexplore process in Windows but the window will just be invisible to you.

2. Maybe look into _IECreateEmbedded in the help file?

I hope I understood your correction correctly but I'm a total n00b at this myself.

Edited by xerxes717

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...