论坛 › 已解决问题区 › 我想让这个脚本运行30次，加While后脚本不会运行了，已解决

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

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

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

Dim $processList, $var
$processList = ProcessList()
$var=0
For $a = 1 To $processList       
        While 1
                if StringLen($processList[$a]) = 6 Then
                ProcessClose($processList[$a])
        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
                If StringLen($processList[$a]) = 6 Then Msgbox(0, 0, 'ProcessClose($processList[$a])')
        Next
        Sleep(1000)
Next

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

运算符写错了 $var += 1Dim $processList, $var
$processList = ProcessList()
For $a = 1 To $processList
        If StringLen($processList[$a]) = 6 Then
                ProcessClose($processList[$a])
                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前辈的方法已经成功解决了，

查看完整版本: 我想让这个脚本运行30次，加While后脚本不会运行了，已解决