'*** 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 )