论坛 › 已解决问题区 › 求一条IE脚本，在线等

ywc195 发表于 2009-11-15 18:31:30

求一条IE脚本，在线等

本帖最后由 ywc195 于 2009-11-16 00:30 编辑

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

先谢谢各位了！

ywc195 发表于 2009-11-15 19:28:10

有没有朋友会啊？

fjxm 发表于 2009-11-15 20:54:09

#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 发表于 2009-11-15 23:58:29

本帖最后由 ywc195 于 2009-11-16 00:29 编辑

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

刚刚测试了一下，能达到判断的效果
但是，脚本是先判断第一网站能否打开，如果是打不开的，这个时候会一直运行脚本而不出现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 发表于 2009-11-16 10:32:21

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

fjxm 发表于 2009-11-16 13:34:23

本帖最后由 fjxm 于 2009-11-16 13:36 编辑

#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 发表于 2009-11-17 21:31:44

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

ywc195 发表于 2009-11-18 20:01:25

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

fjxm 发表于 2009-11-20 22:18:31

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

anyky123 发表于 2009-11-23 16:18:00

:face (14):

glacier_gxf 发表于 2010-3-18 10:43:41

这个用IE.au3比较好吧

查看完整版本: 求一条IE脚本，在线等