批处理之家 - Powered by Discuz! Board

标题: [问题求助] 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代码：

on error resume next
set ie=CreateObject("internetexplorer.application")
ie.navigate("http://www.ip138.com/ip2city.asp")
ie.Visible=False
While ie.busy Or ie.readystate <> 4
WEnd
Set regEx = New RegExp 
regEx.Pattern ="\d.*\d"
Set Matches = regEx.Execute(ie.document.body.innerhtml)
ie.quit
For Each Match in Matches
RetStr=Match.Value
Next
Fn="ip.txt"
Set FSO = CreateObject("scripting.filesystemobject") 
Set tfile=FSO.opentextfile(FN,8,-2) 
tfile.WriteLine "ip:"  & RetStr
tfile.Close 
set tfile=nothing 
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
这样它还蹦不蹦？

Set xml = CreateObject("Microsoft.xmlHttp")
xml.Open "get","http://iframe.ip138.com/ic.asp",false
xml.Send
While xml.ReadyState <> 4 : WScript.Sleep 100 : Wend

Set re = New RegExp
re.Pattern = "(\d+\.){3}\d+"
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/)