VB Code in Vba wandeln, Firefox auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallöchen,

ich hänge noch immer an meiner Lieblingsherausforderung Browserfenster auszulesen fest, dazu hatte ich ja hier auch schon nachgefragt.
Für den IE habe ich reichlich Lösungen, es hapert am Firefox, stellvertretend für andere Browser.

Jetzt hatte ich in einem anderen Forum, kein VB, nur reines ExcelBva ist da Thema, nachgefragt und es haben sich netterweise einige daran versucht mir zu helfen.

Mir wurde der Link

http://www.vbarchiv.net/tipps/details.php?id=937

genannt, der genau das wäre was ich in Vba brauche.

**Leider1) Ich schaffte es nicht ihn nach Vba umzuändern. >/b>
Der Code hängt sich bei:

CallingForm.txtDDE.LinkTopic = Browser & „|WWW_GetWindowInfo“
CallingForm.txtDDE.LinkItem = &HFFFFFFFF
CallingForm.txtDDE.LinkMode = 2
CallingForm.txtDDE.LinkRequest

auf, da Vba kein LinkTopic usw. kennt.

Vba kennt bei DDE sowas da (deutsch/englisch):

'DDEKanalÖffnen DDEInitiate
'DDEAusführen DDEExecute
'DDEKanalSchliessen DDETerminate
'DDEAbfragen DDERequest
'DDESenden DDEPoke

leider gelang es nicht dies in Vba zu wandeln, z.B. so, anstatt

CallingForm.txtDDE.LinkTopic = Browser & „|WWW_GetWindowInfo“
sowas zu machen:
CallingForm.txtDDE.DDEInitiate Browser & „|WWW_GetWindowInfo“, txtDDE

Die beiden Befehle machen zwar das Gleiche, bzw. etwas sehr ähnliches , aber haben z.B. schon mal eine unterschiedliche Parameteranzahl u.v.m

Leider2) Mir wurde gesagt, auch in VB liefe er nicht korrekt.

Das ist schlecht, mangels VB-Kenntnissen kann ich ja gar nicht probieren den VB-Code funtionierend zu machen.

Denn eine VB-exe die das macht was ich will und das Ergebnis (die URL-Adressen aus allen laufenden Browserfenstern) in ein Txt-File schreibt würde reicht mir auch aus.

Ich habe jezt VB 5.0 (Einsteiger Edition) bei mir installiert, wäre also in der Lage (wenn mir jmd. erklärt wie das geht *gg*) VB-Quellcode selbst in eine Exe zu kompilieren.
Meine Versuche den Quellcode von www.vb-active.de zu kompilieren schlugen bisher leider fehl.

Hier die Beitragsfolge aus dem Excelforum damit hier keiner etwas ausprobiert was schon probiert wurde.

http://www.herber.de/forum/archiv/964to968/t966269.htm

Warum ich noch nicht ganz aufgeben habe und hier jetzt nochmal nachfrage, die sind dort Super in VBA, aber in VB dann doch nicht vergleichbar gut, und hier ist das ja eher umgedreht, somit habe ich große Hoffnungen daß jmd. hier zumindest den VB-Code zum perfekten Laufen bringt.

@Axel, klar nehme ich auch eine mit VB_Net gebastelte Exe *lächel*
(Oder in C, Assembler, Vbscript,sonstwas)

Danke schon mal
Gruß
Reinhard**

#2

Hallo Reinhard,

der Code läuft und gibt den Inhalt der Adresszeile zurück.

das war ja nicht ganz das, was Du suchst, oder?

Ich blicke bei dem Code nicht ausreichend gut durch um damit etwas anderes zu lesen. ich habe den Code mal Schrittweise ausgeführt, damit bin ich aber auch nicht weiter gekommen.

 CallingForm.txtDDE.LinkTopic = Browser & "|WWW\_GetWindowInfo"
 
 ' tell Browser to send us name and title of the last active window or frame
 CallingForm.txtDDE.LinkItem = &HFFFFFFFF
 CallingForm.txtDDE.LinkMode = 2
 CallingForm.txtDDE.LinkRequest

Das ist die Stelle, an der die Daten vom Browser geholt werden.

CallingForm.

#3

Hallo Rainer,

der Code läuft und gibt den Inhalt der Adresszeile zurück.

das war ja nicht ganz das, was Du suchst, oder?

verwirr mich jetzt nicht bitte :smile:

Ich weiß jetzt nicht ob du mit Inhalt der Adresszeile die URL der Webseite meinst, wenn ja so ist es genau das was ich suche.

Wenn der VB-Code, so wie mir gesagt wurde, beim IE fehlerhaft ist, so wäre das verkraftbar, denn die URL von Webseiten im IE kann ich direkt mit Vba auslesen.

Deshalb meine Nachfrage, kann er die URL von Webseiten des Firefoxes auslesen und die von Mozilla?

Das wäre Klasse, dann fehlten mir „nur“ noch Opera, Netscape und die kann ich vielleicht mit dem Code für den IE auslesen, wenn die so ähnlich sind wie im Code beschrieben steht.

Ich blicke bei dem Code nicht ausreichend gut durch um damit
etwas anderes zu lesen. ich habe den Code mal Schrittweise
ausgeführt, damit bin ich aber auch nicht weiter gekommen.

Wenn du nicht ausreichend durchblickst, was meinste was ich dann sehe, nämlich gar nix, grad an den wichtigen Stellen.

