Brauchbar? 7
-
Ja (1) 14%
-
Manchmal (3) 43%
-
Nein (3) 43%
Hallo
Programmname: Ping
Programmversion: 3.3.6.1--1.1-B
Diese Update's folgen:
Diese Änderungen folgen:
* TraySetIcon
Programmversion + Update's:
* Ping _ 3.3.6.1--1.1-B
- IP Range durchpingen
- Bitte Warten GUI abgeändert
Diese Änderungen sind eingeführt:
* $Variablen verkürzt
* Icon
Download's:
* 3.3.6.1--1.0-0.zip = 30 + "Jetziger Stand"
* 3.3.6.1--1.1-B.zip = 8 + "Jetziger Stand"
Script v3.3.6.1--1.1-B
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ico\Ping.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil 0001 [Einstellungen]
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
Opt ("CaretCoordMode", 1)
Opt ("ExpandEnvStrings", 0)
Opt ("ExpandVarStrings", 0)
Opt ("GUICloseOnESC", 1)
Opt ("GUICoordMode", 1)
Opt ("GUIDataSeparatorChar", "|")
Opt ("GUIOnEventMode", 0)
Opt ("GUIResizeMode", 0)
Opt ("GUIEventOptions", 0)
Opt ("MouseClickDelay", 10)
Opt ("MouseClickDownDelay", 10)
Opt ("MouseClickDragDelay", 250)
Opt ("MouseCoordMode", 1)
Opt ("MustDeclareVars", 0)
Opt ("PixelCoordMode", 1)
Opt ("SendAttachMode", 0)
Opt ("SendCapslockMode", 1)
Opt ("SendKeyDelay", 5)
Opt ("SendKeyDownDelay", 1)
Opt ("TCPTimeout", 100)
Opt ("TrayAutoPause", 0)
Opt ("TrayIconDebug", 1)
Opt ("TrayIconHide", 0)
Opt ("TrayMenuMode", 3)
Opt ("TrayOnEventMode", 0)
Opt ("WinDetectHiddenText", 0)
Opt ("WinSearchChildren", 1)
Opt ("WinTextMatchMode", 1)
Opt ("WinTitleMatchMode", 1)
Opt ("WinWaitDelay", 250)
;----------------------------------------------------------------------------------------------------
#include <EditConstants.au3>
#Include <File.au3>
#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>
#include <ListviewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;#include-once <>
;----------------------------------------------------------------------------------------------------
$Programmname = "Ping"
$Programmversion = "3.3.6.1--1.1-B"
$Herstellungsdatum = "21.09.2011"
$Updatedatum = "28.09.2011"
$AnzahlVersionen = "2"
$HerstellerMitwirkende = "Schrotter Christian|Idee/Designer/Programmierer|3.3.6.1--1.1-B,Schrotter Christian|Idee/Designer/Programmierer|3.3.6.1--1.0-0"
$SupportEmail = "Christian.Schrotter@hotmail.com"
$AngemeldeterUser = @UserName
;----------------------------------------------------------------------------------------------------
$GUIInformation_ERROR_Dir_0001 = @ScriptDir & "/ERRORs/"
$GUIInformation_ERROR_Pfad_0001 = $GUIInformation_ERROR_Dir_0001 & "ERROR.ini"
$GUIInformation_ERROR_IniSection_0001 = "Hersteller, Mitwirkende"
;----------------------------------------------------------------------------------------------------
;Global
;Local
;----------------------------------------------------------------------------------------------------
;Starteinstellungen [#NoTrayIcon, TraySetIcon]
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil 0002 [Aktion: GUI]
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
$GUI_0001_GUICreate_0001 = GUICreate ($Programmname & " - " & $Programmversion & "_ Single Ping", 500, 310, -1, -1, 0x00C00000)
GUICtrlCreateLabel ("Ping-Adresse:", 5, 5, 120, 20)
GUICtrlCreateLabel ("Ping-Timeout:", 5, 30, 120, 20)
$GUI_0001_GUICtrlCreateInput_0001 = GUICtrlCreateInput ("", 130, 5, 365, 20, 0x0001)
$GUI_0001_GUICtrlCreateInput_0002 = GUICtrlCreateInput ("4000", 130, 30, 365, 20, 0x2001)
$GUI_0001_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Adresse|Rückgabe|Antwortzeit [MSec.]", 5, 55, 490, 200)
$GUI_0001_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0001_GUICtrlCreateListView_0001)
_GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 0, 160)
_GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 1, 150)
_GUICtrlListView_SetColumnWidth ($GUI_0001_GUICtrlGetHandle_0001, 2, 150)
$GUI_0001_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Ping", 5, 260, 300, 20)
$GUI_0001_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Range Ping", 310, 260, 185, 20)
$GUI_0001_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Exit", 5, 285, 405, 20)
$GUI_0001_GUICtrlCreateButton_0004 = GUICtrlCreateButton ("Information", 415, 285, 80, 20)
GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)
$GUI_0002_GUICreate_0001 = GUICreate ($Programmname & " - " & $Programmversion & "_ Range Ping", 500, 310, -1, -1, 0x00C00000)
GUICtrlCreateLabel ("Ping-Adresse (min.):", 5, 5, 120, 20)
GUICtrlCreateLabel ("Ping-Adresse (max.)", 5, 30, 120, 20)
GUICtrlCreateLabel ("Ping-Timeout:", 5, 55, 120, 20)
GUICtrlCreateLabel (".", 210, 5, 15, 20, 0x01)
GUICtrlCreateLabel (".", 305, 5, 15, 20, 0x01)
GUICtrlCreateLabel (".", 400, 5, 15, 20, 0x01)
GUICtrlCreateLabel (".", 210, 30, 15, 20, 0x01)
GUICtrlCreateLabel (".", 305, 30, 15, 20, 0x01)
GUICtrlCreateLabel (".", 400, 30, 15, 20, 0x01)
$GUI_0002_GUICtrlCreateInput_0001 = GUICtrlCreateInput ("", 130, 5, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0002 = GUICtrlCreateInput ("", 225, 5, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0003 = GUICtrlCreateInput ("", 320, 5, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0004 = GUICtrlCreateInput ("", 415, 5, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0005 = GUICtrlCreateInput ("", 130, 30, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0006 = GUICtrlCreateInput ("", 225, 30, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0007 = GUICtrlCreateInput ("", 320, 30, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0008 = GUICtrlCreateInput ("", 415, 30, 80, 20, 0x0001)
$GUI_0002_GUICtrlCreateInput_0009 = GUICtrlCreateInput ("4000", 130, 55, 365, 20, 0x2001)
$GUI_0002_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Adresse|Rückgabe|Antwortzeit [MSec.]", 5, 80, 490, 175)
$GUI_0002_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0002_GUICtrlCreateListView_0001)
_GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 0, 160)
_GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 1, 150)
_GUICtrlListView_SetColumnWidth ($GUI_0002_GUICtrlGetHandle_0001, 2, 150)
$GUI_0002_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Durch Pingen", 5, 260, 300, 20)
$GUI_0002_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Single Ping", 310, 260, 185, 20)
$GUI_0002_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Exit", 5, 285, 405, 20)
$GUI_0002_GUICtrlCreateButton_0004 = GUICtrlCreateButton ("Information", 415, 285, 80, 20)
GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
$GUI_0003_GUICreate_0001 = GUICreate ("Information", 600, 200, -1, -1, 0x00C00000)
GUICtrlCreateLabel ("Angemeldeter USERNAME:", 5, 5, 150, 20)
GUICtrlCreateLabel ("Programmname:", 5, 25, 150, 20)
GUICtrlCreateLabel ("Programmversion:", 5, 45, 150, 20)
GUICtrlCreateLabel ("Herstellungsdatum:", 5, 65, 150, 20)
GUICtrlCreateLabel ("Updatedatum:", 5, 85, 150, 20)
GUICtrlCreateLabel ("Anzahl Versionen:", 5, 105, 150, 20)
GUICtrlCreateLabel ("Support E-Mail:", 5, 125, 150, 20)
GUICtrlCreateLabel ($AngemeldeterUser, 160, 5, 435, 20)
GUICtrlCreateLabel ($Programmname, 160, 25, 435, 20)
GUICtrlCreateLabel ($Programmversion, 160, 45, 435, 20)
GUICtrlCreateLabel ($HerstellungsDatum, 160, 65, 435, 20)
GUICtrlCreateLabel ($Updatedatum, 160, 85, 435, 20)
GUICtrlCreateLabel ($AnzahlVersionen, 160, 105, 435, 20)
GUICtrlCreateLabel ($SupportEmail, 160, 125, 435, 20)
$GUI_0003_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Hersteller, Mitwirkende", 5, 150, 590, 20)
$GUI_0003_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Zurück", 5, 175, 292, 20)
$GUI_0003_GUICtrlCreateButton_0003 = GUICtrlCreateButton ("Beenden", 302, 175, 293, 20)
GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
$GUI_0004_GUICreate_0001 = GUICreate ("Information - Hersteller, Mitwirkende", 600, 200, -1, -1, 0x00C00000)
GUICtrlCreateLabel ("Hersteller, Mitwirkende:", 5, 5, 590, 20, 0x01)
$GUI_0004_GUICtrlCreateListView_0001 = GUICtrlCreateListView ("Name:|Aktion:|Version:", 5, 25, 590, 145, 0x0004)
$GUI_0004_GUICtrlGetHandle_0001 = GUICtrlGetHandle ($GUI_0004_GUICtrlCreateListView_0001)
_GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 0, 200)
_GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 1, 200)
_GUICtrlListView_SetColumnWidth ($GUI_0004_GUICtrlGetHandle_0001, 2, 150)
$GUI_0004_GUICtrlCreateButton_0001 = GUICtrlCreateButton ("Zurück", 5, 175, 292, 20)
$GUI_0004_GUICtrlCreateButton_0002 = GUICtrlCreateButton ("Beenden", 302, 175, 293, 20)
$GUI_0004_StringSplit_0001 = StringSplit ($HerstellerMitwirkende, ",")
If $GUI_0004_StringSplit_0001[0] = 0 Then
_GUIInformation_Error_0001 ()
_GUIInformation_Error_0002 ()
Else
For $GUI_0004_Anzahl_0001 = 1 To $GUI_0004_StringSplit_0001[0] Step 1
$GUI_0004_StringSplit_0002 = StringSplit ($GUI_0004_StringSplit_0001[$GUI_0004_Anzahl_0001], "|")
If $GUI_0004_StringSplit_0002[0] = 3 Then
GUICtrlCreateListViewItem ($GUI_0004_StringSplit_0001[$GUI_0004_Anzahl_0001], $GUI_0004_GUICtrlCreateListView_0001)
Else
_GUIInformation_Error_0001 ()
_GUIInformation_Error_0002 ()
EndIf
Next
EndIf
GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)
$GUI_0005_GUICreate_0001 = GUICreate ("Bitte Warten ...", 450, 95, -1, -1, 0x00C00000)
$GUI_0005_GUICtrlCreateLabel_0001 = GUICtrlCreateLabel ("Bitte Warten ...", 5, 5, 440, 70, 0x01)
$GUI_0005_GUICtrlCreateLabel_0002 = GUICtrlCreateLabel ("0 / 0", 5, 80, 440, 20, 0x0002)
GUISetBkColor (0x000000, $GUI_0005_GUICreate_0001)
GUICtrlSetFont ($GUI_0005_GUICtrlCreateLabel_0001, 50)
GUICtrlSetColor ($GUI_0005_GUICtrlCreateLabel_0001, 0xFF0000)
GUICtrlSetColor ($GUI_0005_GUICtrlCreateLabel_0002, 0xFFFFFF)
GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil 0003 [Aktion: Programm]
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
While True
Switch GUIGetMsg ()
Case $GUI_0001_GUICtrlCreateButton_0001
GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0005_GUICreate_0001)
If GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0001) = "" Or GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0002) = "" Then
MsgBox (0+16+0+0+262144, "Fehler", "Es wurde bei mindestens einem Feld keinen Wert eingetragen!")
Else
$GUICtrlRead_0001 = GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0001)
$GUICtrlRead_0002 = GUICtrlRead ($GUI_0001_GUICtrlCreateInput_0002)
$Ping_0001 = Ping ($GUICtrlRead_0001, $GUICtrlRead_0002)
[/autoit] [autoit][/autoit] [autoit]If @error = 1 Then
GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist Offline." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
Else
If @error = 2 Then
GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist nicht erreichbar." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
Else
If @error = 3 Then
GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Falsche Adresse." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
Else
If @error = 4 Then
GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Andere Fehler." & "|" & "-----", $GUI_0001_GUICtrlCreateListView_0001)
Else
GUICtrlCreateListViewItem ($GUICtrlRead_0001 & "|" & "Der Computer ist Online." & "|" & $Ping_0001, $GUI_0001_GUICtrlCreateListView_0001)
EndIf
EndIf
EndIf
EndIf
EndIf
GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)
Case $GUI_0001_GUICtrlCreateButton_0002
GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
_GUICtrlListView_DeleteAllItems ($GUI_0001_GUICtrlGetHandle_0001)
_GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)
While True
Switch GUIGetMsg ()
Case $GUI_0002_GUICtrlCreateButton_0001
GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0005_GUICreate_0001)
If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0005) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0006) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0007) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) = "" Or GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0009) = "" Then
MsgBox (0+16+0+0+262144, "Fehler", "Es wurde bei mindestens einem Feld keinen Wert eingetragen!")
Else
If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0005) Then
If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0006) Then
If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0007) Then
If GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) < GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) Then
$MinMax_Unterschied_0001 = ""
$MinMax_Unterschied_0001 = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) - GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004)
If $MinMax_Unterschied_0001 = "" Then
MsgBox (0+16+0+0+262144, "Fehler", "Es gab ein Problem mit dem Ausrechnen!")
Else
_GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
For $Anzahl_0001 = GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) To GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0008) Step 1
GUICtrlSetData ($GUI_0005_GUICtrlCreateLabel_0002, $Anzahl_0001 - GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0004) & " / " & $MinMax_Unterschied_0001)
$Ping_0002 = Ping (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001, $GUI_0002_GUICtrlCreateInput_0009)
If @error = 1 Then
GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist Offline." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
Else
If @error = 2 Then
GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist nicht erreichbar." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
Else
If @error = 3 Then
GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Falsche Adresse." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
Else
If @error = 4 Then
GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Andere Fehler." & "|" & "-----", $GUI_0002_GUICtrlCreateListView_0001)
Else
GUICtrlCreateListViewItem (GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0001) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0002) & "." & GUICtrlRead ($GUI_0002_GUICtrlCreateInput_0003) & "." & $Anzahl_0001 & "|" & "Der Computer ist Online." & "|" & $Ping_0002, $GUI_0002_GUICtrlCreateListView_0001)
EndIf
EndIf
EndIf
EndIf
Next
$MinMax_Unterschied_0001 = ""
GUICtrlSetData ($GUI_0005_GUICtrlCreateLabel_0002, "")
EndIf
Else
MsgBox (0+16+0+0+262144, "Fehler", "Die Zahl ''zzz'' [xxx.xxx.xxx.zzz] muss bei max. höher sein als min.!")
EndIf
Else
MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [xxx.xxx.yyy.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
EndIf
Else
MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [xxx.yyy.xxx.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
EndIf
Else
MsgBox (0+16+0+0+262144, "Fehler", "Die Zahlen ''yyy'' [yyy.xxx.xxx.zzz] stimmen bei den 2 IP-Adressen nicht überein!")
EndIf
EndIf
GUISetState (@SW_HIDE, $GUI_0005_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)
Case $GUI_0002_GUICtrlCreateButton_0002
ExitLoop
Case $GUI_0002_GUICtrlCreateButton_0003
_Exit ()
Case $GUI_0002_GUICtrlCreateButton_0004
GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
While True
Switch GUIGetMsg ()
Case $GUI_0003_GUICtrlCreateButton_0001
GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0004_GUICreate_0001)
While True
Switch GUIGetMsg ()
Case $GUI_0004_GUICtrlCreateButton_0001
ExitLoop
Case $GUI_0004_GUICtrlCreateButton_0002
_Exit ()
EndSwitch
WEnd
GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
Case $GUI_0003_GUICtrlCreateButton_0002
ExitLoop
Case $GUI_0003_GUICtrlCreateButton_0003
_Exit ()
EndSwitch
WEnd
GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0002_GUICreate_0001)
EndSwitch
WEnd
GUISetState (@SW_HIDE, $GUI_0002_GUICreate_0001)
_GUICtrlListView_DeleteAllItems ($GUI_0001_GUICtrlGetHandle_0001)
_GUICtrlListView_DeleteAllItems ($GUI_0002_GUICtrlGetHandle_0001)
GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)
Case $GUI_0001_GUICtrlCreateButton_0003
_Exit ()
Case $GUI_0001_GUICtrlCreateButton_0004
GUISetState (@SW_HIDE, $GUI_0001_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
While True
Switch GUIGetMsg ()
Case $GUI_0003_GUICtrlCreateButton_0001
GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0004_GUICreate_0001)
While True
Switch GUIGetMsg ()
Case $GUI_0004_GUICtrlCreateButton_0001
ExitLoop
Case $GUI_0004_GUICtrlCreateButton_0002
_Exit ()
EndSwitch
WEnd
GUISetState (@SW_HIDE, $GUI_0004_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0003_GUICreate_0001)
Case $GUI_0003_GUICtrlCreateButton_0002
ExitLoop
Case $GUI_0003_GUICtrlCreateButton_0003
_Exit ()
EndSwitch
WEnd
GUISetState (@SW_HIDE, $GUI_0003_GUICreate_0001)
GUISetState (@SW_SHOW, $GUI_0001_GUICreate_0001)
EndSwitch
WEnd
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;Teil 0004 [Aktion: Func]
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
;----------------------------------------------------------------------------------------------------
Func _GUIInformation_Error_0001 ()
GUICtrlSetData ($GUI_0003_GUICtrlCreateButton_0001, "------ ERROR ------ Hersteller, Mitwirkende ------ ERROR ------")
GUICtrlSetState ($GUI_0003_GUICtrlCreateButton_0001, $GUI_DISABLE)
EndFunc
Func _GUIInformation_Error_0002 ()
$GUIInformation_ERROR_0002__CHECK_0001 = "0"
$GUIInformation_ERROR_0002__TIME_0001 = @MDAY & "." & @MON & "." & @YEAR & " - " & @HOUR & ":" & @MIN & ":" & @SEC
If FileExists ($GUIInformation_ERROR_Dir_0001) = 0 Then
DirCreate ($GUIInformation_ERROR_Dir_0001)
EndIf
If FileExists ($GUIInformation_ERROR_Pfad_0001) = 1 Then
$ERROR_IniReadSectionNames_0001 = IniReadSectionNames ($GUIInformation_ERROR_Pfad_0001)
For $GUIInformation_ERROR__Anzahl_0001 = 1 To $ERROR_IniReadSectionNames_0001[0] Step 1
If $ERROR_IniReadSectionNames_0001[$GUIInformation_ERROR__Anzahl_0001] = $GUIInformation_ERROR_IniSection_0001 Then
IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
$GUIInformation_ERROR_0002__CHECK_0001 = "1"
EndIf
Next
If $GUIInformation_ERROR_0002__CHECK_0001 = "0" Then
IniWriteSection ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, "ERROR")
IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
$GUIInformation_ERROR_0002__CHECK_0001 = "0"
EndIf
Else
_FileCreate ($GUIInformation_ERROR_Pfad_0001)
IniWriteSection ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, "ERROR")
IniWrite ($GUIInformation_ERROR_Pfad_0001, $GUIInformation_ERROR_IniSection_0001, $GUIInformation_ERROR_0002__TIME_0001, "ERROR")
EndIf
$GUIInformation_ERROR_0002__TIME_0001 = "-"
$GUIInformation_ERROR_0002__CHECK_0001 = "0"
ShellExecute ($GUIInformation_ERROR_Pfad_0001)
EndFunc
Func _Exit ()
$Exit__MsgBox_0001 = MsgBox (1+32+256+0+262144, "Beenden", "Soll das Programm wirklich Beendet werden?")
If $Exit__MsgBox_0001 = 1 Then
Exit
EndIf
EndFunc
Bitte lasst Meinungen, Ideen, Bugs, etc. hier das ich das ändern kann :).
LG Christian.Schrotter