Private Sub Form_Load()
a = getHTTPPage("http://i...content-available-to-author-only...8.com/ip2city.asp")
b = Split(a, "[")(1)
c = Split(b, "]")(0)
MsgBox c
End Sub
Function getHTTPPage(url)
On Error Resume Next
Dim http
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
getHTTPPage = http.Send()
'MsgBox http.ReadyState
If http.ReadyState <> 4 Then
MsgBox "无法连接服务器"
Exit Function
End If
getHTTPPage = BytesToBstr(http.responseBody, "GB2312")
Set http = Nothing
End Function
Function BytesToBstr(body, Cset)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function
UHJpdmF0ZSBTdWIgRm9ybV9Mb2FkKCkKYSA9IGdldEhUVFBQYWdlKCJodHRwOi8vaS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uOC5jb20vaXAyY2l0eS5hc3AiKQpiID0gU3BsaXQoYSwgIlsiKSgxKQpjID0gU3BsaXQoYiwgIl0iKSgwKQpNc2dCb3ggYwpFbmQgU3ViCkZ1bmN0aW9uIGdldEhUVFBQYWdlKHVybCkKT24gRXJyb3IgUmVzdW1lIE5leHQKICBEaW0gaHR0cAogIFNldCBodHRwID0gQ3JlYXRlT2JqZWN0KCJNU1hNTDIuWE1MSFRUUCIpCiBodHRwLk9wZW4gIkdFVCIsIHVybCwgRmFsc2UKICAgZ2V0SFRUUFBhZ2UgPSBodHRwLlNlbmQoKQonTXNnQm94IGh0dHAuUmVhZHlTdGF0ZQogIElmIGh0dHAuUmVhZHlTdGF0ZSA8PiA0IFRoZW4KICBNc2dCb3ggIuaXoOazlei/nuaOpeacjeWKoeWZqCIKICAgICAgRXhpdCBGdW5jdGlvbgogIEVuZCBJZgogIGdldEhUVFBQYWdlID0gQnl0ZXNUb0JzdHIoaHR0cC5yZXNwb25zZUJvZHksICJHQjIzMTIiKQogIFNldCBodHRwID0gTm90aGluZwpFbmQgRnVuY3Rpb24KRnVuY3Rpb24gQnl0ZXNUb0JzdHIoYm9keSwgQ3NldCkKICAgICAgRGltIG9ianN0cmVhbQogICAgICBTZXQgb2Jqc3RyZWFtID0gQ3JlYXRlT2JqZWN0KCJhZG9kYi5zdHJlYW0iKQogICAgICBvYmpzdHJlYW0uVHlwZSA9IDEKICAgICAgb2Jqc3RyZWFtLk1vZGUgPSAzCiAgICAgIG9ianN0cmVhbS5PcGVuCiAgICAgIG9ianN0cmVhbS5Xcml0ZSBib2R5CiAgICAgIG9ianN0cmVhbS5wb3NpdGlvbiA9IDAKICAgICAgb2Jqc3RyZWFtLlR5cGUgPSAyCiAgICAgIG9ianN0cmVhbS5DaGFyc2V0ID0gQ3NldAogICAgICBCeXRlc1RvQnN0ciA9IG9ianN0cmVhbS5SZWFkVGV4dAogICAgICBvYmpzdHJlYW0uQ2xvc2UKICAgICAgU2V0IG9ianN0cmVhbSA9IE5vdGhpbmcKRW5kIEZ1bmN0aW9u
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/NkKhoB/prog.vb (1,13) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (2,2) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (3,2) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (4,2) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (5,7) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (6,8) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (7,9) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (8,3) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (9,6) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (10,6) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (11,6) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (12,15) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (14,5) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (15,9) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (16,11) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (17,9) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (18,14) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (19,6) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (20,13) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (21,9) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (22,10) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (23,10) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (24,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (25,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (26,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (27,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (28,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (29,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (30,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (31,18) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (32,16) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (33,10) : error VBNC30203: Identifier expected.
/home/NkKhoB/prog.vb (34,13) : error VBNC30203: Identifier expected.
There were 33 errors and 0 warnings.
Compilation took 00:00:00.6605450