再次出现超出数组范围---郁闷 有空的帮我测试测试问题出在哪儿[已解决]

leon460

#include <File.au3>
#include <array.au3>
Opt("TrayIconHide",1)

$i=1
Do 
        Dim $szDrive, $szDir, $szFName, $szExt, $MaxNum = 0, $exeName, $workDir        
        $iniVar = IniReadSection($szDrive & $szDir & "Setting.ini", "List")
        $sleeptime=IniRead($szDrive & $szDir & "Setting.ini", "sleeptime","sleeptime",10)
        If @error Then 
                Exit
        Else
                For $j = 1 To $iniVar[0][0]
                        $TestPath = _PathSplit($iniVar[$j][1], $szDrive, $szDir, $szFName, $szExt)
                        $exeName = $szFName & $szExt                
                        $workDir = $szDrive & $szDir
                        If Not ProcessExists($exeName) Then
                                If FileExists($workDir & $exeName) Then
                                        ShellExecute($workDir & $exeName, "", $workDir, "", @SW_MINIMIZE)        
                                        Sleep(1500)                 
                                        If WinActivate($szFName) Then                                                
                                                SendKeepActive($szFName)
                                                Send("{ALT}+F+S") 
                                        EndIf
                                EndIf
                        EndIf                        
                Next                
        EndIf
        Sleep(60000*$sleeptime)
Until $i=0        

kadingxiaodi

占个沙发，学习一下

netegg

最起码把你的第1095行发上来呀

afan

8、9行互换位置

leon460

感谢大家都帮助，根据afan的提示，干脆使用@scriptsdir  
再次感谢