FreePDF

nuely

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

[autoit]

;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Ghostscript & FreePDF
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: Ghostscript 8.54 (gs854w32.exe) & FreePDF 1.6 (FreePDFXP1.6.exe)
;|___________________________________________________________________________________________________________________________________

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

#RequireAdmin
#NoTrayIcon

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

#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)

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

;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")

[/autoit]

nuely

Anpassung an das neueste GhostScript.

[Programm]
Name=Ghostscript & FreePDF
Version=8.60 & 3.2
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

[autoit]

;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: Ghostscript & FreePDF
;|
;| Autor: Jens Ottersberg
;|
;| Getestet mit: Ghostscript 8.60 (gs860w32.exe) & FreePDF 3.2 (FreePDFXP3.20.exe)
;|___________________________________________________________________________________________________________________________________

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

#RequireAdmin
#NoTrayIcon

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

#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","Ghostscript")
WinActivate("WinZip Self-Extractor - gs","Ghostscript")
WinWaitActive("WinZip Self-Extractor - gs","Ghostscript")
ControlClick("WinZip Self-Extractor - gs", "&Setup", "Button1")
;Auf Setupfenster warten
WinWait("GPL Ghostscript Setup")
WinActivate("GPL Ghostscript Setup")
WinWaitActive("GPL Ghostscript Setup")
;Schriften werden installieren (keine Installation durch Aktivierung des nächsten ControlClick)
;ControlClick("Ghostscript Setup", "Install Ghostscript Fonts", "Button5")
;Installation starten
ControlClick("GPL Ghostscript Setup", "This installs", "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")

[/autoit]

**Gun-Food**

Stellst du uns auch die funktionen.au3 die du inkludiert hast zur Verfügung? Oder ist das eine Standard UDF? Glaub ich eigentlich nicht, weil hat ja nen deutschen Namen.

huggy

Tze tze tze hat wohl jemand keine IOM ?

Diese funktionen.au3 ist von pee und is bei der IOM dabei :>

nuely

wenn du sie nicht hast ist das in diesem Fall auch nicht schlimm, da keine Funktion hier benutzt wird.
Da ich die funktionen.au3 nicht geschrieben habe kann ich sie hier nicht reinstellen.

**peethebee**

Die Datei ist pillepalle ;-).
Halt paar kleine Funktionen à la "_IstOnline", die nur pingt oder um Skripte an einen mitgebrachten AutoIt-Interpreter zu übergeben ohne den Pfad kennen zu müssen.

Also nichts weltbewegendes, wer's braucht kann es sich aus dem kostenlosen IOM "Basispaket" beim PC Magazin holen :).

peethebee