Jump to content

Browsing to a page with the explorer window


Recommended Posts

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
Link to comment
Share on other sites

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