31
News / Nero v.8.3.6.0 verfügbar
« am: 16. Juli 2008, 07:10:47 »
Ein neues Nero v.8.3.6.0 ist verfügbar. Liste der Änderungen s. u.:
http://www.nero.com/deu/downloads-nero8-update.php
http://www.nero.com/deu/downloads-nero8-update.php
Diese Sektion erlaubt es ihnen alle Beiträge dieses Mitglieds zu sehen. Beachten sie, dass sie nur solche Beiträge sehen können, zu denen sie auch Zugriffsrechte haben.
Folder Marker ist Euer kleiner Assistent, ein leideschaftlicher Kämpfer für die bequeme Arbeit am PC. Diese bequeme Anwendung wurde extra für Büroarbeit kreiert. Sie erlaubt Euch wichtige Ordner mithilfe von Farb- oder Bilder-Symbolen zu markieren um die unter Hunderten von ähnlich aussehenden gelben Ordnern einfacher wiederfinden zu können. Ihr könnt Ornder nach Priorität (hoch, mittel, niedrig), Abgeschlossenheit (erledigt, zur Hälfte erledigt, geplant), Bearbeitungsstatus (vorgesehen, abgelehnt, in Bearbeitung) und Informationstyp (Arbeit, wichtig, temporäre und private Dateien).
Public Function PDFDruck(Optional OhneMsg As Boolean)
Dim Zwi$, PDFPfad$, PDFName$, pdfjob
PDFPfad$ = "C:\Zwi"
'Ermittelt den Namen des aktiven Dokuments:
Zwi$ = ActiveDocument.Name
If InStr(1, Zwi$, ".", vbTextCompare) > 1 Then
PDFName$ = Mid(Zwi$, 1, InStr(1, Zwi$, ".", vbTextCompare) - 1)
Else
PDFName$ = "Unbenannt"
End If
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "PDFCreator kann nicht initialisiert werden. Bitte beenden Sie die PDFCreator-Prozesse.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
GoTo Ende
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = PDFPfad$
.cOption("AutosaveFilename") = PDFName$
.cOption("AutosaveFormat") = 0 '0 = PDF
.cDefaultPrinter = "PDFCreator"
.cPrinterStop = False
.cClearCache
ActiveDocument.PrintOut Background:=False
End With
'!!!!!!!!!!!!!!!!Wartet ab, bis fertig gedruckt ist:!!!!!!!!!!!!!!
Dim sleepTime, maxTime, c
sleepTime = 250
maxTime = 10
c = 0
Do While (pdfjob.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
c = c + 1
Sleep 200
Loop
'!!!!!!!!!!!!!!!Ende des Abwartens!!!!!!!!!!!!!!
Ende:
Zwi$ = pdfjob.cOutputFilename
pdfjob.cClose
Set pdfjob = Nothing
If Not OhneMsg Then
If Len(Zwi$) > 0 Then
MsgBox "Das Dokument wurde nach " & Zwi$ & " gespeichert.", vbInformation
Else
MsgBox "Beim Speichern als pdf ist ein Fehler aufgetreten!", vbCritical
End If
End If
PDFDruck = Zwi$
End Function
Man kann jedoch ziemlich sicher davon ausgehen, dass eine Kombination von Firefox mit der Erweiterung NoScript wenig Angriffsfläche für derartige Attacken bietet.gerade das Firefox NoScript-AddOn