Hallo AutoIt Spezialisten
Mommentan steh ich vor einem kleinen Rätsel, und zwar will ich das ein betroffenes Input Feld vor Eintrag Beschreib bar ist, und nachdem eine INI angelegt wurde, dort nichtsmehr änderbar ist. Ausserdem soll das betroffene Feld dann auch noch den ini Eintrag auslesen.
Betroffener Code:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIEdit.au3>
#include <IE.au3>
#include <INet.au3>
#include <GUIConstants.au3>
Opt("GUICoordMode", 1)
Opt("PixelCoordMode", 2)
#Region ### START Koda GUI section ### Form=
$antrag = GUICreate("TS² Beantragen", 287, 228, 193, 125)
$angaben = GUICtrlCreateGroup("Angaben:", 8, 0, 273, 177)
$admin = GUICtrlCreateInput("Account Name", 144, 16, 121, 21) ; <-- betreffendes Feld
GUICtrlSetState($admin, $GUI_DISABLE)
$slots = GUICtrlCreateCombo("Slots", 144, 48, 121, 25)
GUICtrlSetData($slots, "25|50|75|100")
$tsname = GUICtrlCreateInput("TS² Name", 144, 80, 121, 21)
$day = GUICtrlCreateCombo("T", 144, 112, 41, 25)
GUICtrlSetData($day, "01|02|03|04|05|06|07|08|09|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31")
$month = GUICtrlCreateCombo("M", 184, 112, 41, 25)
GUICtrlSetData($month, "01|02|03|04|05|06|07|08|09|10|11|12")
$year = GUICtrlCreateCombo("Jahr", 224, 112, 49, 25)
GUICtrlSetData($year, "1960|1961|1962|1963|1964|1965|1966|1967|1968|1969|1970|1971|1972|1973|1974|1975|1976|1977|1978|1979|1980|1981|1982|1983|1984|1985|1986|1987|1988|1989|1990|1991|1992|1993|1994")
$email = GUICtrlCreateInput("E-Mail Adresse", 144, 144, 121, 21)
$accl = GUICtrlCreateLabel("Admin-Account Name:", 16, 16, 129, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$slotsl = GUICtrlCreateLabel("Slots Anzahl:", 16, 48, 78, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$tsnamel = GUICtrlCreateLabel("TS²-Name:*", 16, 80, 69, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$old = GUICtrlCreateLabel("Geburtsdatum:", 16, 112, 117, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$emaill = GUICtrlCreateLabel("E-Mail Adresse:", 16, 144, 92, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$achtung = GUICtrlCreateLabel("* Kann später im Webinterface geändert werden.", 8, 200, 207, 16)
GUICtrlSetFont(-1, 7, 400, 0, "Arial")
$send = GUICtrlCreateButton("Beantragen", 216, 184, 67, 25, 0)
$text = GUICtrlCreateButton("Status abrufen", 208, 208, 75, 17, 0)
$pass = GUICtrlCreateLabel("Passwort wird von uns für sie Generiert", 16, 184, 169, 16)
GUICtrlSetFont(-1, 7, 400, 0, "Arial")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
GUIDelete()
Exit
Case $msg = $send
GUICtrlSetState( $send, $GUI_Disable )
#cs
$oIE = _IECreate( "die..gibt..es..nicht../antrag/antrag.php?admin="&_INetExplorerCapable(GUICtrlread($admin))&"&slots="&_INetExplorerCapable(GUICtrlread($slots))&"&day="&_INetExplorerCapable(GUICtrlread($day))&"&month="&_INetExplorerCapable(GUICtrlread($month))&"&year="&_INetExplorerCapable(GUICtrlread($year))&"&tsname="&_INetExplorerCapable(GUICtrlread($tsname))&"&email="&_INetExplorerCapable(GUICtrlread($email)))
_IELoadWaitTimeout( 3000 )
_IELoadWait( $oIE )
_IEQuit( $oIE )
GUICtrlSetState( $send, $GUI_Enable )
MsgBox(0, "Antrag abgeschickt", "Der Antrag wurde abgeschickt, Innerhalb der nächsten 24 Stunden bekommen Sie eine Antwort")
Case $msg = $text
InetGet( "http://die..gibt..es..nicht../antrag/files/"&GUICtrlRead($admin)&".html", @WorkingDir & "\"&GUICtrlRead($admin)&".html", 1 )
ShellExecute(@WorkingDir&"\"&GUICtrlRead($admin)&".html", @WorkingDir )
#ce
EndSelect
WEnd
Hoffe Ihr könnt mir dabei helfen.
mfg.
Tak
EDIT1: Durch das Missverständniss mit Simon habe ich die PW abfrage rausgemacht