大家看看怎么样修改跳转代码

ylsfwb

以下代码我想要它每次打开http://www.hao123.com    5秒之后就 跳转到  http://www.baidu.com  应该怎么样修改呢？是每一次哦~~~~~~~~~~



$a = 0
While 1
        Sleep(400)
        $oShell = ObjCreate('shell.application')
        $oShellWindows = $oShell.windows

        If $a = 0 And ProcessExists("iexplore.exe") Then
                For $Window In $oShellWindows
                        If StringInStr($Window.locationurl, 'http://www.hao123.com', 2) Then
                                                        Sleep(5000)
                                $Window.navigate('http://www.baidu.com')
                                $a = 1
                        EndIf
                Next
        ElseIf $a = 0 And ProcessExists("iexplore.exe") Then
                ContinueLoop
        Else
                $a = 1
                ContinueLoop
        EndIf
WEnd

menfan1

#include <IE.au3>
$oIE = _IECreate("http://www.hao123.com")
Sleep(5000)
_IENavigate($oIE, "http://www.baidu.com")

ylsfwb

你这个是自动打开网址了的，我要鼠标点才会变的

gzh888666

你这个是自动打开网址了的，我要鼠标点才会变的
ylsfwb 发表于 2011-10-19 14:32

楼主是想做广告，好讨厌你们！

While 1
        Sleep(400)
        $oShell = ObjCreate('shell.application')
        $oShellWindows = $oShell.windows

        If ProcessExists("iexplore.exe") Then
                For $Window In $oShellWindows
                        If StringInStr($Window.locationurl, 'http://www.hao123.com', 2) Then
                                                        Sleep(5000)
                                $Window.navigate('http://www.baidu.com')
                        EndIf
                Next
        EndIf
WEnd

ylsfwb

谢谢~~~

haodd

是要在IE下吗？  可以用BHO

ylsfwb

怎么用BHO，发代码出来看看！！

netegg

先不管整个脚本的运行情况, 麻烦楼主高人能否先解释下
第7行:   If $a = 0 And ProcessExists("iexplore.exe") Then
第15行: ElseIf $a = 0 And ProcessExists("iexplore.exe") Then
这两句的逻辑关系是什么, 如果第一个if 成立,第二个为什么不成立,反之,如果第一个不成立,第二个为什么成立

asdasdasd

他是想做个跳转的来赚外快,呵呵,他的条件重复了,888666的代码循环里面记得要加循环,不然一关网页就报找不到对象的错误,可以用注册COM错误捕获函数解决!