wftp 发表于 2009-12-3 01:23:41

用au3怎么运行光盘下面的文件

用au3怎么运行光盘下面的文件
:face (37)::face (37)::face (37)::face (37):

顽固不化 发表于 2009-12-3 13:36:14

1,判断有无光驱
2,判断光驱中有无光盘就绪
3,判断光盘中有无要运行的文件
4,运行

wftp 发表于 2009-12-3 17:51:15

- -!-.-.-.-.-.-

tnt844 发表于 2009-12-3 21:21:01


Dim $x,$i
$x = DriveGetDrive("CDROM") ;返回一个含有指定驱动器盘符的数组,数组中的0号元素储存驱动器的数量
If @error Then
MsgBox(0,"错误","没有找到光驱,汗!")
Exit
EndIf

For $i = 1 To $x ;遍历所有光驱
If FileExists($x[$i] & "\AUTORUN.EXE") Then
Run($x[$i] & "\AUTORUN.EXE")
Exit
Else
SetError(1)
EndIf
Next

If @error Then
MsgBox(0,"错误","没有找到文件!")
EndIf

seeking 发表于 2009-12-4 09:18:30

楼上的代码不错,比我想的遍历A~Z盘要好些
页: [1]
查看完整版本: 用au3怎么运行光盘下面的文件