IE HTML Code auf Knopfdruck speichern?

IE HTML Code auf Knopfdruck speichern? (13 Beiträge, 132 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Ich bräuchte einen kleinen script:

Eine Schaltfläche im IE die folgendes macht:

bei der akteullen seite den quelltext auslesen, die id aus der url (Bsp: index.php?id=34235) auslesen und den quelltext dann als [idnummer].html speichern.

Hat wer eine Idee wie ich das anstellen könnte? ich kann die seite leider nicht automatisiert auslesen und ausserdem brauche ich nur vereinzelte ids.

bin für alle ideen offen. Ach ja: die seite hat einen Session basierten login.

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

naja: ich hab ja auch nichts von javascript gesagt

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

Ja keine Ahnung evtl VB-Script

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

nope deshalb ist das ja auch deaktiviert. Ich versuch es jetzt mal mit Maus/Tastaturmakros wenn keiner eine idee hat..

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

Versuch es einmal mit folgendem Skript (das Fettgedruckte einfach in eine Textdatei z.B. HtmlSpeichern.Vbs schreiben und irgendwo leichtzugänglich ablegen, z.B. am Desktop).

Danach Aufrufen der gewünschten Seite im Internet Explorer (ich hab es eben beispielhaft mit http://forum.geizhals.at/userinfo.jsp?id=35862  ausprobiert). Dabei darauf achten, dass nur ein einziger Explorer offen ist (sonst könnte das Skript eventuell das Fenster verwechseln, ist sonst aber keine Katastrophe).

Wenn Du nun das Skript aufrufst (Doppelklick), sollte im Wurzelverzeichnis von C: eigentlich die gewünschte HTML-Datei angelegt werden.

Mann kann das ganze natürlich beliebig verfeinern. Wenn man z.B. eine definierte Menge von Ids verarbeiten will, dann kann man das auch mit einem einzigen Skriptaufruf z.B. über eine ForEach-Schleife erledigen usw.

Hoffe, es hilft vielleicht als Basis zur Lösung Deines Problems.

-------------

Set Fso = CreateObject("Scripting.FileSystemObject")
Set IE = GetObject(,"InternetExplorer.Application")

Url = Ie.LocationUrl
Pos = InStr(Url,"?id=")
If Pos Then
  Id = CLng(Mid(Url,Pos+4,10))
  Set Fi = Fso.CreateTextFile ("C:\" & Id & ".Html")
  Fi.Write IE.Document.DocumentElement.innerHtml
  Fi.Close
End If

-------------

Hey, also was ichverstehe sieht das gut aus nur bekomm ich folgende fehlermeldung:

ActiveX-Komponenten kann kein Objekt erstellen: 'GetObject'

Was könnte das sein??

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

Hmm, dazu fallen mir momentan nur folgende Möglichkeiten ein:

a) Tippfehler in der zweiten Zeile (... CreateObject ...)
b) Zum Zeitpunkt des Skript-Aufrufs war kein anderes Internet-Explorer-Fenster offen (Achtung: Es funkt nur mit IE, nicht aber mit Firefox usw.)
c) IE ist bezüglich seiner Systemdateien vielleicht irgendwie durcheinander (Versionskonflikte, ...).

Falls Du Möglichkeiten a und b aber auschliessen kannst, dann versuch einmal testweise folgende 3 Zeilen. Es könnte sein, dass Deine IE-Installation nur mit dem GetObject, nicht aber mit dem CreateObject Probleme macht. Wenn das so ist, dann könnte man das Problem eventuell umgehen.

-------

Set IE = CreateObject("InternetExplorer.Application")
Ie.Visible = True
IE.Navigate "www.orf.at"

-------

also dein testscript geht: er macht ein neues fenster mit ORFauf.

wenn ich aber die get durch die creatobjekt ersetze bekomme ich zwar keine Fehlermeldung mehr aber speichern tut er auch nix

momentan sieht es so aus:

Set Fso = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")

Url = Ie.LocationUrl
Pos = InStr(Url,"?id=")
If Pos Then
  Id = CLng(Mid(Url,Pos+4,10))
  Set Fi = Fso.CreateTextFile ("C:\" & Id & ".html")
  Fi.Write IE.Document.DocumentElement.innerHtml
  Fi.Close
End If

Danke für deine Hilfe!

50 Visitenkarten vollkommen kostenlos!
www.gratis-visitenkarten.com

Gut, also funktioniert wenigstens das CreateObject bzgl des IE noch. War aber schon klar, dass man da noch etwas mehr tun muss als das Ersetzen vom GetObject auf CreateObject.

Vielleicht zum Verständnis:
Mit IE=CreateObject("InternetExplorer.Application") generierst man eine neue IE-Instanz (also praktisch ein neues Explorer-Fenster), das standardmässig unsichtbar ist, solange man es nicht mit "Ie.Visible=True" sichtbar schaltest.
Mit IE=GetObject(,"InternetExplorer.Application") schafft man eine Verbindung zu einer bereits existierenden IE-Instanz (daher muss dafür natürlich auch immer mindestens ein IE-Fenster offen sein).

Da GetObject zumindest in Bezug auf den IE bei Dir leider "kaputt" zu sein scheint müssen wir also die Strategie in Richtung CreateObject abändern.

Daher nächstes Beispiel:
Hier erzeuge ich mit einem Aufruf für 3 bestimme (zufällig gewählte) Geizhals-User deren UserInfo-Seiten als HTML-Dateien und lege sie auf C:\ ab. Das Array ist natürlich beliebig erweiterbar.

-----------

Set Fso = CreateObject("Scripting.FileSystemObject")
Set IE = CreateObject("InternetExplorer.Application")
Ie.Visible = True

For Each Id In Array(96042,60535,47133)
  IE.Navigate "http://forum.geizhals.at/userinfo.jsp?id=" & Id
  While IE.Busy
  WEnd
  Set Fi = Fso.CreateTextFile ("C:\" & Id & ".Html")
  Fi.Write IE.Document.DocumentElement.innerHtml
  Fi.Close
Next

-----------

Wenn meine Theorie richtig ist, dann sollte obiges Geizhals-Beispiel bei Dir 1:1 funktionieren und Du müsstest es also nur noch auf deine konkreten Seiten und Ids anpassen.

Falls es dabei mit dem Login ein Problem gibt (ich bin mir momentan nicht ganz sicher, wie sich das bei Deiner Seite auswirkt) dann fügst einfach als etwas unschönen Workaround zusätzlich eine MsgBox-Zeile ein:

Ie.Visible = True
MsgBox "Weitermachen"
For Each Id In Array(96042,60535,47133)

d.h. Nach dem Starten des Skripts öffnet sich ein IE-Fenster und zusätzlich eine Box mit dem Text "Weitermachen". Im IE-Fenster gehst Du auf die Seite wo die Anmeldung ist und meldest dich an. Danach bestätigst die "Weitermachen-Box" und löst damit die Erzeugung aller Dateien, die in dem Array aufgeführt sind aus.

Wenns das so funktioniert, kann man später natürlich die Grauslichkeit mit der MsgBox noch etwas verschönern (automatisches Login, ...)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung