1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. casi4712

Beiträge von casi4712

  • Folder mit Leerzeichen löschen

    • casi4712
    • 3. Februar 2022 um 14:09

    Jo, dann noch mal wegen SCITE, das hier ist es doch nicht oder Scintilla:5.1.5, das steht bei der Info, eine spezielle Version für Autoit konnte ich nicht finden. In dieser Versioon ist Auto it bei languages nicht mal aufgeführt. Vielleicht habt Ihr ja einen Link parat, wäre cool. Übrigens auf dieser Hilfeseite war ich längst.


    lg


    Chris

  • Folder mit Leerzeichen löschen

    • casi4712
    • 3. Februar 2022 um 09:31

    ok, danke, werde ich mich mal mit anfreunden

    schöne Restwoche noch

  • Folder mit Leerzeichen löschen

    • casi4712
    • 1. Februar 2022 um 21:12

    So jetzt funktioniert es urplötzlich auch so

    Global $sFolder = 'C:\Program Files\Test Test'

    DirRemove($sFolder, $DIR_REMOVE)

    das ganze hat schon ein gewisses Eigenleben lach


    lg

    chris

  • Folder mit Leerzeichen löschen

    • casi4712
    • 1. Februar 2022 um 20:46

    @Moombas: jetzt funzt es, Wo her soll man das bitte wissen, darüber ist kein Wort in den ManPages.

    danke noch mal

  • Folder mit Leerzeichen löschen

    • casi4712
    • 1. Februar 2022 um 20:38

    hallo noch mal und guten Abend, nene dass mit dem doppelten c hatte ich schon gesehen, klappte trotzdem nicht, ich versuchs jetzt mal mit Global Const, bin gespannt. Und Oscar, ich mag zwar noch in Autoit ein Volldeppsein, aber ja ich habe Adminrechte, kanns ja in cmd auch löschen

    Nachtrag,

    das funktioniert nur als 3 zeiler

    AutoIt
    ; Script Start - Add your code below here
    
    #include <DirRemove.au3>
    Global $sFolder = 'C:\Program Files\Test Test'
    DirRemove($sFolder, $DIR_REMOVE)

    sobald man dass in anddere Scripts einbaut kommt die Meldung

    #include < DirRemove.au3 > error opening the fil. Ich komme mir langsam echt bescheuert vor, wo kann man diese au downloaden, habe leider keine Quelle gefunden?

    schönen Abend noch

    lg

    chris

  • Folder mit Leerzeichen löschen

    • casi4712
    • 1. Februar 2022 um 13:11

    also so funktioniert dass nicht, habs eben noch mal gestestet, nur ohne Leerzeichen

    AutoIt
     _RunDOS('RmDIR /Q "C:\C:\Program Files\Test"')

    mit der Funktion probiere ich eben mal, mit FileDelete oder Fileremove gibt es das selbe Problem in grün, hab es getestet.

    lg

    chris

  • Buttons klickbar machen

    • casi4712
    • 31. Januar 2022 um 16:06

    Ja dass sehe ich auch so Solve, ich werde ein entsprechendes Thema für die Serviceproblematik aufmachen. Aber ich sehe auch gerade Du hattest an dem main.au3 noch weiter gebastelt, und nun funktioniert es Heureka, Danke vielmals. So nun werd ich erst mal schauen was du da so gemacht hast.

    Vielen Dank noch mal allen anderen, auch für eure Geduld

    eine schöne Woche

    lg chris

  • Buttons klickbar machen

    • casi4712
    • 30. Januar 2022 um 23:48

    Hallo,

    wie schon erwähnt hatte ich das Script main aus dem Git Repsitory angepasst, nannte sich da main, ich habe es jetzt mal auf ein Minimum gekürzt, vielleicht fällt es da leichter den Fehler zu finden, Ich habe Adlib verwendet. Ich möchte lediglich oben rechts 2 zeilen haben SQL-Server: Status und Webserver: Status, und zwar in angegebenen Abstand aktualisiert, um es noch mal zu präzisieren. SCITE werde ich mir mal anschauen

    AutoIt
    #cs ----------------------------------------------------------------------------
    
     AutoIt Version: 3.3.14.5
     Author:         myName
    
     Script Function:
        Template AutoIt script.
    
    #ce ----------------------------------------------------------------------------
    
    ; Script Start - Add your code below here
    
    
    ; includes ---------------------------------------------------------------------
    #include-once
    #include "GUIBkImage.au3"
    #include "Services.au3"
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiCtrlSetOnHover_UDF.au3>
    #include <StaticConstants.au3>
    #include <String.au3>
    #include <WinApi.au3>
    #include <WindowsConstants.au3>
    #include <WindowsConstants.au3>
    
    
    
    ; opt --------------------------------------------------------------------------
    Opt('MustDeclareVars', 1)
    
    
    
    ; declaration ------------------------------------------------------------------
    
    Global $RBOX_EVENT_CLOSE  = 1
    Global $ROUNDES           = 20
    Global $LastHwnd          = 0
    Global $PCName            = @ComputerName
    Global $BeepFile          = 'C:\Windows\Temp\beep.wav'
    Global $sTaskName         = '_07_DataCollect'
    Global $sScriptRootFolder = "C:\Users\Administrator\Downloads\"
    Global $GUIBKCOLOR        = 0x888888
    Global $gMsg, $iPID, $prog
    Global $idButton_32
    Global $idButton_36
    Global $iServiceStatusLabel = ""
    Global Const $SQLLabel     = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 1) & "Local SQL-Server: SERVICE_UNKNOWN_STATE"    , 400, 20, 980, 20)
    Global Const $AppacheLabel = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 1) & "Local Appache-Server: SERVICE_UNKNOWN_STATE", 400, 40, 980, 20)
    
    AdlibRegister(Request_Services, 60000) ;Refresh jede Minute
    
    
    ; processing -------------------------------------------------------------------
    
    
    Global $hGui = RBoxCreate("TEST GUI - Services", 840, 600)
    
    _createLabels()
    _createButtons()
    
    While True
        CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
    
        $gMsg = GUIGetMsg()
        ;$PID = 0
        Switch $gMsg
            Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
                GUIDelete($hGui)
                Exit
    
            Case $idButton_32
                Local $sServiceName = "Apache2.4"
                GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
                
            Case $idButton_36
                Local $sServiceName = "MSSQL$AUGIAS"
                GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
           
        EndSwitch
    WEnd
    
    
    
    ; functions --------------------------------------------------------------------
    
    
    Func _createLabels()
        $SQLLabel 
        $AppacheLabel
        
        $iServiceStatusLabel = GUICtrlCreateLabel("Service", 10, 440, 780, 20)
        $iServiceStatusLabel = GUICtrlCreateLabel("Service", 10, 465, 780, 20)
    EndFunc
    
    
    
    Func _createButtons()
        $idButton_32 = GUICtrlCreateButton("ggg", 10, 185, 100, 20)
        $idButton_36 = GUICtrlCreateButton("gfgf", 490, 185, 100, 20)
    EndFunc
    
    
    
    Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
        Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
        GUISetBkColor($GUIBKCOLOR, $GUI)
        $RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
        GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
        GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
        GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
        GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
    
        $Title &= " "
        Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
        GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
        GUICtrlSetBkColor($hTitle, -2)
        Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
        GUICtrlSetState($Graphic, $Gui_DISABLE)
        ;~ GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)
    
        If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
    
        Return $GUI
    EndFunc
    
    
    
    Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
        Local $cGui = GUIGetCursorInfo($hGui)
    
        If Not IsArray($cGui) Then
            Return 0
        EndIf
    
        If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
        If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
    EndFunc
    
    
    
    
    
    Func Request_Service($Servicename)
        If _Service_Exists($Servicename) Then
            Return Status(_Service_QueryStatus($Servicename)[1])
        Else
            Return 'Service does not exist'
        EndIf
    EndFunc
    
    
    Func Request_Services()
    Local $Services[][] = [['','',''], _
                           ['MSSQL$AUGIAS'    , $SQLLabel    , "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE'], _
                           ['Apache2.4', $AppacheLabel, "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE']]
        $Services[0][0] = UBound($Services, $UBOUND_ROWS) - 1
        For $Row = 1 to $Services[0][0] Step +1
            if _Service_Exists($Services[$Row][0]) then
                $Services[$Row][3] = Status(_Service_QueryStatus($Services[$Row][0])[1])
            else
                $Services[$Row][3] = 'SERVICE_NOT_FOUND'
            endif
            GUICtrlSetData($Services[$Row][1], $Services[$Row][2] & $Services[$Row][3])
        Next
    endfunc
    
    
    
    Func Status($Status)
        Switch $Status
            Case 1
                $Status = 'SERVICE_STOPPED'
            Case 2
                $Status = 'SERVICE_START_PENDING'
            Case 3
                $Status = 'SERVICE_STOP_PENDING'
            Case 4
                $Status = 'SERVICE_RUNNING'
            Case 5
                $Status = 'SERVICE_CONTINUE_PENDING'
            Case 6
                $Status = 'SERVICE_PAUSE_PENDING'
            Case 7
                $Status = 'SERVICE_PAUSED'
            Case Else
                $Status = 'SERVICE_UNKNOWN_STATE'
        EndSwitch
    
        Return ($Status)
    EndFunc
    Alles anzeigen

    schönen Abend ncoh

    lg

    chris

  • ShelExecution und @HIDE

    • casi4712
    • 30. Januar 2022 um 23:05

    @VE: ok danke für den Hinweis, werde ich probieren

    Bezüglich dem Notepad++, hat der Probleme mit Autoit Code?


    NAchtgruss

    Chris

  • Folder mit Leerzeichen löschen

    • casi4712
    • 30. Januar 2022 um 15:26

    jawohl das funktioniert,

    recht herzlichen Dank

    lg

    chris

  • Buttons klickbar machen

    • casi4712
    • 30. Januar 2022 um 15:10

    Das ist jetzt das angepasste Script von Solve, sind lediglich ein paar Button dazugekommen, ich benutze notepad++, wieso fragst du? Aber wenn das hier zu unübersichtlich wird, werde ich das Script noch mal so weit runterkürzen, dass hier nur der eigentliche Problemcode übrig bleibt, aber dann beschwerden sich wieder Leute, dass sie nicht das "Ganze" sehen. Ich machs immer verkehrt. Basis war hier der in dem ZIP zur Verfügung gestellte Zwischenstand.

    lg

    chris

  • Folder mit Leerzeichen löschen

    • casi4712
    • 30. Januar 2022 um 15:04

    Hallo liebe Gemeinde,

    die Tücke steckt immer im Detail, gerade wenn man noch am Anfang steht. Zum Löschen eines Verzeichnisses kann man den Befehl

    AutoIt
    _RunDOS("del /Q e:\test test\*.*")

    verwenden. Dieses funktioniert auch, aber was tun wenn hier Leezeichen enthalten sind, noch mal den Namen in " hilkft jedenfalls nicht


    lg


    chris

  • ShelExecution und @HIDE

    • casi4712
    • 30. Januar 2022 um 13:37

    hallo erstmal und danke,

    @VE ja ich hatte den Parameter @SW_HIDE angehängt, hatte den code so jetzt hier vergessenzu posten, mein Fehler, aber dass eben geht nicht. Da macht er nichts.

    Schnuffel: das hier funktioniert,


    danke noch mal

    und schönen Sonntag

    AutoIt
    Syncro()
    
    Func Syncro()
       $usbdb_dir = 'C:\windows\system32\robocopy.exe'
       $source = 'c:\plc'
       $destination = 'c:\plc1'
    
    ShellExecuteWait($usbdb_dir, $source & ' "' & $destination & '"' & ' /E /Z /MIR /R:3 /W:5 /XD ' & '"' & $source & 'Recycled\' & '" "' & $source & 'Recycler\' & '" "' & $source & 'System Volume Information\' & '"', "", "", @SW_HIDE)
    EndFunc
  • ShelExecution und @HIDE

    • casi4712
    • 30. Januar 2022 um 00:59

    hallo Solve,

    danke erstmal für deinen Code. Puh, ganz schöne Menge Code für eine Kopieraktion, aber versteh dass natürlich, wenn man schon einen Fremdbefehl aufruft, über dessen Code ja letzlich nichts bekannt ist.

    lg und schönen Sonntag noch

  • ShelExecution und @HIDE

    • casi4712
    • 29. Januar 2022 um 19:56

    Hallo Oscar,

    vielen Dank für die Antwort, habe das jetzt so übernommen, wie gesagt der String ohne SW_Hide funktionierte so, aber hier ist noch der Wurm drin, es kommt zwar kein CMD Fennster aber er macht ebenso wenig :(

    lg


    chris

  • ShelExecution und @HIDE

    • casi4712
    • 29. Januar 2022 um 18:04

    Hallo allerseits,

    ich habe eine Function um einen Ordner zu synchronisieren mit Robocopy, mir gelingt es einfach nicht das CMD Fenster mit ,@Hide zu unterdrücken, weiss jemand an welche Stelle es hier eingebaut werden muss? Ohne Hide funktionietr bei mir folgender Aufruf:

    AutoIt
    ;Syncro()
    
    Func Syncro()
       $usbdb_dir = 'C:\windows\system32\robocopy.exe'
       $source = 'c:\plc'
       $destination = 'f:\plc1'
    
    ShellExecuteWait($usbdb_dir, $source & ' "' & $destination & '"' & ' /E /Z /MIR /R:3 /W:5 /XD ' & '>nul 2>&1' & '"' & $source & 'Recycled\' & '" "' & $source & 'Recycler\' & '" "' & $source & 'System Volume Information\' & '"')
    EndFunc

    Ich weiss, es gibt wahrscheinlich bessere Methoden es direkt in Autoit zu machen, da ich aber in AutoIt noch am Anfang stehe soll mir diese Quick und dirty Lösung erst mal genügen.


    lg


    Chris

  • Buttons klickbar machen

    • casi4712
    • 29. Januar 2022 um 15:07

    So, melde mich noch mal eben zurück,

    @ Solve; ich habe die von Dir gemachten Vorschläge eben mal in das bisher bestehende Script eingearbeitet, die Servicenamen habe ich auch eben angepasst. Wahrscheinlich habe ich die Labels nur wieder falsch gemacht.

    AutoIt
       ; GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: " & _SQL(), 10, 35, 980, 20)
            GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: " & $SQLLabel, 10, 35, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
            ;GUICtrlCreateLabel(" Web-Server                : " & _Webserver(), 643, 50, 980, 20)
       GUICtrlCreateLabel(" Web-Server                : " & $AppacheLabel, 643, 50, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold

    Er zeigt jedenfalls immer nur :0 an, egal welchen der beiden Server ich an oder ausschalte, auch nach 5 Minuten steht da nur 0. Wo ist mein Denkfehler ? Hier noch mal das Script, so wie es nun angepasst wurde.

    AutoIt
    #cs ----------------------------------------------------------------------------
    
     AutoIt Version: 3.3.14.5
     Author:         myName
    
     Script Function:
        Template AutoIt script.
    
    #ce ----------------------------------------------------------------------------
    
    ; Script Start - Add your code below here
    
    
    ; includes ---------------------------------------------------------------------
    #include-once
    #include "GUIBkImage.au3"
    #include "Services.au3"
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiCtrlSetOnHover_UDF.au3>
    #include <StaticConstants.au3>
    #include <String.au3>
    #include <WinApi.au3>
    #include <WindowsConstants.au3>
    #include <WindowsConstants.au3>
    
    
    ; opt --------------------------------------------------------------------------
    Opt('MustDeclareVars', 1)
    
    
    
    ; declaration ------------------------------------------------------------------
    
    Global $ARRAY_COLOR_TOP_MIN[3] = [36, 65, 142]
    Global $ARRAY_COLOR_TOP_MAX[3] = [11, 42, 122]
    Global $sHost = @ComputerName
    Global $RBOX_EVENT_CLOSE  = 1
    Global $ROUNDES           = 20
    Global $LastHwnd          = 0
    Global $PCName            = @ComputerName
    Global $BeepFile          = 'C:\Windows\Temp\beep.wav'
    Global $sTaskName         = '_07_DataCollect'
    Global $sScriptRootFolder = "C:\Users\Administrator\Downloads\"
    Global $GUIBKCOLOR        = 0xEEC591
    Global $AugVers           = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{92000000-2021-0000-0000-415547494153}", "DisplayVersion")
    Global $sFilePath         = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
    Global $WinBuild          = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentBuild")
    Global $WinDisplayVers    = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DisplayVersion")
    Global $WinName           = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
    Global $gMsg, $iPID, $prog
    
    Global $idButton_1, $idButton_2, $idButton_3, $idButton_4, $idButton_5, $idButton_6, $idButton_7
    Global $idButton_8, $idButton_9, $idButton_10, $idButton_11, $idButton_12, $idButton_13, $idButton_14
    Global $idButton_15, $idButton_16, $idButton_17, $idButton_18, $idButton_19, $idButton_20, $idButton_21
    Global $idButton_22, $idButton_23, $idButton_24, $idButton_25, $idButton_26, $idButton_27, $idButton_28
    Global $idButton_29, $idButton_30, $idButton_31, $idButton_32, $idButton_33, $idButton_34, $idButton_35
    Global $idButton_36, $idButton_37, $idButton_38, $idButton_39, $idButton_40, $idButton_41, $idButton_42
    Global $idButton_43, $idButton_44, $idButton_45, $idButton_46, $idButton_47, $idButton_48, $idButton_49
    Global $idButton_50, $idButton_51, $idButton_52, $idButton_53, $idButton_54, $idButton_55, $idButton_56
    Global $idButton_57, $idButton_58, $idButton_59, $idButton_60, $idButton_61, $idButton_62, $idButton_63
    Global $idButton_64, $idButton_65, $idButton_66, $idButton_67, $idButton_68, $idButton_69, $idButton_70
    Global $idButton_71, $idButton_72, $idButton_73, $idButton_74, $idButton_75, $idButton_76, $idButton_77
    Global $idButton_78, $idButton_79, $idButton_80
    
    Global Const $SQLLabel     = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: SERVICE_UNKNOWN_STATE"    , 10, 600, 980, 20)
    Global Const $AppacheLabel = GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local Appache-Server: SERVICE_UNKNOWN_STATE", 625, 35, 980, 20)
    Global $iServiceStatusLabel = ""
    Global $iServiceStatusLabel2 = ""
    
    AdlibRegister(Request_Services, 60000) ;Refresh jede Minute
    
    
    ; processing -------------------------------------------------------------------
    FileInstall("C:\Users\Rickl\Pictures\DSC04006.jpg", "C:\Windows\Temp\hg.jpg", 1)
    
    Global $hGui = RBoxCreate("LAC WartungsTool Beta", 840, 600)
    
    _createLabels()
    _createButtons()
    
    
    
    ;GUICtrlCreatePic('C:\Windows\Temp\hg.jpg', 0, 25, 920, 660)
    
    While True
        CheckX($hGui, $RBOX_EVENT_CLOSE, "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0xA3A3A3)", "GuiCtrlSetColor(" & $RBOX_EVENT_CLOSE & ",0x555555)")
    
        $gMsg = GUIGetMsg()
        ;$PID = 0
        Switch $gMsg
            Case $GUI_EVENT_CLOSE, $RBOX_EVENT_CLOSE
                GUIDelete($hGui)
                Exit
    
            Case $idButton_1
                $iPID = Run($sScriptRootFolder & "PC-Einrichtung\PCSETTING_listv2.cmd", "", 10)
    
            Case $idButton_2
                $iPID = Run($sScriptRootFolder & "CustomCOPY.bat", "", 10)
    
            Case $idButton_3
                MsgBox(0, "", 3)
    
            Case $idButton_4
                Global $filename = "C:\Program Files\Notepad++\notepad++.exe"
    
                If FileExists($filename) Then
                    $prog = ShellExecute($filename, "C:\Windows\start\RegWerte_setzen.reg", "", "open", @SW_SHOW)
                Else
                    ;~ $prog = ShellExecute("C:\Windows\start\RegWerte_setzen.reg","","open",@SW_SHOW)
                    $prog = ShellExecute('notepad.exe', 'C:\Windows\start\RegWerte_setzen.reg')
                EndIf
    
            Case $idButton_5
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_11
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd")
                ;~ $iPID = Run($sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_12
                $iPID = RunWait(Run(@ComSpec & " /c " & $sScriptRootFolder & "CreateTasks.cmd"))
                ;~ RunWait(@ComSpec & " /c " & $sScriptRootFolder & "CreateTasks.cmd")
                ;~ $iPID = Run($sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_13
                $iPID = RunWait(Run(@ComSpec & " /c " & $sScriptRootFolder & "ETC\ProxyStandard.cmd"))
                ;~ RunWait(@ComSpec & " /c " & $sScriptRootFolder & "ETC\ProxyStandard.cmd")
                SoundPlay($BeepFile)
    
            Case $idButton_14
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "TestTOOLS\WuReset.bat")
                ;~ $iPID = Run($sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_15
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "PC-Einrichtung\WinUpd.cmd")
                ;~ $iPID = Run($sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_16
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "ETC\OfficeRegister.cmd    ")
                ;~ $iPID = Run($sScriptRootFolder & "PC-Einrichtung\AddedApps.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_17
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "PC-Einrichtung\Soft\officeKill.cmd", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_19
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "PC-Einrichtung\TOOLS\TOOLS\AppsRepair.bat", "", 10)
                SoundPlay($BeepFile)
    
            Case $idButton_32
                Local $sServiceName = "Apache2.4"
                GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
    
            Case $idButton_36
                Local $sServiceName = "MSSQL$AUGIAS"
                GUICtrlSetData($iServiceStatusLabel, $sServiceName & ": " & Request_Service($sServiceName))
    
            Case $idButton_39
                $iPID = Run(@ComSpec & " /c " & $sScriptRootFolder & "Ordner_leeren.cmd")
                ;~ RunWait(@ComSpec & " /c " & $sScriptRootFolder & "Ordner_leeren.cmd")
                ;~ SoundPlay($BeepFile)
    
            Case $idButton_40
                ;GUICtrlSetTip(-1, "Standard Image an Benutzer anpassen")
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "Datentraegerbereinigung\Dtclean.bat")
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_41
                RunWait(@ComSpec & " /c " & $sScriptRootFolder & "PC-Einrichtung\TestGeraete.cmd")
                _SQL()
                ;~ MsgBox(0,"", "Es existiert eine Variable mit dem Namen: " & $st ) ;<= hier soll der name der variable stehen, nicht der wert
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_47
                ;~ ShellExecute($sScriptRootFolder & "Windows10Upgrade9252.exe")
                RunWait($sScriptRootFolder & "Windows10Upgrade9252.exe")
                $iPID = SoundPlay($BeepFile)
                FileDelete("C:\Users\rickl\Desktop\Windows 10-Update-Assistent.lnk")
    
            Case $idButton_53
                GUICtrlSetTip(-1, "Standard Image an Benutzer anpassen")
                RunWait(@ComSpec & " /c " & "V:\Austausch-Daten\rickl\inv2\CSV-Merge10.bat")
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_54
                GUICtrlSetTip(-1, "Standard Image an Benutzer anpassen")
                RunWait(@ComSpec & " /c " & "V:\Austausch-Daten\rickl\inv2\CSV-Merge_Short.bat")
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_55
                GUICtrlSetTip(-1, "Inventar-Liste")
                ShellExecute("\\ds1\Freigaben\Referat_5_Informationstechnologie\51_Hardware_und_Software\511_Inventare\5112_Invertarliste_Hardware\Hardware\Inventarliste Hardware.xls")
                $iPID = SoundPlay($BeepFile)
    
            Case $idButton_56
                GUICtrlSetTip(-1, "Inventarisierungs-Script ausführen")
                Local $sTaskName = '_07_DataCollect'
                ;~ RunWait("schtasks /Run /TN ' & "$sTaskName"')
                ;~ RunWait('schtasks.exe /Run /TN ' & $sTaskName, '', @SW_HIDE)
                $iPID = SoundPlay($BeepFile)
        EndSwitch
    WEnd
    
    
    
    ; functions --------------------------------------------------------------------
    Func _createLabels()
    
       ; GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: " & _SQL(), 10, 35, 980, 20)
            GUICtrlCreateLabel("CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: " & $SQLLabel, 10, 35, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
            ;GUICtrlCreateLabel(" Web-Server                : " & _Webserver(), 643, 50, 980, 20)
       GUICtrlCreateLabel(" Web-Server                : " & $AppacheLabel, 643, 50, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
        GUICtrlCreateLabel($PCName, 610, 290, 980, 30)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 19, 800) ; bold
    
        GUICtrlCreateLabel($WinBuild, 610, 330, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
        GUICtrlCreateLabel($WinDisplayVers, 610, 350, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
        GUICtrlCreateLabel($AugVers, 610, 370, 980, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
        GUICtrlCreateLabel($WinName, 610, 390, 980, 30)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 800) ; bold
    
        GUICtrlCreateLabel("Einzelmodule", 10, 115, 780, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 900) ; bold
    
        GUICtrlCreateLabel("System-Wartung und Checks", 10, 220, 780, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 900) ; bold
    
        GUICtrlCreateLabel("Datenbank", 10, 420, 780, 20)
        GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
        GUICtrlSetFont(-1, 9, 900) ; bold
    
        $iServiceStatusLabel = GUICtrlCreateLabel("Service", 600, 440, 780, 20)
        $iServiceStatusLabel = GUICtrlCreateLabel("Service2", 600, 485, 780, 20)
    
    EndFunc
    
    Func _createButtons()
        $idButton_1  = GUICtrlCreateButton("Customize PC", 10, 55, 100, 20)
                       GUICtrlSetTip(-1, "Standard Image an Benutzer anpassen")
        $idButton_2  = GUICtrlCreateButton("Image-Prepare", 130, 55, 100, 20)
                       GUICtrlSetTip(-1, "Vorinstallaierte Windows Version anpassen -> Image")
        $idButton_3  = GUICtrlCreateButton("DL aktualisieren", 250, 55, 100, 20)
        $idButton_4  = GUICtrlCreateButton("RegSettings", 370, 55, 100, 20)
        $idButton_5  = GUICtrlCreateButton("TEST", 490, 55, 85, 20)
        $idButton_11 = GUICtrlCreateButton("Standard Software", 10, 135, 100, 20)
        $idButton_12 = GUICtrlCreateButton("Aufgaben", 130, 135, 100, 20)
        $idButton_13 = GUICtrlCreateButton("Standard Proxies", 250, 135, 100, 20)
        $idButton_14 = GUICtrlCreateButton("WinUpd Reset", 370, 135, 100, 20)
        $idButton_15 = GUICtrlCreateButton("UPDATES", 490, 135, 100, 20)
        $idButton_16 = GUICtrlCreateButton("Office registrieren", 610, 135, 100, 20)
        $idButton_17 = GUICtrlCreateButton("Office Kill", 730, 135, 100, 20)
        $idButton_18 = GUICtrlCreateButton("Domäne out/in", 10, 160, 100, 20)
        $idButton_19 = GUICtrlCreateButton("APPS reparieren", 130, 160, 100, 20)
        $idButton_20 = GUICtrlCreateButton("", 250, 160, 100, 20)
        $idButton_21 = GUICtrlCreateButton("", 370, 160, 100, 20)
        $idButton_22 = GUICtrlCreateButton("", 490, 160, 100, 20)
        $idButton_23 = GUICtrlCreateButton("", 610, 160, 100, 20)
        $idButton_24 = GUICtrlCreateButton("", 730, 160, 100, 20)
        $idButton_32 = GUICtrlCreateButton("ggg", 10, 185, 100, 20)
        $idButton_33 = GUICtrlCreateButton("", 130, 185, 100, 20)
        $idButton_34 = GUICtrlCreateButton("", 250, 185, 100, 20)
        $idButton_35 = GUICtrlCreateButton("", 370, 185, 100, 20)
        $idButton_36 = GUICtrlCreateButton("gfgf", 490, 185, 100, 20)
        $idButton_37 = GUICtrlCreateButton("VB ON temp", 610, 185, 100, 20)
        $idButton_38 = GUICtrlCreateButton("VB OFF", 730, 185, 100, 20)
        $idButton_39 = GUICtrlCreateButton("PC-CLEAN", 10, 240, 100, 20)
        $idButton_40 = GUICtrlCreateButton("Win bereinigen", 130, 240, 100, 20)
        $idButton_41 = GUICtrlCreateButton("Geräte Check", 250, 240, 100, 20)
        $idButton_44 = GUICtrlCreateButton("", 610, 240, 100, 20)
        $idButton_45 = GUICtrlCreateButton("", 730, 240, 100, 20)
        $idButton_46 = GUICtrlCreateButton("Win RESET!", 10, 265, 100, 20)
        $idButton_47 = GUICtrlCreateButton("Win Update Ass.", 130, 265, 100, 20)
        $idButton_48 = GUICtrlCreateButton("", 250, 265, 100, 20)
        $idButton_51 = GUICtrlCreateButton("MKLINK EPIC", 610, 265, 100, 20)
        $idButton_52 = GUICtrlCreateButton("", 730, 265, 100, 20)
        $idButton_53 = GUICtrlCreateButton("PC-List long", 490, 340, 100, 20)
        $idButton_54 = GUICtrlCreateButton("PC-List short", 490, 365, 100, 20)
        $idButton_55 = GUICtrlCreateButton("Inventar Liste", 490, 390, 100, 20)
        $idButton_56 = GUICtrlCreateButton("Inventarisieren", 490, 315, 100, 20)
    EndFunc
    
    Func RBoxCreate($Title, $width, $height, $left = -1, $top = -1, $show = 1)
        Local $GUI = GUICreate($Title, $width, $height, $left, $top, $WS_POPUP)
        GUISetBkColor($GUIBKCOLOR, $GUI)
    
        ;~ _GuiRoundCorners($GUI,0,0,$ROUNDES,$ROUNDES)
    
        $RBOX_EVENT_CLOSE = GUICtrlCreateLabel('X', $width - 20, 3, 25, 25)
        GUICtrlSetCursor($RBOX_EVENT_CLOSE, 0)
        GUICtrlSetBkColor($RBOX_EVENT_CLOSE, -2)
        GUICtrlSetFont($RBOX_EVENT_CLOSE, 15, 800)
        GUICtrlSetColor($RBOX_EVENT_CLOSE, 0x555555)
    
        $Title &= " "
        Local $hTitle = GUICtrlCreateLabel($Title, 0, 0, $width - 20, 26, $SS_CENTER, $GUI_WS_EX_PARENTDRAG)
        GUICtrlSetFont($hTitle, 17, 400, 0, "Consolas")
        GUICtrlSetBkColor($hTitle, -2)
    
        Local $Graphic = GUICtrlCreateGraphic(0, 0, $width, 25)
        GUICtrlSetState($Graphic, $Gui_DISABLE)
        ;~ GradientFill($Graphic, 0, 0, $width, 25, $ARRAY_COLOR_TOP_MIN, $ARRAY_COLOR_TOP_MAX)
    
        If $show = 1 Then GUISetState(@SW_SHOW, $GUI)
    
        Return $GUI
    EndFunc
    
    Func CheckX($hGui, $CtrlID, $sCMD, $eCMD)
        Local $cGui = GUIGetCursorInfo($hGui)
    
        If Not IsArray($cGui) Then
            Return 0
        EndIf
    
        If $LastHwnd <> $cGui[4] And $cGui[4] = $CtrlID Then Return Execute($sCMD) + Assign("LastHwnd", $cGui[4])
        If $LastHwnd <> $cGui[4] Then Return Execute($eCMD) + Assign("LastHwnd", $cGui[4])
    EndFunc
    
    Func _SQL()
        Local $st = False
        Local $FileText ; fehlt!
        Local Const $SeviceName = "SQL Server (AUGIAS)" ; name of the service to test ; Local Const fehlte
    
        RunWait(@ComSpec & " /c net start > c:\temp\services.txt", "", @SW_HIDE) ; send a list of the services that are running to a file
    
        ; hier würde eine Prüfung Sinn machen
        $FileText = FileRead("c:\temp\services.txt", FileGetSize("c:\temp\services.txt")) ; read that file
    
        If StringInStr($FileText, $SeviceName) Then ; check for the service name
            $st = "RUNNING" ; ich würde True wählen
        Else
            $st = "OFF" ; ich würde False wählen
        EndIf
    
        Return $st
    EndFunc
    
    Func _Webserver()
        Local $ws ; fehlt! und ich würde es hier direkt als = False setzen!
        Local $FileText ;fehlt!
        Local Const $SeviceName = "Apache2.4"
    
        RunWait(@ComSpec & " /c net start > c:\temp\services.txt", "", @SW_HIDE)
    
        ; hier würde eine Prüfung Sinn machen
        $FileText = FileRead("c:\temp\services.txt", FileGetSize("c:\temp\services.txt")) ; read that file
    
        Local $st
        If StringInStr($FileText, $SeviceName) Then ; check for the service name
            $st = "RUNNING" ; ich würde True wählen
        Else
            $st = "OFF" ; ich würde False wählen
        EndIf
    
        Return $st
    EndFunc
    
    ;;;;;;;;; wie am besten per parameter servicename in ein Label einbinden ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Func Request_Service($Servicename)
        If _Service_Exists($Servicename) Then
            Return Status(_Service_QueryStatus($Servicename)[1])
        Else
            Return 'Service does not exist'
        EndIf
    EndFunc
    
    
    
    Func Request_Services()
    Local $Services[][] = [['','',''], _
                           ['MSSQL$AUGIAS'    , $SQLLabel    , "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE'], _
                           ['Apache2.4', $AppacheLabel, "CUSTOMIZING" & _StringRepeat(" ", 185) & "Local SQL-Server: ", 'SERVICE_UNKNOWN_STATE']]
        $Services[0][0] = UBound($Services, $UBOUND_ROWS) - 1
        For $Row = 1 to $Services[0][0] Step +1
            if _Service_Exists($Services[$Row][0]) then
                $Services[$Row][3] = Status(_Service_QueryStatus($Services[$Row][0])[1])
            else
                $Services[$Row][3] = 'SERVICE_NOT_FOUND'
            endif
            GUICtrlSetData($Services[$Row][1], $Services[$Row][2] & $Services[$Row][3])
        Next
    endfunc
    
    
    
    Func Status($Status)
        Switch $Status
            Case 1
                $Status = 'SERVICE_STOPPED'
            Case 2
                $Status = 'SERVICE_START_PENDING'
            Case 3
                $Status = 'SERVICE_STOP_PENDING'
            Case 4
                $Status = 'SERVICE_RUNNING'
            Case 5
                $Status = 'SERVICE_CONTINUE_PENDING'
            Case 6
                $Status = 'SERVICE_PAUSE_PENDING'
            Case 7
                $Status = 'SERVICE_PAUSED'
            Case Else
                $Status = 'SERVICE_UNKNOWN_STATE'
        EndSwitch
    
        Return ($Status)
    EndFunc
    Alles anzeigen

    Ich hoffe bin nicht al zu nervig, in der Hauptache verzweifelt..

    lg

    Chris

  • Buttons klickbar machen

    • casi4712
    • 29. Januar 2022 um 14:01

    Hallo erst mal, danke erstmal für die Antworten. Wie ich bereits erwähnte, habe ich hier alles gelesen, auch das Schlagwort AdlibRegister, hielt es eigemtlich für überflüssig das extra zu ewähnen, aber es war hier lediglich für mich ein Schlagwort. Ein dauerndes wiederholen der beiden Schlagworte bringt da auch nicht viel.

    @Mombas;: war ja nun auch schon einiges am Googlen, das hatte ich aber noch nicht gefunden, werde ich mir mal anscheuen. Hatte eher gelesen, dass es wohl nicht gehen solle, was ich mir offen gesagt nicht so ganz vorstellen konnte.

    Danke noch mal und schönes Wochenende noch

    lg

    Chris

  • Buttons klickbar machen

    • casi4712
    • 28. Januar 2022 um 13:21

    So Danke noch mal,

    SOLVE-SMART

    irgend wie hatte ich wohl letztes Mal versucht zu antworten, dass Script funktioniert jetzt so wie du es gesagt hast, als per Push. Wie sähe denn nun eine Lösung aus, wo der Zutand automatisch (bei mir dann oben rechts) gepollt wird, Für das an und abschalten habe ich ein externes Script, da hier noch eine ganze Reihe anderer Operationen durchgeführt werden, dass werde ich zu gegebener Zeit noch mit übernehmen. Und liesse sich dass auch auf umkomplizierte Weise machen, hier evtl. noch einen anderen Service abzuchecken, (bspw. Apache2.4) Ich finde den Aufbau im übrigen so jetzt auch besser, die AusgangsGui stammt im Übrigen auch nicht von mir (ziehe mir für diesen Stil also den Schuh auch nicht an;) ). Aber auch nach der Umstellung (Optimierung) wurde jetzt von mir keine Beschleunigung bemerkt, aber da hab ich auch nichts dran auszusetzen gehabt, Autoit scheint da relativ tolerant zu sein.

    und nochmals Dank für die Mühe, was ich auch durch aus sehe, und worauf ich auch immer wieder hinweise, da brauchen sich nicht andere für mich zu bedanken. Mag sein das mein deutsch noch nicht so gut ist und das nicht richtig rüberkommt.

    lg und schönen Tag noch

    Chris

    BTW, ich empfinde diese ganzen Seitenhiebe, ob man mir nun hier helfen sollte oder nicht als reichlich überflüssig, genau so wie die versteckten Angrriffe, ich würde hier irgendwelche Leute ignorieren oder in sonst irgendeiner Form angreifen. Ich lese hier alles aufmerksam durch, auch wenn ich im ersten Moment vielleicht mit einer Sache noch nicht viel anfangen kann. Natürlich ist es freiwillig jedem selbst überlassen Hilfestellung zu geben, aber darauf muss doch nicht extra hingewiesen werden. Ich hoffe wir können im Weiteren ohne auskommen, zumal es auch für andere das Lesen des eigntlichen Kontestes deutlich eschweren dürfte.

  • Buttons klickbar machen

    • casi4712
    • 26. Januar 2022 um 18:34

    SO ich hab das jetzt ma eben gecheckt. Mit einem Button zur Aktualisierung kann ich durchaus leben, auch wenn eine Aktualisierun in einem bestimmten Intervall sicher cool wäre. Leider scheint es aber nicht zu funktionieren. Wenn ich dich richtig verstanden habe, sollte er ja, sofern ich den Service Status verändere (ausschalten), nach Klick auf "gfgh" unten stoped anzeigen, bei mir bleibt es aber auf Service Running,


    lg

    chris

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™