我想让这个脚本运行30次，加While后脚本不会运行了，已解决

uo8889 · 发表于 2010-5-12 17:04:35

本帖最后由 uo8889 于 2010-5-12 18:11 编辑

Dim $processList, $var
$processList = ProcessList()
$var=0
For $a = 1 To $processList[0][0]        
        While 1
                if StringLen($processList[$a][0]) = 6 Then
                ProcessClose($processList[$a][0])
        Sleep(1000)
        $var=+1
        if $var  = 30 then exitloop        
EndIf
WEnd        
Next

大家帮忙看看是怎么回事啊
加了WHILE后脚本运行后就没反应了

afan · 发表于 2010-5-12 17:13:21

已知次数就用 For 好了(用While还得计数)，且这个For要放到最外面

afan · 发表于 2010-5-12 17:19:30

本帖最后由 afan 于 2010-5-12 17:21 编辑

For $i = 1 To 30
        $processList = ProcessList()
        For $a = 1 To $processList[0][0]
                If StringLen($processList[$a][0]) = 6 Then Msgbox(0, 0, 'ProcessClose($processList[$a][0])')
        Next
        Sleep(1000)
Next

水木子 · 发表于 2010-5-12 17:20:25

运算符写错了 $var += 1

Dim $processList, $var
$processList = ProcessList()
For $a = 1 To $processList[0][0]
        If StringLen($processList[$a][0]) = 6 Then
                ProcessClose($processList[$a][0])
                MsgBox(0, '', $var)
                $var += 1
                If $var = 30 Then ExitLoop
        EndIf
Next

afan · 发表于 2010-5-12 17:34:14

回复 4# 水木子

估计LZ本身的循环目的就有错误，ProcessList() 放在循环外面，那30次有什么意义……

水木子 · 发表于 2010-5-12 17:46:19

回复 5# afan
嗯！前辈说得对，我只注意到LZ的运算符和逻辑有点问题。

uo8889 · 发表于 2010-5-12 18:13:32

感谢AFAN前辈和水木子前非根据AFAN前辈的方法已经成功解决了，

		自动登录	找回密码
密码			加入

[AU3基础] 我想让这个脚本运行30次，加While后脚本不会运行了，已解决

评分

评分