Thema Datum  Von Nutzer Rating
Antwort
08.05.2018 13:57:55 2000ede
Solved
09.05.2018 22:05:58 2000ede
NotSolved
09.05.2018 23:38:51 Gast72870
NotSolved
10.05.2018 11:19:30 2000ede
NotSolved
10.05.2018 17:25:40 Gast72870
NotSolved
10.05.2018 17:27:49 Gast56833
NotSolved
10.05.2018 11:34:49 2000ede
NotSolved
10.05.2018 11:46:14 2000ede
NotSolved
10.05.2018 17:32:11 Gast72870
NotSolved
Blau Seitequelltext in eine Variable
 10.05.2018 17:54:49 Gast72870
NotSolved
10.05.2018 17:55:37 Gast6544
NotSolved
10.05.2018 18:05:47 2000ede
Solved
10.05.2018 20:01:38 Gast72870
NotSolved
10.05.2018 23:42:46 2000ede
Solved
13.05.2018 21:56:57 2000ede
NotSolved

Ansicht des Beitrags:
Von:
Gast72870		 Datum:
10.05.2018 17:54:49		 Views:
534		 Rating:
     
Antwort:
  Ja
Thema:
Seitequelltext in eine Variable

Wenn du nur den Seitenquelltext haben willst, auf den hast du Zugriff über die Variable html.

Option Explicit

Public Sub Test()
'benötigt Verweis auf:
' * Microsoft HTML Object Library
' * Microsoft WinHTTP Services, version x.x
'
  Dim req As WinHttp.WinHttpRequest
  Dim html As MSHTML.HTMLDocument
   
  Set req = New WinHttp.WinHttpRequest
   
  Call req.Open("GET", "https://www.meteo.physik.uni-muenchen.de/wetter/index.html", False)
  Call req.send
   
  Set html = New MSHTML.HTMLDocument
  Call CallByName(html, "writeln", VbMethod, req.responseText)
  
  'Seitequelltext
  Dim myVar As String
  myVar = html.DocumentElement.outerHTML
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.05.2018 13:57:55 2000ede
Solved
09.05.2018 22:05:58 2000ede
NotSolved
09.05.2018 23:38:51 Gast72870
NotSolved
10.05.2018 11:19:30 2000ede
NotSolved
10.05.2018 17:25:40 Gast72870
NotSolved
10.05.2018 17:27:49 Gast56833
NotSolved
10.05.2018 11:34:49 2000ede
NotSolved
10.05.2018 11:46:14 2000ede
NotSolved
10.05.2018 17:32:11 Gast72870
NotSolved
Blau Seitequelltext in eine Variable
 10.05.2018 17:54:49 Gast72870
NotSolved
10.05.2018 17:55:37 Gast6544
NotSolved
10.05.2018 18:05:47 2000ede
Solved
10.05.2018 20:01:38 Gast72870
NotSolved
10.05.2018 23:42:46 2000ede
Solved
13.05.2018 21:56:57 2000ede
NotSolved