Question

帮忙解释一下这段vbs代码

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp"):Do Until oDOM.readyState="complete":WScript.sleep 200:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing

详细一点。每一句都注释一下

Answer 1

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")'就是取得这个对象，内容就是网址中的，你知道的。
Do Until oDOM.readyState="complete" '一直循环语句，直到页面加载完成。Until是直到的意思。
WScript.sleep 200'就是等待200ms，为循环内容，用这种方式等待页面加载完成。
Loop'循环结束标志
WScript.echo oDOM.documentElement.outerText'取得那个页面的文本，并弹出对话框以显示此消息。
Set oDOM=nothing'断开与对象的连接以释放内存，在大型工程中非常重要，是一个好习惯。

附readyState的5种状态：
0 － （未初始化）还没有调用send()方法
1 － （载入）已调用send()方法，正在发送请求
2 － （载入完成）send()方法执行完成，已经接收到全部响应内容
3 － （交互）正在解析响应内容
4 － （完成）响应内容解析完成，可以在客户端调用了

Answer 2

Set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp") '取得这个对象，oDEM是个变量
Do Until oDOM.readyState = "complete" '循环loop以前的内容，直到oDOM.readyState="complete"，也就是页面加载成功
WScript.sleep 200 '这个就是循环内容，意思是暂停200毫秒
Loop '循环loop以前的内容，直到oDOM.readyState="complete"，也就是页面加载成功
WScript.echo oDOM.documentElement.outerText '弹出一个对话框，显示页面的标题和内容
Set oDOM = Nothing '清空oDOM的内容
'冒号:相当于换行