Hente .txt fra nettet og vis i Samurize

Dim fso, file, stream
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile("C:\test.txt")
    Labelnavn.Text = file.ReadLine
    file.Close
    Set stream = Nothing
    Set file = Nothing
    Set fso = Nothing

//>Rune

Nååh, ligger den hos dit webhotel! -så er jeg ikke sikker på du kan!

//>Rune

Men hvis det skulle være muligt skal du bruge:

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

GetHTMLBin("www.medions.dk")

//>Rune

Hmm ok, det kan du godt, her har du hvordan du henter HTML koden ud fra et HTML dokument, så må du lige selv rette det sidste til...

URL = "http://www.medions.dk/"
CRLF = Chr(10)

Function WriteFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

MsgBox(WriteFile())

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

//>Rune

Det skal bruges til samurize. Hvis jeg sætter gemmer scriptet og sætter det ind i mit config, kommer den bare med en popup med en "Page cannot be displayed" side(ikke IE, øverst står der VBscript)
What to do?

Function GetFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

Function GetHTMLBin(strURL)
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

Så skal du kalde GetFile() funktionen fra Samurize!

//>Rune

Undskyld mig for at at fatte for lidt. ;-)

Hvor skal jeg sætte url'en ind henne?
Hvis jeg bare putter koden i en vbs fil og kalder GetFile() i samurize melder den: "invalid procedure call or argument."

Function GetFile()
dim html, fs, f
    html = BinToText(GetHTMLBin(URL), 32000)
    WriteFile = html
End Function

Function GetHTMLBin()
        strURL = "http://www.medions.dk/default.asp"
        Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

        objXMLHTTP.Open "GET", strURL, False
        objXMLHTTP.SEnd CStr(Rnd())

        GetHTMLBin = objXMLHTTP.responseBody
        Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
        Const adFldLong = &H80
        Const adVarChar = 200
        Set objRS = CreateObject("ADODB.Recordset")

        objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
        objRS.Open

        objRS.AddNew
        objRS.Fields("txt").AppEndChunk varBinData
        BinToText = objRS("txt").Value

        objRS.Close
        Set objRS = Nothing
End Function

//>Rune

Nu siger samurize:
wrong number of arguments or invalid property assignment: 'GetHTMLBin()'
- ???

op

come on!