UC知道VBS如何判断IE地址的变化
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:23:17
On Error Resume Next
Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.navigate "http://mail.163.com"
ie.visible=True
While ie.busy or ie.readystate<>4
Wend
Wscript.Sleep 500
……
请问，如何判断ie.navigate "http://mail.163.com"的地址栏地址发生了变化？我以为可以这样，If NOT ie.navigate "http://mail.163.com" Then …… End If 结果不行！是写错了吗，哪位老师能帮我实现吗，小弟虚心求教，谢谢
感谢楼下的回答，我补充下。我期望的目的是对地址栏的IE地址是否变化进行监视，不是拿用户输入的地址与特点地址进行比较。
Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.navigate "http://mail.163.com"
ie.visible=True
While ie.busy or ie.readystate<>4
Wend
Wscript.Sleep 500
……
请问，如何判断ie.navigate "http://mail.163.com"的地址栏地址发生了变化？我以为可以这样，If NOT ie.navigate "http://mail.163.com" Then …… End If 结果不行！是写错了吗，哪位老师能帮我实现吗，小弟虚心求教，谢谢
感谢楼下的回答，我补充下。我期望的目的是对地址栏的IE地址是否变化进行监视，不是拿用户输入的地址与特点地址进行比较。
还是不明白你的意思......说清楚点...本来就是那个地址 怎么就会变啊？
On Error Resume Next
url=inputbox("请输入url")
s=instr(1,"http://mail.163.com",url)
if s=0 then
msgbox"url发生发生了变化!"
else
Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.navigate url
ie.visible=True
While ie.busy or ie.readystate<>4
Wend
Wscript.Sleep 500
end if
附 instr的用法
instr
【名称】
InStr
【类别】
字符串函数
【原形】
InStr([start, ]string1, string2[, compare])
【参数】
InStr 函数的语法具有下面的参数：
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。