Hallo,
stehe gerade mal wieder auf dem Schlauch um ein Problem zu lösen.
Ich muss ein kleines Programm schreiben was Anzeigt ob ein Prozess läuft.
Basis ist ein altes Programm, was ich mal geschrieben habe.
Was soll passieren der Button "PN4000" soll Grün sein wenn der Prozess läuft.
Läuft er nicht soll er Rot sein.
Es ist mir Klar das es mit if ProcessExists("blablaexe") geht.
Allerdings wie baue ich das ganze in meine GUI sinnvoll ein.
AutoIt
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
Opt('GUIOnEventMode', 1)
Opt('TrayOnEventMode', 1)
Opt('TrayMenuMode', 1)
$Form1 = GUICreate("PN4000", 307, 150, 192, 124)
$Setting_Menu = GUICtrlCreateMenu("Menü")
$Setting_exit = GUICtrlCreateMenuItem("Ende", $Setting_Menu)
GUICtrlSetOnEvent(-1,"_Exit")
$helpmenu = GUICtrlCreateMenu("?")
GUICtrlSetOnEvent(-1,"_Help")
$Info = GUICtrlCreateMenuItem("Info",$helpmenu)
GUICtrlSetOnEvent(-1,"_showInfo")
$Kommen = GUICtrlCreateButton("PN4000", 32, 8, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x00FF00)
$Gehen = GUICtrlCreateButton("Reset", 171, 8, 113, 113)
GUICtrlSetFont(-1, 18, 800, 0, "@Arial Unicode MS")
GUICtrlSetBkColor(-1, 0x4452F0)
GUICtrlSetOnEvent(-1,"_RESET")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
GUISetOnEvent($GUI_EVENT_MINIMIZE, '_Minimize')
TraySetOnEvent( -7, '_Restore')
While sleep(100)
WEnd
Func _showInfo()
MsgBox (0,"Info","Version 0.1 "&@CRLF&"Stand 31.10.2016")
EndFunc
Func _Exit()
Exit
EndFunc
Func _Minimize()
TraySetState(1)
GUISetState(@SW_HIDE)
EndFunc
Func _Restore()
TraySetState(2)
GUISetState(@SW_SHOW)
EndFunc
Func _RESET() ;Hier passiert was wenn der Button gedrückt wird
Run('Notepad.exe')
;ProcessClose("pn4.exe")
;RunAsWait("abc","neu","12346",0,@ComSpec & " /c " &'net stop "Autostart"',"",@SW_HIDE);Sleep (1000)
;RunAsWait("abc","neu","123456",0,@ComSpec & " /c " &'net start "Autostart"',"",@SW_HIDE)
EndFunc
Alles anzeigen
Danke für die Tipps.
Gruß
Steffen