Login Script?

[Lambort]

expandcollapse popup

#include <GuiConstants.au3>
#include <IE.au3>

; GUI
GuiCreate("GBNA Launcher by Korbish", 400, 200)
GuiSetIcon(@SystemDir & "\mspaint.exe", 0)

; INPUT
$USERID = GuiCtrlCreateInput("", 120, 20, 130, 20)
$PASSWORD = GuiCtrlCreateInput("", 120, 40, 130, 20)

; BUTTON
$Save = GuiCtrlCreateButton("Save ID and Password.", 10, 140, 140, 30)
$Launch = GuiCtrlCreateButton(" Run Gunbound", 199, 140, 140, 30)

GuiSetState()
While 1
   $msg = GuiGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
       ExitLoop
   Case $msg = $Launch
       _Launch()
   EndSelect
WEnd
Exit

Func _Launch()
    $IE = _IECreate("http://login.ijji.com/login.nhn")
    Send( $USERID )
    Sleep( 1000)
    Send("{TAB}")
    Sleep( 1000)
    Send( $PASSWORD )
    Send("{ENTER}")
    $IE2 = _IECreate("http://gunbound.ijji.com/")
EndFunc



; GUI MESSAGE LOOP
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd

How do I get the defined $USERID and $PASSWORD that the user defines to enter into the browser window? it enters the number 3 and some other character in the password box no matter what I type in the two input fields.

[4gotn1]

you need to "GUICtrlRead($USERID)" to actually send the data

like so:

Func _Launch()
    Local $UserID_Read = GUICtrlRead($USERID)
    Local $Pass_Read = GUICtrlRead($PASSWORD)
 
    $IE = _IECreate("http://login.ijji.com/login.nhn")
    Send( $UserID_Read )
    Sleep( 1000)
    Send("{TAB}")
    Sleep( 1000)
    Send( $Pass_Read )
    Send("{ENTER}")
    $IE2 = _IECreate("http://gunbound.ijji.com/")
EndFunc

Edited October 23, 2006 by 4gotn1

[Lambort]

Alright, thanks a bunch.

-Alyssa

Edited October 23, 2006 by Lambort