pyj521 发表于 2016-3-14 16:08:14

检测移动U盘,并运行U盘里面指定程序

求各位大大们赐予我一段代码吧!在此感激万分!我想实现的功能是:运行这段代码后,检测插入电脑的移动U盘,并运行U盘里面指定程序,比如   love.EXE!感谢朋友们!

afan 发表于 2016-3-14 16:52:52

Local $sExe = 'love.EXE'
Local $aDrive = DriveGetDrive('REMOVABLE')
If @error Then Exit
For $i = 1 To $aDrive
        If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next

pyj521 发表于 2016-3-14 17:31:49

回复 2# afan

afan大大感谢你!每次都是你帮我!太谢谢你了!

pyj521 发表于 2016-3-14 19:25:53

本帖最后由 pyj521 于 2016-3-14 19:26 编辑

@afan 大大晚上好!再劳烦a大下,假如没有检测到任何U盘,加一个提示怎么加呢,提示没有插入U盘,插入U盘后继续运行love.EXE。谢谢!

alwaystick 发表于 2016-3-14 19:36:07

本帖最后由 alwaystick 于 2016-3-14 19:42 编辑

@afan 大大晚上好!再劳烦a大下,假如没有检测到任何U盘,加一个提示怎么加呢,提示没有插入U盘,插入U盘后 ...
pyj521 发表于 2016-3-14 19:25 http://www.autoitx.com/images/common/back.gif
Local $sExe = 'love.EXE'
Local $aDrive = DriveGetDrive('REMOVABLE')
If @error Then
ToolTip("没有插入U盘")
Do
$aDrive = DriveGetDrive('REMOVABLE')
Until Not @error
For $i = 1 To $aDrive
      If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next
ElseIf Not @error Then
For $i = 1 To $aDrive
      If $aDrive[$i] <> 'A:' And FileExists($aDrive[$i] & '\' & $sExe) Then _
                ShellExecute($aDrive[$i] & '\' & $sExe)
Next
EndIf

试试看,应该达到你的要求。

pyj521 发表于 2016-3-14 19:52:12

回复 5# alwaystick


    感谢alwaystick的帮助,假如没有插U盘,提示出现以后,我再把U盘插上去,插上U盘以后再点击提示的确认按钮,点击后程序继续执行运行程序love.exe就完美了!感谢你的帮助!谢谢!

alwaystick 发表于 2016-3-14 19:56:27

回复 6# pyj521
把ToolTip("没有插入U盘")换成MsgBox(0,"提示","没有插入U盘"),就应该达到你所说的效果:没插U盘,弹出MsgBox,插入U盘后,点 确定 后程序继续运行。

pyj521 发表于 2016-3-14 20:00:03

回复 5# alwaystick


    非常感谢alwaystick!已经达到要求,测试完美!感谢二位大大的帮助!谢谢!

zghwelcome 发表于 2016-3-15 08:45:20

收获不少,谢谢分享

leon460 发表于 2016-4-12 13:38:08

回帖也是一种美德,哈哈

ybb03 发表于 2016-4-13 00:40:48

标记一下,回头试试
页: [1]
查看完整版本: 检测移动U盘,并运行U盘里面指定程序