hi, wie kann ich das so machen, das sich zuerst ein fenster öffnet wo man Login Server und passwort angeben muss? und das man dan auf einloggen geht und dan öfnet sich das fenster mit den "Werten".
InputBox("Security Check", "Enter your password.", "", "*")
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHttp.au3>
#include <String.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 197, 219, 193, 125)
$Login_Button = GUICtrlCreateButton("Login", 40, 168, 113, 33, 0)
$Login_Label = GUICtrlCreateLabel("Username:", 40, 24, 55, 17)
$login_input = GUICtrlCreateInput("", 40, 40, 121, 21)
$Login_Label2 = GUICtrlCreateLabel("Passwort:", 40, 64, 50, 17)
$passwort_input = GUICtrlCreateInput("", 40, 88, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Login_Button
Start
EndSwitch
WEnd
#Region ### START Koda GUI section ### Form=
$BananenKoenig = GUICreate("BananenKönig", 218, 169, 249, 129)
GUISetBkColor(0xD7E4F2)
GUICtrlCreateLabel("Bananenpflanzen:", 16, 16, 90, 17)
GUICtrlCreateLabel("Geld:", 16, 32, 26, 17)
GUICtrlCreateLabel("Bananen:", 16, 48, 80, 17)
$Bananenbestand = GUICtrlCreateLabel("000", 112, 48, 70, 17)
$Pflanzen = GUICtrlCreateLabel("000", 112, 16, 100, 17)
$Geld = GUICtrlCreateLabel("000", 112, 32, 100, 17)
$Starten = GUICtrlCreateButton("Starten", 8, 128, 65, 33, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $hConnect, $hSession
$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0")
$hConnect = _WinHttpConnect($hSession, "www.bananenkoenig.de")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Starten
Start()
EndSwitch
WEnd
Func Start()
$sHTML = _WinHttpSimpleRequest($hConnect, "POST", "index.php?ac=login", "www.bananenkoenig.de", "selserver=http%3A%2F%2Fwww.bananenkoenig.de%2F%3Fac%3Dloginpage&user=test1324&password=test1324")
$Bananen = _StringBetween($sHTML,"<b>Bananenpflanzen:</b> "," Stück</td>")
$Geld2 = _StringBetween($sHTML,"<b>Dollars:</b> "," $</td>")
$Bananenbestand2 = _StringBetween($sHTML,"<b>Bananenbestand:</b> "," Kilo</td>")
GUICtrlSetData($Pflanzen,$Bananen[0])
GUICtrlSetData($Geld,$Geld2[0])
GUICtrlSetData($Bananenbestand,$Bananenbestand2[0])
EndFunc