[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS的ie.Visible=False对360浏览器无效(在线等)?

请教一个问题,执行如下ip.vbs脚本将本机出口ip地址写入ip.txt文件,在电脑安装IE、火狐浏览器下是正常工作的,但安装了360浏览器之后,在执行ip.vbs脚本时,会自动打开360浏览器访问:http://iframe.ip138.com/ic.asp
不理解的是:ie.Visible=False 对360浏览器无效吗?怎么做才能禁止打开360浏览器呢?非常感谢!

ip.vbs代码:
  1. on error resume next
  2. set ie=CreateObject("internetexplorer.application")
  3. ie.navigate("http://www.ip138.com/ip2city.asp")
  4. ie.Visible=False
  5. While ie.busy Or ie.readystate <> 4
  6. WEnd
  7. Set regEx = New RegExp
  8. regEx.Pattern ="\d.*\d"
  9. Set Matches = regEx.Execute(ie.document.body.innerhtml)
  10. ie.quit
  11. For Each Match in Matches
  12. RetStr=Match.Value
  13. Next
  14. Fn="ip.txt"
  15. Set FSO = CreateObject("scripting.filesystemobject")
  16. Set tfile=FSO.opentextfile(FN,8,-2)
  17. tfile.WriteLine "ip:"  & RetStr
  18. tfile.Close
  19. set tfile=nothing
  20. Set FSO = Nothing
复制代码

返回列表