Beiträge von Ghostleader

  • Passwort geschützten Ordner auslesen

    Hallo zusammen,

    blubbstar,
    ja sicherlich die datenbank ordner würde ich eben gerne mit einem PW verschlüsseln. Mein Problem ist ja dann das das Programm ja die Datenbänke einlesen muss was es aber nicht kann solange da das Passwort drauf ist. Deswegen meine Frage nach einem Befehl im AutoIt den ich einbauen kann der dann dem Programm bei zugriff quasi das Passwort eingibt und wenn das Programm geschlossen wird wieder rückgängig macht! Währe super wenn du dazu vielleicht dann die Hilfestellung hast.

    autoBert,
    also kann ich damit quasi jede .Data datenbank verschlüsseln und entschlüsseln lassen vom programm?

    Mfg Ghostleader

  • Passwort geschützten Ordner auslesen

    Hallo peethebee,

    Danke erstmal für deine Antwort.

    Ich weiss net so recht ob es mit dem Programm möglich ist einzelne Ordner mit einem Passwort zu versehen, da ja da von Partitionen die rede ist.

    Desweiteren müsste ich ja auch erstmal wissen ob es in AutoIt möglich ist einen Passwort geschützten Ordner auszulesen. Gibt es einen Befehle wo man dann das passwort einträgt damit das Programm wärend des auslesens auch an die im Ordner befindlichen daten kommt?

    Mfg Ghostleader

  • Passwort geschützten Ordner auslesen

    Hallo zusammen,

    ich habe mich gefragt ob es einen Befehl gibt mit dem man einen Passwort geschützten Ordner auslesen kann.
    Warum das ganze? Ganz einfach, wir arbeiden mit einem in AutoIt geschriebenem Tool das mehrere Ordner enthält die wir gerne über ein Passwort verschlüsseln wollen, sodas die leute die unser Tool nutzen zwar das Tool selber nutzen können aber an die Ordner nicht ran kommen.

    Momentan ist es so das wenn der Ordner mit passwort geschützt ist das programm zwar läuft, die tabellen aber die dieser ordner enthällt bei laufendem programm lehr bleiben.

    Ich hoffe ihr könnt mir diesbezüglich helfen.

    Günstig währe es auch wenn jemand ein gutes kostenloses Ordner passwort vergabe Programm kennt!

    Mfg Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo zusammen,

    ersteinmal ein Herzliches Dankeschön an alle die mir hier geholfen haben! Auch ein großes Danke dafür das das hier alles so super schnell und vorallem Kompetent ohne irgendwelche Sprüche von statten geht! SUPER Forum SUPER Community!

    misterspeed
    Ein besonderes Danke auch an dich für die viele Mühe die du dir gemacht hast um die verschiedenen Möglichkeiten auf zu zeigen und zu erklähren!

    autoBert
    Ich habe das mal so eingebaut und muss sagen als Übergangslösung ist das eine echt tolle Sache! Ich würde gerne mal etwas mit dir über PN oder falls du hast über Scype besprechen! Falls das ok für dich ist melde dich doch bitte und sage mir bescheid!

    Mfg an alle Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo misterspeed,

    danke für die wieder schnelle Antwort.

    Also das downloadfenster wird angezeigt, jedoch ist auch hier leider keine Bewegung zu sehen sondern der Balken bleibt leer!

    Ich weiss ja leider nicht was direkt noch von nöten währe um das Problem zu erleichtern!

    Kann man nicht etwas verwenden ähnlich diesem hier?

    Spoiler anzeigen
    [autoit]

    $Quelle = @SystemDir & '\taskmgr.exe'
    $Ziel = "C:\taskmgr.exe"

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

    If _ProgressCopy($Quelle, $Ziel) Then MsgBox(0,"", "Kopiervorgang erfolgreich!")

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

    Func _ProgressCopy($SourceFile, $DestinationFile)
    If Not FileExists($SourceFile) Then Return SetError(1,1,0)
    If $SourceFile == $DestinationFile Then Return SetError(2,2,0)

    #region------------------------------------Declare Variables-------------------------------
    Local $ByteBlock, $Counter
    Local Const $BlockSize = Int(FileGetSize($SourceFile) / 99)
    Local Const $Opt = Opt("GUIOnEventMode", 0)
    Local $OpenHandle = FileOpen($SourceFile, 16)
    Local $WriteHandle = FileOpen($DestinationFile, 26)
    #endregion---------------------------------------------------------------------------------

    If $OpenHandle = -1 Or $WriteHandle = -1 Then Return SetError(3,3,0)

    #region------------------------------------GUI create--------------------------------------
    Local $GUI = GUICreate('', 400, 105, Default, Default, 0x80880000)
    Local $Label1 = GUICtrlCreateLabel($SourceFile, 8, 10)
    Local $Label2 = GUICtrlCreateLabel($DestinationFile, 8, 30)
    Local $Label3 = GUICtrlCreateLabel("0%", 360, 25, 30, 20, 0x2)
    Local $Button = GUICtrlCreateButton("Abbrechen", 160, 75, 80)
    Local $PBar = GUICtrlCreateProgress(8, 50, 384, 20)
    GUISetState()
    #endregion---------------------------------------------------------------------------------

    #region----------------------------------Copy File-----------------------------------------
    Do
    $ByteBlock = FileRead($OpenHandle, $BlockSize)
    If @error Then ExitLoop
    FileWrite($WriteHandle, $ByteBlock)
    $Counter += 1
    GUICtrlSetData($PBar, $Counter)
    GUICtrlSetData($Label3, $Counter & ' %')

    If GUIGetMsg() = $Button Then
    Opt("GUIOnEventMode", $Opt)
    FileClose($OpenHandle)
    FileClose($WriteHandle)
    GUIDelete($GUI)
    FileDelete($DestinationFile)
    Return SetError(4,4,0)
    EndIf

    Sleep(20) ;Bremse - Auskommentieren für maximale Geschwindigkeit
    Until 0
    #endregion---------------------------------------------------------------------------------


    Opt("GUIOnEventMode", $Opt)
    FileClose($OpenHandle)
    FileClose($WriteHandle)
    GUIDelete($GUI)
    Return 1
    EndFunc

    [/autoit]

    Mfg Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo autoBert,

    es ist in der Tat so, das es sich immer um nur eine Datei handelt (sorry das ich das nicht erwähnt habe) die gedownloadet wird. Es ist aber auch so das die User schon beim damaligen Hersteller des Programms dies bemängelten und wir das eben gerne mit ändern wollten!

    Ich hoffe trotzdem das es möglich ist mir zu helfen ich suche mal ob ich das was du gerne haben magst/brauchst zu finden!

    Mfg Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo BadBunny,

    die Progressbar ist eingebaut und nun vorhanden, dafür erstmal danke. Leider ist es nun tatsächlich so wie misterspeed schon beschreibt das es keinerlei bewegung der Progressbar gibt sondern immer nur (jenachdem wie ich es einstelle) eine bestimmte anzeige kommt und bleibt ohne sich zu bewegen.

    misterspeed

    Leider weiss ich nun nicht so recht welchen Teil du dafür brauchst! Ich habe aber noch etwas gefunden. Siehe Code Box:

    Spoiler anzeigen
    [autoit]

    Func LOADFILE($INETADRESS, $LOCALFILE)
    Local $HDOWNLOAD = InetGet($INETADRESS, $LOCALFILE, 17, 1)
    Do
    Sleep(250)
    Until INETGETINFO($HDOWNLOAD, 2)
    Local $ADATA = INETGETINFO($HDOWNLOAD)
    INETCLOSE($HDOWNLOAD)
    If $ADATA[3] = True Then
    Return 1
    Else
    Return 0
    EndIf

    [/autoit]

    Ich hoffe das ich gleich das richtige gefunden habe und du damit was anfangen kannst!

    Mfg Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo BadBunny,

    danke erstmal für deine sehr schnelle Antwort und die Erklährung der Progressbar anhand deines Beispieles. Nun stellt sich mir noch die Frage ob es einen bestimmten Punkt gibt wo ich diese einbauen muss, oder ob das egal ist! Desweiteren wird wenn man das Programm startet eine Update abfrage gemacht und wenn ein Update vorhanden ist dieses per MsgBox angezeigt und gefragt ob man es downloaden will oder nicht über --> Update starten ja/nein Auswahl, die dann ja auch da bedacht werden muss.

    Mfg Ghostleader

  • Progressbar in Update Funktion einbauen

    Hallo AutoIt´ler,

    ich wende mich an euch mit einer Frage die für die meisten von euch
    sicherlich einfach zu beantworten ist, aber für mich leider noch nicht.

    Um was für ein Programm handelt es sich fragt ihr euch?
    Wir haben ein schon vorhandenes Projekt zur weiterführung übernommen, da der Erfinder aus Zeitlichen und privaten Gründen nicht weiter machen kann und es daher an uns abgetreten hat! Der Quellcode zu dem Programm ist kommplett in Autoit geschrieben und umfasst insgesammt 27283 Zeilen!
    Es handelt sich hier um ein art Datenbank Programm, was den Usern kostenlos von uns zur Verfügung gestellt wird!
    In diesem Programm sammeln wir (Das Team rund um das Programm) alles was es in dem Spiel so gibt und (von Quests über Schiffen bis hin zu Kleidung usw.) speichern das in .Data Datein ab. Diese rufen wir dann über den Quellcode auf!

    Nun ist es zwar so, das wir einen AutoIt Programmierer in unserem Team haben, aber dieser leider momentan aus privaten und technischen Gründen nicht zur Verfügung steht!
    Viele User beschweren sich (schon vor übernahme durch uns) das wenn ein Update geladen wird keine Anzeige vorhanden ist die ihnen Aufschluss darüber gibt wie lange dieses noch zum herunterladen braucht! Nun dachte ich mir das man doch so eine schöne Progressbar einbauen könnte um eben dieses Problem zu beheben, aber leider blicke ich (trotz Video´s und Beispielen) nicht so recht durch wo, wie und was nun hin muss! Ich hatte vor sehr langer Zeit zwar mal was mit AutoIt zu tun, was mir aber im moment nichts nützt.

    Ich stelle euch mal die Updatefunktion in eine Code Box und hoffe das Ihr mir da weiterhelfen könnt!
    Code:

    [autoit]

    Func UPDATECHECK()
    DATENBANKENPRUEFEN()
    If $M <> 700 Then
    $TEMP[1] = GUICtrlCreateLabel(TRANSLATION("Es wird geprüft, ob neue Updates vorliegen. Bitte warten..."), 180, 320, 520, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 400)
    EndIf
    FileSetAttrib("*.*", "-r", 1)
    $VAR = 1
    If $VAR Then
    If IniRead($SCRIPTPATH & "data\config.ini", "TestUpdate", "Server", $ALTERNATIVEUPDATESERVER) = "http://www.test-test.eu" Then
    IniWrite($SCRIPTPATH & "data\config.ini", "TestUpdate", "Server", $ALTERNATIVEUPDATESERVER)
    EndIf
    $TZ = LOADFILE(IniRead($SCRIPTPATH & "data\config.ini", "TestUpdate", "Server", $ALTERNATIVEUPDATESERVER) & "/Updateinfo.data", $SCRIPTPATH & "data\Updateinfo.data")
    If $TZ = 1 Then
    $UNR = Number(IniRead($SCRIPTPATH & "data\Updateinfo.data", "Serverversion", "Versionnr", ""))
    $UPFAD = IniRead($SCRIPTPATH & "data\Updateinfo.data", "Serverversion", "Versionname", "")
    $FMIN = IniRead($SCRIPTPATH & "data\Updateinfo.data", "Serverversion", "Fullversionnr", "")
    $UMINPFAD = IniRead($SCRIPTPATH & "data\Updateinfo.data", "Serverversion", "Fullversionname", "")
    If $M <> 700 Then GUICtrlDelete($TEMP[1])
    If $LUPDATE = 0 Then
    If $UNR = 0 Then
    MsgBox(16, TRANSLATION("Updatecheck Fehler"), TRANSLATION("Die Updatedatei wurde vom Server fehlerhaft geladen!"), 0)
    ElseIf $UNR > $VNR Then
    If $VNR > $FMIN Then
    $JANEIN = MsgBox(68, "Update Information", TRANSLATION("Neues Update") & " '" & $UPFAD & "' " & TRANSLATION("verfügbar. Laden?"), 0)
    If $JANEIN = 6 Then
    If $M <> 700 Then
    $TEMP[1] = GUICtrlCreateLabel(TRANSLATION("Neues Update wird geladen. Bitte warten..."), 180, 320, 520, 25, $SS_CENTER)
    GUICtrlSetFont(-1, 14, 400)
    EndIf
    $FILE = IniRead($SCRIPTPATH & "data\config.ini", "TestUpdate", "Server", $ALTERNATIVEUPDATESERVER) & "/" & $UPFAD & ".exe"
    FileDelete($SCRIPTPATH & "Updates\Test Test Update*.*")
    LOADFILE($FILE, $SCRIPTPATH & "Updates\" & $UPFAD & ".exe")
    GUICtrlDelete($TEMP[1])
    MsgBox(64, "Update Information", TRANSLATION("Update wurde geladen und wird nun installiert. Der Test wird dazu geschlossen."), 0)
    If WinExists("Test-Counter") Then
    WinKill("Test-Counter")
    EndIf
    If WinExists("Test-Tray") Then
    WinKill("Test-Tray")
    EndIf
    Run($SCRIPTPATH & "Updates\" & $UPFAD & ".exe")
    Exit
    EndIf
    Else

    [/autoit]

    Schön wäre es wenn ihr mir beim einsetzen in den Code vielleicht kurz was dazu schreiben könntet warum gerade das und warum es dort hin kommt,
    damit ich es nachvollziehen und dadurch verstehen und lernen kann!

    Ich hoffe das mir nun jemand dabei helfen kann, mir antwortet und sage schonmal vielen Dank!

    Mfg Ghostleader