Icq6 Pws auslesen

[sunny-boy3]

hier was kleines von mir, wie du die icq-nummern des rechners ermitteln kannst

Dim nrfolder As String = "C:\Documents and Settings\Administrator\My Documents\ICQ"
        Dim sFiles() As String = System.IO.Directory.GetFiles(nrfolder)
        Dim sDirs() As String = System.IO.Directory.GetDirectories(nrfolder)

        For Each ordner As String In sDirs
            TextBox1.Text &= System.IO.Path.GetFileName(ordner) & vbCrLf
        Next

Das sieht doch schonmal geil aus

Jetzt bleibt nurnoch die frage offen wie ich die base 64 in hex bekomme