cj4025

1. _dxdiag()
   
2. 
   
3. func _dxdiag()
   
4.         $file = @tempdir & "\dxdiag.txt"
   
5.         local $a = fileopen($file, 0), $i = 1
   
6.         if fileexists($file) then
   
7.                    local $sdelimiter = "directx version:"
   
8.            else
   
9.                    local $sdelimiter = "directx version:"
   
10.                    runwait(@comspec & " /c dxdiag.exe /t " & $file & "", "", @sw_hide)
    
11.            endif
    
12.         while 1
    
13.                 local $hs = filereadline($a)
    
14.                 if @error then exitloop
    
15.                 if stringregexp($hs, $sdelimiter) then
    
16.                         exitloop
    
17.                 endif
    
18.                 $i = 1
    
19.                 $line = stringstripws(filereadline($file, $i),4)
    
20.                 $location = stringreplace($line, $sdelimiter,"",0,0)
    
21.         wend
    
22.         fileclose($a)
    
23.         msgbox(0, $line, "" & $location)
    
24.         return $location
    
25. endfunc   ;==>_dxdiag
    
26. 
    
27. _vram()
    
28. func _vram()
    
29.         local $file = @tempdir & "\dxdiag.txt"
    
30.         if fileexists($file) then
    
31.                 local $sdelimiter = "dedicated memory:"
    
32.         else
    
33.                 local $sdelimiter = "dedicated memory:"
    
34.                 runwait(@comspec & " /c dxdiag.exe /t " & $file & "", "", @sw_hide)
    
35.         endif
    
36.         local $a = fileopen($file, 0), $i = 1
    
37.         while 1
    
38.                 local $hs = filereadline($a)
    
39.                 if @error then exitloop
    
40.                 if stringregexp($hs, $sdelimiter) then
    
41.                         exitloop
    
42.                 endif
    
43.                 $i = 1
    
44.                 $line2 = stringstripws(filereadline($file, $i),4)
    
45.                 $location2 = stringreplace($line2, $sdelimiter,"",0,0)
    
46.         wend
    
47.         fileclose($a)
    
48.         msgbox(0, $line2, "" & $location2)
    
49.         return $location2
    
50. endfunc   ;==>_vram

复制代码

以上win10运行出错。


请教，win10运行错误，麻烦大佬给优化改正一下。非常感谢。


首次运行也出错。

1. >"d:\autoit3\scite\acnwrapper\acnwrapper.exe" /run /errorstdout /in "h:\au3\directx版本显卡内存.au3" /autoit3dir "d:\autoit3" /userparams   
   
2. >10:17:12 开始执行 acnwrapper v.1.0.3.1
   
3. > ============================================
   
4. >执行环境:
   
5. >        cpu构架:        x64
   
6. >        系统构架:        x64
   
7. >        系统语言:        0804
   
8. >        键盘布局:        00000804
   
9. >        内存总量:        16317mb
   
10. >        内存剩余:        14482mb
    
11. >        操作系统:        win_7/service pack 1
    
12. >        au3版本:        3.3.9.21
    
13. > ============================================
    
14. >运行 au3check (3.3.9.21)  开始目录:d:\autoit3
    
15. >10:17:12 au3check 完成[code]:0
    
16. >运行:(3.3.9.21):d:\autoit3\autoit3_x64.exe "h:\au3\directx版本显卡内存.au3"   
    
17. "h:\au3\directx??????.au3" (23) : ==> variable used without being declared.:
    
18. msgbox(0, $line, "" & $location)
    
19. msgbox(0, ^ error
    
20. ->10:17:13 autoit3.exe 完成:[code]:1
    
21. >10:17:13 acnwrapper 完成..
    
22. >退出代码: 1        运行时间: 1.116 秒
    

复制代码

holley

报错不是这句么：msgbox(0, $line, "" & $location) 变成 msgbox(0, $line, "" & $location,"")