Ich war eben auf der Webseite des Code-Autors Jörg, leider läßt er sich nicht kontaktieren und auf seiner Webseite steht nix zu dem Code:frowning:(
Sieht nach einem Studenten aus der vor 3 Jahren fertig studiert hat…

Danke erstmal für den Versuch und deine Mühe
Gruß
Reinhard

#4

Hallo Reinhard,

der Code läuft und gibt den Inhalt der Adresszeile zurück.

das war ja nicht ganz das, was Du suchst, oder?

verwirr mich jetzt nicht bitte :smile:

Ich weiß jetzt nicht ob du mit Inhalt der Adresszeile die URL
der Webseite meinst, wenn ja so ist es genau das was ich
suche.

ach so? Dann habe ich Dich bisher falsch verstanden und ein paar gute Nachrichten für Dich. :smile:

Wenn der VB-Code, so wie mir gesagt wurde, beim IE fehlerhaft
ist, so wäre das verkraftbar, denn die URL von Webseiten im IE
kann ich direkt mit Vba auslesen.

Stimmt, IE kann der Code nicht.

Deshalb meine Nachfrage, kann er die URL von Webseiten des
Firefoxes auslesen und die von Mozilla?

Ja, das klappt habe ich mit Win2000 und FF2.0 getestet.

Das wäre Klasse, dann fehlten mir „nur“ noch Opera, Netscape

Opera und Netscape stehe auch im Code. Habe ich nicht testen können, sollte aber gehen.

und die kann ich vielleicht mit dem Code für den IE auslesen,
wenn die so ähnlich sind wie im Code beschrieben steht.

IE ist im Code nicht aufgeführt, müsstest Du testen, aber da sehe ich schwarz.

Aber bis dahin scheint das ja doch zu sein, was Du brauchst.
Dann zum Schritt zwei.
Das Programm liefert die URL in einer MessageBox.
Was hättest Du gern.
Ein Programm, das die URL in einer messageBox liefert?
Ein Programm, das die URL irgendwo hin schreibt?
Ein Programm, das die URL in die Zwischenablage schreibt?
Ein OCX das die die Fuktion ‚GetUrlFromBrowser‘ zur Verfügung stellt und die URL zurück gibt? …

Gruß, Rainer

PS. Wegen dem Zeitplan, privat habe ich zur Zeit kein VB …

#5

Klasse *vorfreu*
Hallo Rainer,

ach so? Dann habe ich Dich bisher falsch verstanden und ein
paar gute Nachrichten für Dich. :smile:

Wenn der VB-Code, so wie mir gesagt wurde, beim IE fehlerhaft
ist, so wäre das verkraftbar, denn die URL von Webseiten im IE
kann ich direkt mit Vba auslesen.

Stimmt, IE kann der Code nicht.

Das macht nix, dafür habe ich Code wahrscheinlich nehme ich den Link/Code von Ransi (heißt auch Rainer *gg*) aus dem anderen Forum.

Deshalb meine Nachfrage, kann er die URL von Webseiten des
Firefoxes auslesen und die von Mozilla?

Ja, das klappt habe ich mit Win2000 und FF2.0 getestet.

Super.

Das wäre Klasse, dann fehlten mir „nur“ noch Opera, Netscape

Opera und Netscape stehe auch im Code. Habe ich nicht testen
können, sollte aber gehen.

Super II, ich hab die auch nicht.

und die kann ich vielleicht mit dem Code für den IE auslesen,
wenn die so ähnlich sind wie im Code beschrieben steht.

IE ist im Code nicht aufgeführt, müsstest Du testen, aber da
sehe ich schwarz.

Ich meinte den Hinweis im Code von vb-active, daß beide auf den IE aufbauen.

Ein Programm, das die URL in einer messageBox liefert?

wird zu aufwendig, mit Vba dann ein Bild davon machen, mit OCR-Software auslesen usw. :smile:, nö, lieber nicht.

Ein Programm, das die URL irgendwo hin schreibt?
Ein Programm, das die URL in die Zwischenablage schreibt?
Ein OCX das die die Fuktion ‚GetUrlFromBrowser‘ zur Verfügung
stellt und die URL zurück gibt? …

Über die Zwischenablage ist sehr okay.

Um ein Ocx zu ändern braucht man ja, wenn ich mir das von dir richtig behalten habe (oder war es eine DLL?) VB6.0, da ich nur VB5.0 (Einsteigerversion) habe, kann ich da ja nichts ändern.

Natürlich nehme ich die auch :smile: aber ich bin nach der langen Suche schon allein überglücklich über die Lösung mit der Zwischenablage.

So richtig bescheiden ist es ja nicht, aber mir langt die exe und ein Quellcode der mit VB5.0 läuft.

PS. Wegen dem Zeitplan, privat habe ich zur Zeit kein VB …

Keinerlei Problem.

Gruß
Reinhard

#6

Hallo Reinhard,

So richtig bescheiden ist es ja nicht,

doch. :smile:

aber mir langt die exe und ein Quellcode der mit VB5.0 läuft.

Das ist doch genial! Ich verpack’s trotzdem, beim Installieren werden dann wenn nötig Komponenten hinzugefügt. Wenn die Exe erst nicht läuft, nach der Installation aber schon, weißt Du warum.

Auch das OCX bekommst Du (falls das funktioniert, das ist noch nicht sicher) in einem Beispielprogramm zum Installieren, dann ich das OCX registriert, hast alles was das OCX braucht und Du kannst es problemlos verwenden.

OK, wenn ich es ferig habe bekommst Du eine Mail mit Link, Programme im Anhang transportiert mein Mailclient nicht. Das muss ich über USB-Stick, -> iMac -> Webspace … bewerkstelligen.

Gruß, Rainer