Hier jetzt mal mein erstes Script für FreePDF. Verbesserungsvorschläge höre ich natürlich gerne.
[Programm]
Name=Ghostscript & FreePDF
Version=8.54 & 1.6
Kategorie=Tools
Beschreibung=FreePDF legt einen Drucker an, mit dem man PDF-Dateien "drucken" kann. FreePDF hat den Vorteil, dass es keinerlei Werbung enthält. Ghostscript wird als Grundlage zur PDF-Erstellung benötigt.
Spoiler anzeigen
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Ghostscript & FreePDF
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: Ghostscript 8.54 (gs854w32.exe) & FreePDF 1.6 (FreePDFXP1.6.exe)
;|___________________________________________________________________________________________________________________________________
#RequireAdmin
#NoTrayIcon
#include "..\..\funktionen.au3"
[/autoit] [autoit][/autoit] [autoit];Ghostscript
$parameter = ""
$suche = FileFindFirstFile(@ScriptDir & "\gs*.exe")
$datei = FileFindNextFile($suche)
FileClose($suche)
ShellExecute(@ScriptDir & "\" & $datei, $parameter)
;Dateien entpacken und Setup starten
WinWait("WinZip Self-Extractor - gs","AFPL Ghostscript")
WinActivate("WinZip Self-Extractor - gs","AFPL Ghostscript")
WinWaitActive("WinZip Self-Extractor - gs","AFPL Ghostscript")
ControlClick("WinZip Self-Extractor - gs", "&Setup", "Button1")
;Auf Setupfenster warten
WinWait("AFPL Ghostscript Setup")
WinActivate("AFPL Ghostscript Setup")
WinWaitActive("AFPL Ghostscript Setup")
;Schriften werden installieren (keine Installation durch Aktivierung des nächsten ControlClick)
;ControlClick("AFPL Ghostscript Setup", "Install Ghostscript Fonts", "Button5")
;Installation starten
ControlClick("AFPL Ghostscript Setup", "Install", "Button1")
;Fenster schließen
WinWait("Ghostscript")
WinActivate("Ghostscript")
WinWaitActive("Ghostscript")
WinClose("Ghostscript")
Sleep(1000)
;Free PDF
$parameter = ""
$suche = FileFindFirstFile(@ScriptDir & "\free*.exe")
$datei = FileFindNextFile($suche)
FileClose($suche)
ShellExecute(@ScriptDir & "\" & $datei, $parameter)
WinWait("FreePDF XP", "&Setup")
WinActivate("FreePDF XP", "&Setup")
WinWaitActive("FreePDF XP", "&Setup")
ControlClick("FreePDF XP", "&Setup", "ThunderRT5CommandButton3")
WinWait("FreePDF XP", "&End")
WinActivate("FreePDF XP", "&End")
WinWaitActive("FreePDF XP", "&End")
ControlClick("FreePDF XP", "&End", "ThunderRT5CommandButton1")