Board logo

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

作者: trt2008    时间: 2013-7-3 20:12     标题: 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
复制代码

作者: ShadowFiend    时间: 2013-7-4 09:03

估计是360把自己设置成默认的浏览器了。把默认的浏览器设置回IE即可。

ie.navigate("http://www.ip138.com/ip2city.asp") 用的是默认浏览器打开的
作者: apang    时间: 2013-7-4 16:21

没用过360
这样它还蹦不蹦?
  1. Set xml = CreateObject("Microsoft.xmlHttp")
  2. xml.Open "get","http://iframe.ip138.com/ic.asp",false
  3. xml.Send
  4. While xml.ReadyState <> 4 : WScript.Sleep 100 : Wend
  5. Set re = New RegExp
  6. re.Pattern = "(\d+\.){3}\d+"
  7. MsgBox "ip: " & re.Execute(xml.ResponseText)(0)
复制代码

作者: Demon    时间: 2013-7-4 17:02

没用过360
这样它还蹦不蹦?
apang 发表于 2013-7-4 16:21



    第四行是多余的
作者: apang    时间: 2013-7-4 18:11

回复 4# Demon


    确实,删掉第4行不报错。
对此不甚了解,请教Demon,为何这里可以不用判断ReadyState=4呢?
作者: apang    时间: 2013-7-4 18:21

回复 4# Demon


    刚回过神来,Demon是不是说ie.Visible=False 是多余的?
作者: Demon    时间: 2013-7-4 19:35

回复  Demon


    刚回过神来,Demon是不是说ie.Visible=False 是多余的?
apang 发表于 2013-7-4 18:21



    你们两个代码的第四行都是多余的
作者: czjt1234    时间: 2013-7-7 10:53

回复 5# apang


    open的false参数

表示客户机就要等到服务器返回消息后,才去执行其它命令
作者: apang    时间: 2013-7-7 13:38

回复  apang


    open的false参数

表示客户机就要等到服务器返回消息后,才去执行其它命令
czjt1234 发表于 2013-7-7 10:53



    嗯,谢谢。




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2