Programm läuft nur wenn process ?

  • Hallo Lieb autoit gemeinde ich habe mal wieder eine frage :
    kan ich folgenden script so umschreiben das er nur läuft wenn ein process namens XP-SideBar.exe an ist ?
    und wenn ja wie ? Freue mich auf eure antworten

    MFG

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>
    #NoTrayIcon
    While 1
    sleep (50)
    If _IsPressed("12") And _IsPressed("70") Then _calc ()
    If _IsPressed("12") And _IsPressed("71") Then _media ()
    If _IsPressed("12") And _IsPressed("72") Then _inf ()
    If _IsPressed("12") And _IsPressed("73") Then _paint ()
    If _IsPressed("12") And _IsPressed("74") Then _ie ()
    If _IsPressed("12") And _IsPressed("75") Then _ff ()
    If _IsPressed("12") And _IsPressed("76") Then _shut ()
    If _IsPressed("12") And _IsPressed("77") Then _neu ()
    If _IsPressed("12") And _IsPressed("78") Then _stan ()
    wend
    Func _calc ()
    ShellExecute("calc.exe")
    EndFunc
    Func _inf ()
    ShellExecute("msinfo32.exe")
    EndFunc
    Func _media ()
    ShellExecute("wmplayer.exe")
    EndFunc
    Func _Paint ()
    ShellExecute("mspaint.exe")
    EndFunc
    Func _IE ()
    ShellExecute("iexplore.exe")
    EndFunc
    Func _FF ()
    ShellExecute("firefox.exe")
    EndFunc
    Func _Shut ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Shutdown", "Einen schönen Tag noch.",2)
    Shutdown(1)
    EndIf
    EndFunc
    Func _neu ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Neustart", "Bis gleich.",2)
    Shutdown(2)
    EndIf
    EndFunc
    Func _stan ()
    Sleep(200)
    Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
    If $var = 6 Then
    MsgBox(0,"Standby", "Ich geh dan mal schlafen.",2)
    Shutdown(64)
    EndIf
    EndFunc

    [/autoit]
  • Ich behaupte mal, das frisst zuviel Auslastung. Eher so: (vor den Code)

    [autoit]


    AdLibEnable("_proz",500) ;Beta:AdLibRegister
    Func _proz()
    If not ProcessExists("XP-Sidebar.exe") Then Exit
    EndFunc
    _proz()
    ;...

    [/autoit]

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.