dgnetvin 发表于 2010-8-28 11:31:38

求助把里面的内容一直循环下去不结束

本帖最后由 dgnetvin 于 2010-8-28 14:52 编辑

出现五个可能性的窗口，要不停运作下去。下面的是可能出现的窗口内容。我是新手好多不会用，请帮我写下去
这个一个文化的刷卡系统，每刷一张卡都是按几次确认有点烦，想一刷卡后自动点确认，不用人工操作。

WinWaitActive ("卡信息查询","姓名")
ControlClick("卡信息查询", "", "")
WinWaitActive ("天翼系统","该卡已激活！")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡已激活！")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡在线，是否下机？")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡非法，是否更新卡号加密包")
ControlClick("天翼系统", "", "")


我上网查了点资料改为这样不知行不行，大家帮我看看
If WinExists("卡信息查询","姓名") Then
ControlClick("卡信息查询", "", "")
Endif
If WinExists("天翼系统","该卡已激活！") Then
Send("{ENTER}")
Endif
If WinExists("天翼系统","此卡已激活！") Then
Send("{ENTER}")
Endif
If WinExists("天翼系统","此卡在线，是否下机？") Then
ControlClick("天翼系统", "", "")
Endif
If WinExists("天翼系统","此卡非法，是否更新卡号加密包") Then
ControlClick("天翼系统", "", "")
Endif

f4李文杨 发表于 2010-8-28 13:49:42

东莞？{:face (427):}

itljl 发表于 2010-8-28 14:37:05

while 1

WinWaitActive ("卡信息查询","姓名")
ControlClick("卡信息查询", "", "")
WinWaitActive ("天翼系统","该卡已激活！")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡已激活！")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡在线，是否下机？")
ControlClick("天翼系统", "", "")
WinWaitActive ("天翼系统","此卡非法，是否更新卡号加密包")
ControlClick("天翼系统", "", "")

wend

faceyao 发表于 2010-8-28 15:53:05

循环 是我们新手的一大坎啊，我不会，只能帮顶

zps26 发表于 2010-8-28 17:03:12

见三楼，最好再Sleep一下，不然CPU占用会很高的

131738 发表于 2010-8-28 17:41:28

If WinExists("天翼系统","该卡已激活！") Then
    ...

ElseIf WinExists("天翼系统","此卡已激活！") Then
    ...

ElseIf WinExists("天翼系统","此卡已激活！") Then
    ...


ElseIf WinExists("天翼系统","此卡在线，是否下机？") Then
    ...

ElseIf WinExists("天翼系统","此卡非法，是否更新卡号加密包") Then
    ...


[Else
    ...

EndIf
页: [1]
查看完整版本: 求助把里面的内容一直循环下去不结束