leon460 发表于 2011-4-6 21:11:04

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

本帖最后由 leon460 于 2011-7-20 16:09 编辑

#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
                        $TestPath = _PathSplit($iniVar[$j], $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 发表于 2011-4-6 21:38:41

占个沙发，学习一下

netegg 发表于 2011-4-7 01:14:09

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

afan 发表于 2011-4-7 01:28:55

本帖最后由 afan 于 2011-4-7 01:31 编辑

8、9行互换位置

leon460 发表于 2011-4-7 09:28:32

感谢大家都帮助，根据afan的提示，干脆使用@scriptsdir
再次感谢
页: [1]
查看完整版本: 再次出现超出数组范围---郁闷 有空的帮我测试测试问题出在哪儿[已解决]