Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Max\Eigene Dateien\Jappyprogramm\Form1.kxf
$Form1 = GUICreate("Login", 192, 147, 291, 192)
$Input1 = GUICtrlCreateInput("Username", 24, 24, 137, 21)
GUICtrlSetCursor (-1, 2)
$Input2 = GUICtrlCreateInput("Passwort", 24, 56, 137, 19)
GUICtrlSetFont(-1, 8, 400, 0, "OpenSymbol")
$Login = GUICtrlCreateButton("Login", 24, 80, 137, 25, 0)
$Label1 = GUICtrlCreateLabel("Made by M_Loves_L", 56, 120, 104, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Func login()
MsgBox(0,"Liebe für immer","M_Loves_L + Max_SchaTzii")
$ReadInput1=GUICtrlRead($Input1)
$ReadInput2=GUICtrlRead($Input2)
$oIE = _IECreate("jappy.de", 1, 1)
If IsObj($oIE) Then
_IELoadWait($oIE)
$oForm = _IEFormGetCollection ( $oIE, 0)
$oUsername = _IEFormElementGetObjByName($oForm, "login")
_IEFormElementSetValue($oUsername,$ReadInput1)
$oPasswd = _IEFormElementGetObjByName($oForm, "login[p]")
_IEFormElementSetValue($oPasswd,$ReadInput2)
$oSubmit = _IEFormElementGetObjByName($oForm,"Submit")
_IEAction($oSubmit,"click")
EndIf
IniWrite(@ScriptDir & "\usernamen.ini", $ReadInput1,"benutzername", $ReadInput1)
IniWrite(@ScriptDir & "\usernamen.ini", $ReadInput1,"passwort", $ReadInput2)
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Login
Call("login")
EndSwitch
WEnd
Hier hab ich iern programm was halt sich wo einloggt ,
funkt auch super aber mn mus jedes mal alles neu eingeben.
dabei saved der die angegeben daten schon in einer Ini.
ich weiß nun nicht wie ich denn den benurtzer namen im GUI auslese lasse
also in einer Comobox das man nur noch dne User namen auswöhlen muss und dann login in und halt nicht s mehr eingenbe
mfg