'*** v8.4 *** www.dieseyer.de *******************************
'
' Datei:  htmldateispeichern.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
' Die Prozedur
'	getURL( url, un, pw )
' zieht den Quelltext einer (Html-) Internetseite.
'
' http://www.source-center.de/forum/showthread.php?t=41077
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim HtmlSeite, Txt
HtmlSeite = "http://www.source-center.de/forum/showthread.php?t=41077"
Txt = getURL( HtmlSeite, "", "" )

MsgBox Txt

HtmlSeite = "http://dieseyer.de/index.html"
Txt = getURL( HtmlSeite, "", "" )
WScript.CreateObject("Scripting.FileSystemObject").OpenTextFile( WSCript.ScriptFullName & ".html", 2, true ).Write( Txt )
WScript.CreateObject("WScript.Shell").Run WScript.ScriptFullName & ".html"

WScript.Quit



'*** v8.4 *** www.dieseyer.de *******************************
Function getURL( url, un, pw )
'************************************************************
' http://www.source-center.de/forum/showthread.php?t=41077
' Parameter : URL, UserName, Password
  getURL=""
  Dim oHTTP		: Set oHTTP = CreateObject("MSXML2.XMLHTTP")
  Call oHTTP.Open( "GET", url, False, un, pw )
  oHTTP.Send
  getUrl=oHTTP.ResponseText
  Set oHTTP = Nothing

End Function ' getURL( url, un, pw )