VB获取外网ip这串代码注释一下！

Dim h As Object, s As String
Set h = CreateObject("Microsoft.XMLHTTP")
h.Open "GET", " http://www.ip138.com/ip2city.asp ", False
h.send
If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
MsgBox Split(Split(s, "[")(1), "]")(0)

---

这段代码模拟浏览器打开ip138网页，并把显示结果的一部分显示出来，粗缓茄蚂略注释如下：

Dim h As Object, s As String'定义变量
Set h = CreateObject("Microsoft.XMLHTTP")'创建对象，Microsoft.XMLHTTP对象比较复杂，在AJAX的教程里面有详细描述，厚厚的一本书，简单理解，这个对纳腊象就模拟浏览器获取网页内容
h.Open "GET", " http://www.ip138.com/ip2city.asp ", False'为Microsoft.XMLHTTP对象知道参数，GET、POST是HTTP的两个基本方法，必选一个，这个是GET，第二个参数的网址，第三个参数表示语句是否等待扰埋调用完成，也就是所谓的异步、同步
h.send'这个方法开始按照上面设置的参数开始动作
'下面的IF是判断返回状态，4表示成功完成，然后把结果中[]里面的部分显示出来
If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
MsgBox Split(Split(s, "[")(1), "]")(0)

---