http://dieseyer.de • all rights reserved • © 2011 v11.4

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



http://dieseyer.de • all rights reserved • © 2011 v11.4