vbs - enum_folder_mencoder_join

Sub enum_folder_mencoder_join()
    Dim fso As New FileSystemObject, fo As Folder, fi As File, s, i
    Dim pn
    pn = "F:\Movies\new!"
    pn = "F:\Neuer Ordner\Neuer Ordner (3)"
    pn = "F:\Movies\AVI"
    pn = "F:\Movies\new2"
    'pn = "F:\Movies\new!"
    pn = "D:\JD\_DONE_"
    'pn = "D:\Filme\new"
    
    
    For Each fo In fso.GetFolder(pn).SubFolders
        i = 0: s = ""
        For Each fi In fo.Files
            If Right(fi.Name, 4) = ".avi" Then
                If InStr(1, fo.Name, fi.Name) > 0 Then Exit For
                i = i + 1
                s = s & "|" & fi.Name
            End If
        Next
        If i > 1 Then
            Debug.Print "d:\mencoder -noodml -ovc copy -oac copy -o """ & fo.Name & "\" & fo.Name & "-XviD.avi"" " & Mid(Replace(s, "|", """ """ & fo.Name & "\") & """", 3)
            
        End If
    Next
    
    
End Sub

visited 12 states (5.33%)
Create your own visited map of The World

Perfect masking using a highpass - GIMP

Perfect masking using a highpass

http://www.gimpusers.de/tutorials/highpass-freistellen.html

1. 1
   Öffnet ein beliebiges Bild mit einer Großaufnahme einer Person. Ich verwende ein in Google gefundenes Bild von einer bekannten Persönlichkeit
   
   Zum Vergrößern klicken
2. 2
   Dupliziert die HG-Ebene 2 mal, sodass ihr 3 gleiche Ebenen habt. Auf die oberste wendet ihr den gaußschen Weichzeichner an (Wert 18) an und setzt die Ebene auf 50 % Deckkraft. Danach geht ihr auf Farben / Invertieren. Ihr solltet nun etwas ähnliches erhalten:
   
   Zum Vergrößern klicken
3. 3
   Nun klickt rechts in den Ebenendialog und vereint die Ebene mit der darunterliegenden. Geht auf Farben / Sättigung entfernen (Mittelwert). Danach geht auf Farben / Kurven und wendet eine leichte S-Kurve an:
   
   Zum Vergrößern klicken
4. 4
   Danach wählt ihr Farben / Helligkeit-Kontrast: Es müssen gute Kontraste zustande kommen (vor allem bei den Haaren sollten sie gut zu sehen sein). Jetzt sind wir zumindest mal mit dem Highpass / Hochpass fertig.
   
   Zum Vergrößern klicken
5. 5
   Geht auf Farben / Invertieren.
   
   Zum Vergrößern klicken
6. 6
   Jetzt nehmt ihr den Pinsel und malt die Person vollständig weiß an. Ihr müsst die Hautteile, die im Bild sichtbar bleiben sollen anmalen. Malt auf keinen fall über die Haare bzw über die Details die ihr freistellen wollt.
   
   Tipp: Schiebt die Originalebene über die mit dem Hochpass und stellt die Deckkraft auf 20 od 30%. So seht ihr die Person ganz leicht durchscheinen und wisst genau was ihr anmalen müsst und was nicht.
   
   Zum Vergrößern klicken
7. 7
   Danach malt ihr außen herum alles schwarz an. Malt auf keinen Fall bereits weiße Teile an. Nehmt euch zuerst die Übergänge von Weiß auf Grau vor, danach nehmt ihr das freie Auswahlwerkzeug, zieht eine grobe Auswahl um den Körper und füllt den Rest auf einmal (STRG+, oder Bearbeiten / mit VG-Farbe füllen) mit Schwarz - drückt vorher D um die Farben auf Schwarz / Weiß zurückzusetzen.
   
   Zum Vergrößern klicken
8. 8
   Wenn ihr nur noch Schwarz und Weiß auf dieser Ebene habt habt markiert ihr alles mit STRG+A, kopiert es (STRG+C) und wechselt auf die HG-Ebene mit dem Originalbild. Klickt rechts auf die Ebene und wählt Alphakanal hinzufügen. Danach wählt ihr im selben Menü Ebenenmaske hinzufügen. Dann geht ihr auf Bearbeiten -> Einfügen. Danach ist das Eingefügte auf einer schwebenden Ebene. Klickt auf den Verankern-Button im Ebenenmenü um die Maske zu aktivieren.
   
   Erstellt eine neue, transparente Ebene, schiebt sie in der Ebenenreihenfolge im Ebenendialog ganz nach unten und füllt diese mit einer beliebigen Farbe. Fertig! Das Objekt oder die Person sollte nun perfekt freigestellt sein.
   
   Zum Vergrößern klicken

Google Reader Help - keyboard shortcuts

Are there any keyboard shortcuts? - Google Reader Help

AJAX, XML, XSLT (and some ASP) tricks: Login to Google Data API

AJAX, XML, XSLT (and some ASP) tricks: Login to Google Data API
Google Data API has numerous client-side libraries, but not an ASP/VBScript one. Here’s the first routine you need: it authenticates you with the Google API and returns a handle you can use in subsequent calls.

Dim XRQ ' global XMLHttpRequest object

Function GoogleLogin(UN,Pwd,Svc)
  Dim RQData,I,RT

  GoogleLogin = Null
  RQData = EncodeFormData(Array("Email","Passwd","service","source"), _
    Array(UN,Pwd,Svc,"VBScript-BloggerLibrary-0.1"))

  If Not IsObject(XRQ) Then Set XRQ = CreateObject("Microsoft.XMLHTTP")
  XRQ.open "POST","https://www.google.com/accounts/ClientLogin",false
  XRQ.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  XRQ.send RQData
  If HTTPCheck(XRQ,"Google login response", _
    "https://www.google.com/accounts/ClientLogin") Then
    RT = XRQ.responseText
    I = InStr(RT,"Auth=")
    If I = 0 Then wr "Google response has no AUTH data" : Exit Function
    RT = Mid(RT,I+5,Len(RT))
    I = InStr(RT,Chr(10)) : If I > 0 Then RT = Left(RT,I-1)
    GoogleLogin = RT
  End If
End Function

xwrt 3.2 command line options for good compression results

Large Text Compression Benchmark (read more)

xwrt 3.2 (Oct. 29, 2007) is a dictionary preprocessor frontend to LZMA, PPMVC and lpaq6 as well as a standalone preprocessor. Option
-l14 selects lpaq6 option 9 (1542 MB).
-b255 selects 255 MB memory (maximum) for building the dictionary.
-m96 selects 96 MB buffer during compression. (Higher values cause out of memory error).
-s turns of space modeling.
-e40000 limits the dictionary size to 40000 words.
-f200 limits the dictionary to words that occur at least 200 times.

Compression                      Compressed size      Decompressor  Total size   Time (ns/byte)Program           Options                       enwik8      enwik9     size (zip)   enwik9+prog  Comp Decomp  Mem Alg Note-------           -------                     ----------  -----------  -----------  -----------  ----- -----  --- --- ----xwrt 3.2     -l14 -b255 -m96 -s -e40000 -f200 18,679,742  151,171,364     52,569 s  151,223,933   2537  2328 1691 CM

NetFlow Reliable Export With SCTP - Cisco Systems

NetFlow Reliable Export With SCTP - Cisco Systems
Cisco IOS NetFlow Advanced Configuration Guides

NetFlow Reliable Export With SCTP (pdf)