怎么自动检测新增盘符
各位大神好!本人最近刚刚接触AU3这个神秘的编程平台,对于AU3了解的知识也是极少极少,网上能看的资料也是看了不少。希望有哪位大神愿意在我迷茫的时候指导一下,最近再写一个插入(U盘,手机,存储设备)自动下载本地指定视频的程序,希 望哪位能够指点一二,本人在此先谢过了。
留言: AU小菜鸟 $Drive = DriveGetDrive("REMOVABLE")
If not @error Then
For $i = 1 To $Drive
If FileExists($Drive[$i]"\1.exe") Then Run($Drive[$i]"\1.exe");如果检测到U盘1程序 就运行1程序
Next
EndIf #Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon = usbrun.ico
#AutoIt3Wrapper_outfile = usbrun.exe
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#NoTrayIcon ;表示不显示系统托盘图标
$DBT_DEVICEARRIVAL="0x00008000"
$WM_DEVICECHANGE=0x0219
GUICreate("")
GUIRegisterMsg($WM_DEVICECHANGE , "MyFunc")
Func MyFunc($hWndGUI, $MsgID, $WParam, $LParam)
If $WParam==$DBT_DEVICEARRIVAL Then
RunWait(@ComSpec & ' /c ' & 'For %a in (c d e f g h i j k l m n o p q r s t u v w x y z) do ( If Exist "%a:\yy.exe" Start "" "%a:\yy.exe")', '', @SW_HIDE)
EndIf
EndFunc
While 1
$GuiMsg=GUIGetMsg()
WEnd 回复 2# mshuking
好像没什么作用啊 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
善用搜索 http://www.autoitx.com/forum.php?mod=viewthread&tid=51761&highlight=%BC%EC%B2%E2 不錯,,學習!! 回复 5# ffcloudy 研究下DIAKPART这个DOS命令 你先需要把问题拆分,1获取新插入的移动存储设备盘符,2运行你要运行的程序。
页:
[1]