论坛 › 『 提问交流 』 › 循环怎么写才能达到这个效果?

lusunbaby 发表于 2010-7-8 16:17:19

循环怎么写才能达到这个效果?

MouseClick("right", 250, 450, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
       
        MouseClick("right", 550, 450, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        MouseClick("right", 250, 625, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        MouseClick("right", 550, 625, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        Sleep( 500 )
        WinActivate ($title)
        Send ("{END}")
        ;翻页开始
        Sleep( 500 )
        MouseClick("right", 250, 380, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        MouseClick("right", 550, 380, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        MouseClick("right", 250, 550, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")
        MouseClick("right", 550, 550, 1)
        Sleep(100)
        Send("n")
        Sleep( 500 )
        Send("{F4}" & "^c")
        fy()
        Sleep( 1500 )
        Send ("^{F4}")

lusunbaby 发表于 2010-7-8 16:18:10

主要是鼠标每次点的位置不一样.

afan 发表于 2010-7-8 16:20:06

写成带鼠标位置参数的函数调用

lusunbaby 发表于 2010-7-8 16:23:18

想用数组,,但是不是很懂.

查看完整版本: 循环怎么写才能达到这个效果?