Hallo liebe AutoIT Gemeinde,
ich bin gerade dabei mir das Leben zu erleichtern, allerdings haut das noch nicht so ganz hin. Ich würde gerne mehrere IE Embedded in meiner eigenen GUI öffnen. Dazu würde ich gerne die Funktion im IE "Neue Sitzung" nutzen, um mich an der gleichen Webseite mit unterschiedlichen Namen anzumelden. Leider funktioniert das nicht so einfach wie von mir gedacht. Hat hierzu jemand eine Idee?
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ie.au3>
FileInstall("portalAutoLogin.ini", @ScriptDir&"\portalAutoLogin.ini")
global $configFile = "portalAutoLogin.ini"
global $bukrsArr = IniReadSectionNames($configFile)
global $tabsArr[100]
global $oIEArr[100]
_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit];----------------------------------------------------------------------------------
; GUI - Splashscreen
;----------------------------------------------------------------------------------
$splash = GUICreate("Loading...", 345, 83, 528, 237)
$splashprogress = GUICtrlCreateProgress(24, 48, 294, 17)
$splashlabel = GUICtrlCreateLabel("Starte Anmeldungen", 24, 16, 207, 17)
GUISetState(@SW_SHOW)
;----------------------------------------------------------------------------------
;----------------------------------------------------------------------------------
; GUI
;----------------------------------------------------------------------------------
$PortalAutoLogin = GUICreate("PortalAutoLogin", 1201, 751, 221, 130)
$Tabarea = GUICtrlCreateTab(8, 40, 1185, 705)
for $i = 1 to $bukrsArr[0]
$progr = $i / $bukrsArr[0] * 100
_createTab($bukrsArr[$i])
_updateSplashscreen($bukrsArr[$i], $progr)
Next
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
$startagain = GUICtrlCreateButton("Start Auto Login again", 1040, 8, 147, 25)
$ie_back = GUICtrlCreateButton("<-", 8, 8, 35, 25)
$ie_forward = GUICtrlCreateButton("->", 48, 8, 35, 25)
$ie_stop = GUICtrlCreateButton("X", 88, 8, 35, 25)
GUISetState(@SW_SHOW)
;----------------------------------------------------------------------------------
GUIDelete($splash)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Exit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];----------------------------------------------------------------------------------
; FUNCTIONS
;----------------------------------------------------------------------------------
Func _createTab($bukrs)
$tabsArr[$bukrs] = GUICtrlCreateTabItem($bukrs)
$oIEArr[$bukrs] = _IECreateEmbedded()
GUICtrlCreateObj($oIEArr[$bukrs], 16, 72, 1169, 665)
_IENavigate($oIEArr[$bukrs], "http://URL TO PORTAL")
Local $oForm = _IEFormGetObjByName($oIEArr[$bukrs], "logonForm")
Local $oUser = _IEFormElementGetObjByName($oForm, "j_user")
Local $oPass = _IEFormElementGetObjByName($oForm, "j_password")
_IEFormElementSetValue($oUser, IniRead($configFile, $bukrs, "user", ""))
_IEFormElementSetValue($oPass, IniRead($configFile, $bukrs, "pass", ""))
_IEFormSubmit($oForm, 0)
EndFunc
Func _updateSplashscreen($bukrs, $progr)
GUICtrlSetData($splashprogress, $progr)
GUICtrlSetData($splashlabel, "Anmeldung an Portal "&$bukrs&" wird ausgeführt")
EndFunc
Die INI Datei enthält nur folgende Werte:
[name der website]
user=USERNAME
pass=PASSWORD
Vielen Dank für eure Hilfe und Ideen!
Benni