[VB] Favoriten ?!?!

[SiNNeR]

*schnief* Ich wollte fuer meinen neuen browser versucht favoriten function wie bei IE zu programmieren .... und leider funzt gar nichts ,. hab schon ein paar source codes ausprobiert und trotzdem nichts

hat jemand n tipp fuer mich ?

danke im vorraus leute !

PS: FB Rulz , werd ich nie [(wieder)] verlassen

 

[werkam]

Habe Dir mal schnell eine Datei gemacht, die als Text vorliegt. Wenn Du diese in *.htm umbenennst, kannst Du sie mit dem Explorer öffnen und die Links besuchen.
Nur damit Du den Aufbau einer solchen Datei kennst.
Die Sachen AddDate, LastModified und LastVisit kannst Du auch leer lassen.

 

[SiNNeR]

Danke , aber die datei geht bei mir net , hab sie in dateityp *.htm unbenannt , aber geht trotzdem nichts

 

[werkam]

Original erstellt von #SiNNeR#
Danke , aber die datei geht bei mir net , hab sie in dateityp *.htm unbenannt , aber geht trotzdem nichts

Die Datei ist auch eine Zip Datei, die mußt Du erst einmal entpacken, danach ist es eine Textdatei, die solltest Du Dir ansehen, damit Du den Aufbau einer Favoriten Liste verstehst. Warum muß ich mich eigentlich immer aufregen, wenn ich Dir versuche zu helfen.

 

[SiNNeR]

lol bin ich blöd hab dich falsch verstanden sorry

hast ja nichts von entpacken gesagt is aber net schlimm , danke !

 

[Schattenkanzler]

Moment...hab ich dich richtig verstanden?

Du willst also einen eigenen Browser basteln, der eine Favoriten-Funktion hat, richtig?

Is im Prinzip ganz simpel, geht auf viele Arten!

Beispielsweise kannst du die Favoriten in der Registry speichern:

Dim FC as Integer
'User fügt neuen Favoriten dazu
FC = GetSetting (App.Title, "Settings", "FavCount","")  'Anzahl Favoriten auslesen
FC = FC + 1                                                                    'Anzahl um eins erhöhen
SaveSetting App.Title, "Settings", "FavCount", FC        'Neue Anzahl speichern
SaveSetting App.Title, "Favoriten", "FavUrl" & FC, Webbrowser1.LocationURL 'URL speichern
SaveSetting App.Title, "Favoriten", "FavDes" & FC, Webbrowser1.LocationName 'Beschreibung speichern

Dann musst du nur noch ein variables Menü anpassen, aber das überlasse ich dir!

Du kannst das ganze natürlich auch in einer Textdatei speichern:

Dim URL, DES
'User fügt neuen Favoriten hinzu:
Open App.Path & "\data\fav.cfg" for Append As #1
 Print #1, URL
 Print #1, DES
Close #1

Es geht natürlich auch mit einer Datenbank, aber da hab ich jetzt grad nicht wirklich Bock drauf!

Du kannst es aber auch so machen, dass du die einzelnen Ordner, die ja in den Favoriten des beispielsweise IE angezeigt werden, vom User anlegen lässt:

mkdir

sollte dir dabei helfen

Dann musst du die Verzeichnisse, die natürlich immer im Hauptverzeichnis bzw. darunter erzeugt werden, um Fehler zu vermeiden, nur noch rekursiv durchsuchen (Beispiel findest du bei http://www.ActiveVB.de/, die haben da aber nach MP3s gesucht oder so).

So, hoffe, es hat dir ein bissel geholfen. Hier noch mal eine kurze Zusammenfassung der verwendeten Befehle:

SaveSetting - speichert Infos in der Registry unter HKEY_CURRENT_USER\Software\VB and VBA Program Settings\...

Syntax:

SaveSetting Ordner, Verzeichnis, Schlüssel, Wert

Beispiel:
 SaveSetting "MeinProgramm", "Settings", "Passwort", "geheim"

würde den Eintrag "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MeinProgramm\Settings\Passwort" erzeugen, der den Wert "geheim" hätte!

GetSetting - liest Infos aus der Registry aus, wie oben, nur halt rückwärts.

Syntax:

Variable = GetSetting (Ordner, Verzeichnis, Schlüssel, Standard)

Beispiel:
 Passwort = GetSetting ("MeinProgramm", "Settings", "Passwort", "")

würde den oben mit SaveSetting generierten Eintrag auslesen. Du kannst die GetSetting-Anweisung auch als Variable nutzen:

 IF GetSetting (...) Then... Bla

So, denke mal, das reicht vorerst!

Wenn was is: PM oder Email


S†ay Dark!


Schattenkanzler