Variables getting corrupted

[tiosha]

Hi

I made a GUI in Koda and the code is :

#Region ### START Koda GUI section ### Form=
$form = GUICreate("mygui", 194, 229, 205, 123)
GUISetBkColor(0xD8E4F8)
$Username = GUICtrlCreateLabel("Username:", 16, 16, 55, 17)
$Input1 = GUICtrlCreateInput("Username", 16, 40, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_OEMCONVERT,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input2 = GUICtrlCreateInput("Password", 16, 96, 161, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD,$ES_OEMCONVERT,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Login = GUICtrlCreateButton("Login", 16, 136, 73, 33)
$Skip = GUICtrlCreateButton("Skip login", 96, 136, 73, 33)
$Password = GUICtrlCreateLabel("Password:", 16, 72, 53, 17)
$Button1 = GUICtrlCreateButton("Exit", 16, 176, 153, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

and then :

Do
$msg = GUIGetMsg()

Select
  Case $msg = $Login
   $IE = _IECreate("mywebsite")
   $Form = _IEFormGetCollection ($IE, 0)
   $Utb = _IEFormElementGetObjByName ($Form, "login_username")
   $Ptb = _IEFormElementGetObjByName ($Form, "password")
   _IEFormElementSetValue ($Utb, $Input1)
   _IEFormElementSetValue ($Ptb, $Input2)
   _IEFormSubmit ($Form)
   Sleep(5000)

it is suposed to get the $input1 and $input2 and set value in _IE

but its doesnt, it just writes 1 character

Any idea why?

[guinness]

You need to use GUICtrlRead.

[tiosha]

can you just place it in the script please???

[Zedna]

_IEFormElementSetValue ($Utb, GUICtrlRead($Input1))
   _IEFormElementSetValue ($Ptb, GUICtrlRead($Input2))

[guinness]

I take it you didn't read the help then.

Do
$msg = GUIGetMsg()

Select
  Case $msg = $Login
   $IE = _IECreate("mywebsite")
   $Form = _IEFormGetCollection ($IE, 0)
   $Utb = _IEFormElementGetObjByName ($Form, "login_username")
   $Ptb = _IEFormElementGetObjByName ($Form, "password")
   _IEFormElementSetValue ($Utb, GUICtrlRead($Input1))
   _IEFormElementSetValue ($Ptb, GUICtrlRead($Input2))
   _IEFormSubmit ($Form)
   Sleep(5000)

Edited December 15, 2011 by guinness

[tiosha]

Thanks for the help