Fehler in Line 16, Column 1?!

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/fehler_in_line_16_column_1_149036/page_1 - zur Vollversion wechseln!

CatEye schrieb am 10.09.2005 um 14:39

Also: folgender Code:

Function ShowMyIP()
htmlResult = BinToText(GetHTMLBin("http://www.showmyip.com/"), 35000)

alku = InStr(htmlResult, "Connection ")
lopetus = InStr(alku, htmlResult, " --> showmyip.com")
fin = mid(htmlResult, alku, lopetus-alku)
fin = replace(fin, "Connection ", "")
ShowMyIP = fin

End Function

Function GetHTMLBin(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
GetHTMLBin = objXMLHTTP.responseBody
Set objXMLHTTP = Nothing
End Function

Function BinToText(varBinData, intDataSizeInBytes)
Const adFldLong = &H00000080
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

Und dann sagt er immer [Fehler] Zugriff verweigert
In ShowMyIP.vbs (ShowMyIP)
Line 16, column 1. Aber ich find ihn nicht?! Help.

Er soll meine IP am Desktop anzeigen.

COLOSSUS schrieb am 10.09.2005 um 14:41

Zeilennummerierung waer der Hit. Und es riecht vielleicht auch nicht jeder, dass das Visual Basic Code ist.

Bei deinem eigentlichen Problem kann ich dir aber vermutlich nicht helfen, sorry.

pong schrieb am 10.09.2005 um 19:55

Einrückungen + Zeilennummerierung wäre wirklich nicht verkehrt...

Weiters, welche Version des Scripting Hosts?

pong

CatEye schrieb am 11.09.2005 um 22:09

ok, jetzt geht es.

Meine IP wird von einer Webseite ausgelesen. Weiß ned woran es liegt das sie gar ned oder später erst angezeigt wird. Jedenfalls ist sie dann immer nach 5min da.

Thx for helping hands.