Beiträge von Eddy_Erpel

  • Probleme mit Ghostview drucken

    Kannst du das File von Hand löschen wenn die MsgBox erscheint?
    Aus zwei mach eins:

    Spoiler anzeigen
    [autoit]

    ;#NoTrayIcon
    ; Hier kann ein Hotkey zum Beenden des Programms festgelegt werden
    ; in Anführungszeichen vorm Komma, z. Z. ALT+SHIFT+Q
    HotKeySet("+!q", "Quit")

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

    ;Ist der Ordner C:\Temp\Workflow vorhanden?
    If FileExists("C:\Temp\Workflow") Then

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

    ; Alle Dateien/Ordner wo schon vorhanden sind werden vorher gelöscht
    FileDelete("C:\Temp\Workflow")
    DirRemove("C:\Temp\Workflow\gedruckt", 1)
    Else
    ; Erstellen des Workflows Ordners, nachdem festgestellt wurde, das der Ordner fehlt
    DirCreate("C:\Temp\Workflow")

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

    ; !Testschreiben! Schreibe in die INI, das der Ordner erstellt wurde
    ;IniWrite("C:\Programme\FreePDF_XP\Workflow-Druck.ini", "Ordner erstellt", "Ordner", "1")

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

    EndIf

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

    ;Pfad zu Gsview
    $program = "c:\Programme\Ghostgum\gsview"

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

    ; Pfad der auf neue Dateien überwacht werden soll
    $source = "C:\Temp\Workflow\"

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

    ; Pfad, in den die Dateien nach dem Drucken verschoben werden sollen
    ;$dest = "C:\Temp\Workflow\gedruckt"

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

    ; Dauer des Prüfintervalls in Millisekungen (10 Sek = 10000)
    $interval = 1000
    While 1
    Sleep($interval)
    $file=FileFindFirstFile ($source & "*.pdf")
    $pdffile=FileFindNextFile($file)
    if $pdffile<>"" Then
    RunWait('"' & $program & '\gsprint.exe" "' & $source & $pdffile & '"')
    FileClose($file)
    ;MsgBox(32,"File löschbar?","Versuch jetzt das File von Hand zu löschen und drück anschliessen auf OK")
    FileDelete($source & $pdffile)
    EndIf
    Wend

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

    Func Quit()
    Exit
    EndFunc
    Exit

    [/autoit]


    eddy_erpel

  • Probleme mit Ghostview drucken

    Hi,

    wenn das file gelöscht würde, dann sollte eigentlich alles funktionieren. Also er verlässt die 2. Schlaufe und kehrt zur 1. zurück und wartet, bis ein neues PDF existiert zum drucken. Da er aber immer wieder das selbe PDF findet, druckt er es auch immer und immer wieder aus.
    Ich kann mir folgendes vorstellen:

    • gsprint.exe hat das PDF noch nicht freigegeben zum Zeitpunkt von FileDelete
    • Ein anderes Prgram greift noch auf das PDF file zu und kann es deshalb nicht löschen

    probier es einmal zu testen so:

    [autoit]


    RunWait('"' & $program & '\gsprint.exe" "' & $source & '\' & $pdffile & '"')
    Sleep(5000)
    MsgBox("","",FileDelete("C:\Temp\Workflow\Druck.pdf")) ;Bei nicht erfolgreichem Löschen wird "0" zurückgegeben, ansonsten 1

    [/autoit]


    eddy_erpel

  • Dateiinfos ändern

    Hallo
    Kennt jemand eine Möglichkeit die erweiterten Dateiinfos einer Datei zu ändern?

    /edit
    Heureka, jetzt habe ich die Lösung gefunden:
    Mit diesem Plugin von M$ geht es: DSOFile
    Es muss nur das DSOFile.Dll registriert werden.

    [autoit]

    $objFile = ObjCreate("DSOFile.OleDocumentProperties")
    $objFile.Open("C:\test.txt")
    $objFile.SummaryProperties.Title="1.2"
    $objFile.Save
    $objFile.close()

    [/autoit]


    eddy_erpel

  • Wie erstelle ich ein Skript

    Hi,
    habe mir das Programm rasch angeschaut und festgestellt, dass es auch ohne Installation laufen würde (Installiert => auf anderen PC kopiert und läuft)
    Hier einmal das Install-Skript:

    Spoiler anzeigen
    [autoit]

    Opt("WinTitleMatchMode",4)
    Run('MediaMonkey_Setup_2_5_4.exe')
    WinWait("Setup-Sprache auswählen","Wählen Sie die Sprache aus")
    ControlClick("Setup-Sprache auswählen","Wählen Sie die Sprache aus","TButton1")
    WinWait("Setup - MediaMonkey","Dieser Assistent wird jetzt MediaMonkey")
    ControlClick("Setup - MediaMonkey","Dieser Assistent wird jetzt MediaMonkey","TButton1")
    WinWait("Setup - MediaMonkey"," Installation von MediaMonkey ")
    ControlClick("Setup - MediaMonkey"," Installation von MediaMonkey ","TRadioButton1")
    ControlClick("Setup - MediaMonkey"," Installation von MediaMonkey ","TButton2")
    WinWait("Setup - MediaMonkey","Ziel-Ordner wählen")
    ControlClick("Setup - MediaMonkey","Ziel-Ordner wählen","TButton3")
    WinWait("Setup - MediaMonkey","Startmenü-Ordner auswählen")
    ControlClick("Setup - MediaMonkey","Startmenü-Ordner auswählen","TButton4")
    WinWait("Setup - MediaMonkey","Zusätzliche Aufgaben auswählen")
    ControlClick("Setup - MediaMonkey","Zusätzliche Aufgaben auswählen","TButton4")
    WinWait("Setup - MediaMonkey","Dateiverknüpfungen wählen")
    ControlClick("Setup - MediaMonkey","Dateiverknüpfungen wählen","TButton4")
    WinWait("Setup - MediaMonkey","Installation durchführen")
    ControlClick("Setup - MediaMonkey","Installation durchführen","TButton4")
    WinWait("Setup - MediaMonkey","Beenden des MediaMonkey Setup-Assistenten")
    ControlSend("Setup - MediaMonkey","Beenden des MediaMonkey Setup-Assistenten","TNewCheckListBox1","{TAB}{SPACE}") ;Damit wird MM nicht gestartet nach Installation
    ControlClick("Setup - MediaMonkey","Beenden des MediaMonkey Setup-Assistenten","TButton4")

    [/autoit]

    peethebee : Die Befehle sind allerdings ein Problem. Ist mir bekannt (Bin selbst einige male reingelaufen:hammer:) Hätte es wohl etwas deutlicher schreiben können als nur

    Zitat

    Die liefern zwar keinen super optimerten Code


    eddy_erpel

  • Wie erstelle ich ein Skript

    Da habe ich etwas ein bisschen falsch verstanden (Bitübertragungsfehler in mein Gehirn :D)
    Einige fertige Skripte gibt es ja hier schon: Installationsskripte
    Ansonsten kannst du es auch einmal mit den SciTE generatoren AU3Recorder/AutoitMacroGenerator versuchen. Die liefern zwar keinen super optimerten Code dafür siehst du gleich die verwendeten Befehle....

    eddy_erpel

  • _INetMail & FTP

    Wenn die Datei nicht vorhanden ist, bekommst du als Grösse 0 zurück ansonsten die effektive Grösse. Ist also recht simpel... Ansonsten verwende doch die Funktion _FTPFileFindFirst aus dem ftp.au3

    eddy_erpel