Hallo,
so habe meine Funktionen umgeschrieben so das ich auf INIWRITE und INIREAD gehe.(Danke für die Hilfe im alten Theard)
Das geht soweit und die Funktion ist auch 100%.
Nun habe ich noch versucht, dass beim Minimieren das Fenster nur noch als TrayIcon da ist. Dies geht auch, nur leider gehen dann alle andere Funktion nicht mehr.
Sprich er geht nicht mehr in mein Einstellmenü/Exit/Info ...
Also habe ich mir Irgend wie einen Bock rein geholt und ich sehe es nicht.
Als 2 Frage hätte ich noch gewusst wie die INI in das Userprofil schreiben kann. Ich habe zwar zu dem Problem was gelesen es aber nicht verstanden.
Danke schon mal für die Hilfe.
Gruß
Steffen
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
$Form1 = GUICreate("Arbeitszeiterfassung", 307, 201, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
$helpmenu = GUICtrlCreateMenu("?")
$BJ = GUICtrlCreateMenuItem("Buchungsjournal",$helpmenu)
$Einstellung = GUICtrlCreateMenuItem("Einstellungen",$helpmenu)
$Info = GUICtrlCreateMenuItem("Info",$helpmenu)
$Kommen = GUICtrlCreateButton("Kommen", 32, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Gehen = GUICtrlCreateButton("Gehen", 171, 16, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0x0000FF)
_GUICtrlStatusBar_SetText($StatusBar1, "")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')
$name =IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw =IniRead("c:\aze.ini", "User", "PW", "")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Einstellung
GuiSETState(@SW_HIDE, $Form1)
$name =IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw =IniRead("c:\aze.ini", "User", "PW", "")
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Einstellungen", 293, 126, 192, 124)
$Benutzername = GUICtrlCreateLabel("Benutzername", 8, 16, 100, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$Passwort = GUICtrlCreateLabel("Passwort", 8, 64, 66, 22)
GUICtrlSetFont(-1, 10, 800, 0, "@Arial Unicode MS")
$BNspeichern = GUICtrlCreateInput($name, 128, 16, 145, 21)
$PWspeichern = GUICtrlCreateInput("*****", 128, 64, 145, 21)
$Speichern1 = GUICtrlCreateButton("Speichern", 128, 96, 65, 25)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 208, 96, 65, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg1 = GUIGetMsg()
Switch $nMsg1
Case $GUI_EVENT_CLOSE
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Speichern1
IniWrite ("c:\aze.ini","User", "Benutzer", GUICtrlRead ($BNspeichern))
IniWrite ("c:\aze.ini","User", "PW", GUICtrlRead ($PWspeichern))
$name =IniRead("c:\aze.ini", "User", "Benutzer", "")
$pw =IniRead("c:\aze.ini", "User", "PW", "")
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
Case $Abbrechen
GUISetState(@SW_Hide, $Form2)
GUISetState(@SW_SHOW, $Form1)
ExitLoop
EndSwitch
WEnd
Case $Gehen
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "2img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Gehen Gebucht")
case $Kommen
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("",0,0)
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(500)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Buchung")
_IELoadWait($oIE)
sleep(800)
$oForm2 = _IEGetObjById($oIE, "1img")
_IEAction($oForm2, "click")
_IELoadWait($oIE)
$oForm3 = _IEGetObjById($oIE, "shutdown")
_IEAction($oForm3, "click")
_IELoadWait($oIE)
_IEQuit($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "Kommen Gebucht")
case $Info
MsgBox (0,"Info","Version 1.4 "&@CRLF&"25.08.2014 ")
case $BJ
_GUICtrlStatusBar_SetText($StatusBar1, "Bitte Warten!")
$oIE = _IECreate("")
_IENavigate($oIE, "http://192.168.100.89:8080/info")
_IELoadWait($oIE, 0, 30000)
$oForm = _IEFormGetCollection($oIE, 0)
$oUsername = _IEFormElementGetObjByname($oForm, "UID")
$oPassword = _IEFormElementGetObjByName($oForm, "PWD")
_IEFormElementSetValue($oUsername, $name)
_IEFormElementSetValue($oPassword, $pw)
_IEFormSubmit($oForm)
sleep(200)
$oForm1 = _IEFormGetCollection($oIE, 0)
$Menu1 = _IELinkClickByText($oForm1, "Stempelkarte")
_IELoadWait($oIE)
_GUICtrlStatusBar_SetText($StatusBar1, "")
case $Setting_exit
_Exit()
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc
Func _Minimize()
TraySetState(1)
GUISetState(@SW_HIDE)
EndFunc
Func _Restore()
TraySetState(2)
GUISetState(@SW_SHOW)
EndFunc