[Problem] IE /darkorbit

[karolkarol21621]

mam taki kod:

 

 

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 136, 113, 192, 124)
$Input1 = GUICtrlCreateInput("Login", 8, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Haslo", 8, 32, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Input3 = GUICtrlCreateInput("pl3", 96, 56, 33, 21)
$Button1 = GUICtrlCreateButton("Zaloguj!", 56, 80, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$ie=_IECreateEmbedded()
$Form1 = GUICreate("", 615, 438, 465, 212)
$Obj1 = GUICtrlCreateObj($ie, 0, 0, 613, 437)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 case $Button1
  login()
EndSwitch
WEnd

Func login()
$login=GUICtrlRead($Input1)
$haslo=GUICtrlRead($Input2)
$server=GUICtrlRead($Input3)
_IENavigate($ie, "darkorbit.wp.pl")
$forma=_IEFormGetObjByName($ie, "loginForm_default")
$f_login=_IEFormElementGetObjByName($forma, "loginForm_default_username")
$f_haslo=_IEFormElementGetObjByName($forma, "loginForm_default_password")
_IEFormElementSetValue($f_login, $login)
_IEFormElementSetValue($f_haslo, $haslo)
_IEFormSubmit($forma)
$edyt=_IEBodyReadHTML($ie)
$sid=_StringBetween($edyt, 'sid=', '&amp')
MsgBox(064, "", "twoj sid= " & $sid[0])
_IENavigate($ie, "http://" & $server & ".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=" & $sid[0])


EndFunc

 

 

 

Wszystko jest ok tylko zamiast się zalogowac to odsyla na strone glowna :/

[jackraymund]

a pokazuje w msgboxie twoj sid?

jeżeli nie to nie przeszło logowania i tam masz coś spierdolone

[KingSP1MPC]

w input wpisujesz numer numer serwera (mp. jeżeli chcesz zalogować się na 2 wpisz 3 czyli o 1 większy)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <String.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 136, 113, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 121, 21)
$Input2 = GUICtrlCreateInput("", 8, 32, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Input3 = GUICtrlCreateInput("", 96, 56, 33, 21,$ES_NUMBER)
GUICtrlSetLimit(-1,2,1)
$Button1 = GUICtrlCreateButton("Zaloguj!", 56, 80, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$ie=_IECreateEmbedded()
$Form1 = GUICreate("", 615, 438, 465, 212)
$Obj1 = GUICtrlCreateObj($ie, 0, 0, 613, 437)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
			 case $Button1
  login()
EndSwitch
WEnd

Func login()
$cobmatibility = GUICtrlRead($Input3)
$lol = GUICtrlSetData($Input3,"instance_"&$cobmatibility)
$login=GUICtrlRead($Input1)
$haslo=GUICtrlRead($Input2)
$server=GUICtrlRead($Input3)
_IENavigate($ie, "darkorbit.wp.pl")
$forma=_IEFormGetObjByName($ie, "loginForm_default")
$f_login=_IEFormElementGetObjByName($forma, "loginForm_default_username")
$f_haslo=_IEFormElementGetObjByName($forma, "loginForm_default_password")
_IEFormElementSetValue($f_login, $login)
_IEFormElementSetValue($f_haslo, $haslo)
_IEFormSubmit($forma)
$edyt=_IEBodyReadHTML($ie)
$sid=_StringBetween($edyt, 'sid=', '&amp')
MsgBox(064, "", "twoj sid= " & $sid[0])
$microsoft = _IEGetObjById($ie,$server)
_IEAction($microsoft , "click")




EndFunc