Der Datei Checker v2.0

  • Der Datei Checker v2.0

    Ein neues Programm zum Checken von Dateien.

    Dieses Programm habe ich geschrieben um Attribute von einer Datei auslesen zu lassen.
    Es hat nun die Beta Phase verlassen, und sollte Bug-Free laufen.
    Sollten trotzdem Bugs auftauchen, einfach im Forum Posten.

    Dieses Programm Checkt u.a. Attribute und ob ein Programm existiert, es ist KEIN Anti-Virus.
    Ich habe dieses Programm vollständig auf Viren überprüft, es wurden keine gefunden.
    Der Source-Code ist auch wieder dabei, also keine angst :D

    Wenn ihr weitere Funktionen haben wollt, postet diese einfach als Antwort.

    MfG. PrideRage

  • Ich hatte selber mal ein Tool zum prüfen und setzen von Datei-Attributen geschrieben(mit GUI und Checkboxen), hier mal der Code:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.0.0
    Author: Arkaneus

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Prüft und setzt Attribute für/von Dateien

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $GUI = GUICreate("Attributs-Prüfer", 270, 265, 232, 124)
    $Group1 = GUICtrlCreateGroup("Datei wählen...", 16, 16, 241, 97)
    $file = GUICtrlCreateInput("C:\boot.ini", 24, 32, 121, 21)
    $choose = GUICtrlCreateButton("Datei wählen...", 152, 32, 91, 25, $WS_GROUP)
    $check = GUICtrlCreateButton("Attribute prüfen...", 24, 72, 99, 25, $WS_GROUP)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $R = GUICtrlCreateCheckbox("Read-Only (R)", 16, 120, 89, 17)
    $A = GUICtrlCreateCheckbox("Archive (A)", 16, 144, 81, 17)
    $S = GUICtrlCreateCheckbox("System (S)", 16, 168, 81, 17)
    $H = GUICtrlCreateCheckbox("Hidden (H)", 16, 192, 73, 17)
    $O = GUICtrlCreateCheckbox("Offline (O)", 120, 144, 65, 17)
    $D = GUICtrlCreateCheckbox("Ordner (D)", 120, 120, 73, 17)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $C = GUICtrlCreateCheckbox("Komprimiert (C)", 120, 168, 97, 17)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $T = GUICtrlCreateCheckbox("Temporär (T)", 120, 192, 97, 17)
    $set = GUICtrlCreateButton("Attribute setzen", 16, 224, 99, 25, $WS_GROUP)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState(@SW_SHOW)

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Case $choose
    $file_path = FileOpenDialog("Datei auswählen...", "C:\", "Alle Dateien (*.*)", 3, "")
    If Not @error Then
    GUICtrlSetData($file, $file_path)
    EndIf
    Case $check
    GUICtrlSetState($R, $GUI_UNCHECKED)
    GUICtrlSetState($A, $GUI_UNCHECKED)
    GUICtrlSetState($S, $GUI_UNCHECKED)
    GUICtrlSetState($H, $GUI_UNCHECKED)
    GUICtrlSetState($O, $GUI_UNCHECKED)
    GUICtrlSetState($D, $GUI_UNCHECKED)
    GUICtrlSetState($C, $GUI_UNCHECKED)
    GUICtrlSetState($T, $GUI_UNCHECKED)
    $f = GUICtrlRead($file)
    $att = FileGetAttrib($f)
    If StringInStr($att, "R") Then GUICtrlSetState($R, $GUI_CHECKED)
    If StringInStr($att, "A") Then GUICtrlSetState($A, $GUI_CHECKED)
    If StringInStr($att, "S") Then GUICtrlSetState($S, $GUI_CHECKED)
    If StringInStr($att, "H") Then GUICtrlSetState($H, $GUI_CHECKED)
    If StringInStr($att, "O") Then GUICtrlSetState($O, $GUI_CHECKED)
    If StringInStr($att, "D") Then GUICtrlSetState($D, $GUI_CHECKED)
    If StringInStr($att, "C") Then GUICtrlSetState($C, $GUI_CHECKED)
    If StringInStr($att, "T") Then GUICtrlSetState($T, $GUI_CHECKED)
    GUICtrlSetState($set, $GUI_ENABLE)
    Case $set
    $newatt = ""
    If BitAND(GUICtrlRead($R), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "R"
    EndIf
    If BitAND(GUICtrlRead($A), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "A"
    EndIf
    If BitAND(GUICtrlRead($S), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "S"
    EndIf
    If BitAND(GUICtrlRead($H), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "H"
    EndIf
    If BitAND(GUICtrlRead($O), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "O"
    EndIf
    If BitAND(GUICtrlRead($T), $GUI_CHECKED) = $GUI_CHECKED Then
    $newatt &= "T"
    EndIf
    If MsgBox(262436, "Sicher?", "Wirklich Attribute setzen?") = 6 Then
    FileSetAttrib($f, $newatt)
    If NOT @error Then MsgBox(64, "Fertig!", "Attribute erfolgreich geschrieben!", 10)
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Ich bin momentan dabei, dass ganze zu erweitern und es wie das Eigenschaften-Fenster von XP aufzubauen, nur halt mehr Optionen.