求一条IE脚本，在线等

ywc195

想用AU3打开一个网站，判断打不开的时候在跳转到另一个网站上
恳请大大们帮忙写一条
例如：
用脚本打开www.hao123.com 判断如果打不开了就跳转到www.baidu.com
注：如果可以 这里的判断时间为5秒，也就是说 5秒没有打开就跳转

先谢谢各位了！

ywc195

有没有朋友会啊？

fjxm

#include <INet.au3>
#Include <String.au3>
$var = BinaryToString(_INetGetSource('http://www.hao123.com'))
$vars = _StringBetween($var,"<title>","</title>")
if $vars = 0 Then
        Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.163.com")
Else
        Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hao123.com")
EndIf 

ywc195

谢谢楼上的朋友，利马测试先

刚刚测试了一下，能达到判断的效果
但是，脚本是先判断第一网站能否打开，如果是打不开的，这个时候会一直运行脚本而不出现IE窗口，这样会给人感觉像是程序没有运行
能否在修改一下，实现在IE窗口在打开的状态下判断，如果5秒没有打开就跳转

自己这样修改了一下，已经可以实现了，缺点就是会开2个IE窗口，不过也算可以了，如果还有更完美的脚本修正的请帮忙修改一下，再次谢谢楼上的朋友
#include <INet.au3>
#Include <String.au3>
Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hao123.com")
$var = BinaryToString(_INetGetSource('http://www.hao123.com'))
$vars = _StringBetween($var,"<title>","</title>")
if $vars = 0 Then
        Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.163.com")
Else
        Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hao123.com")
EndIf

xz00311

加一个等待然后如果5秒获取不到这状态就跳转

fjxm

#include <INet.au3>
#Include <String.au3>
#include <Process.au3>
Run("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.hao123.com")
sleep(3000)
$var = BinaryToString(_INetGetSource('http://www.hao123.com'))
$vars = _StringBetween($var,"<title>","</title>")
if $vars = 0 Then
   _RunDOS ("start http://www.163.com")
EndIf

上面的sleep(3000)时间要不要自己决定。

ebhb

肯定要设置的，根据你自己的网速来。

ywc195

比我改的好些了，在同一个窗口打开的
但是3秒的判断无效果

fjxm

自己可以在加，，，我只不过做个比例。sleep(6000)也可以的。

anyky123

glacier_gxf

这个用IE.au3比较好吧