AutoIt DevCon 批量u盘文件复制

AutoIt DevCon 批量u盘文件复制#include HotKeyset("{ESC}", "Terminate") MsgBox(4096,"批量u盘复制","本程序自动复制文件到U盘。插入u盘识别后即自动复制,复制完毕有提示,,可直接拔出U盘。实现批量复制功能。" & _ "请将待复制文件放入本程序的data子目录(不复制子目录内容),拔掉其他u盘,每次只能插入一个u盘!" & @LF & _ "有些u盘可能要重新识别,请等待。『ESC』退出!注意屏幕通知栏的提示。devcon.exe需放置在本目录下。" ) global $usbc...

#include HotKeyset("{ESC}", "Terminate") MsgBox(4096,"批量u盘复制","本程序自动复制文件到U盘。插入u盘识别后即自动复制,复制完毕有提示,,可直接拔出U盘。实现批量复制功能。" & _ "请将待复制文件放入本程序的data子目录(不复制子目录内容 ),拔掉其他u盘,每次只能插入一个u盘!" & @LF & _ "有些u盘可能要重新识别,请等待。『ESC』退出!注意屏幕通知栏的提示。devcon.exe需放置在本目录下。" ) global $usbclass ;u盘的class $usb $i = 0 While $i <= 100 while 1 $usbclass=getUsbClass() if $usbclass<>"" then ExitLoop sleep(500) TrayTip("", "请插入U盘",30) WEnd TrayTip("", "u盘已找到,正在复制...", 30) $i = $i + 1 If copyfiles()=True Then TrayTip("复制成功", "请拔掉U盘",30) Else TrayTip("复制出错","没有发现u盘,请重新插拔",30) EndIf setUsbMode(False) ;关闭u盘 while 1 $usbclass=getUsbClass() ToolTip("closing", 0, 0) if $usb then ExitLoop sleep(500) WEnd ; setUsbMode(True) ;打开u盘 WEnd ;-------------------------------------- ;设置USB的状态,True:enable u盘,false:disable u盘,可以拔出 Func setUsbMode($b) if $b==True Then Run('devcon.exe enable "usb\' & $usbclass, "", @SW_HIDE ) Else Run('devcon.exe disable "usb\' & $usbclass, "", @SW_HIDE) EndIf EndFunc ;---------------------------------- ;获得usb的class func getUsbClass() Local $foo = Run('devcon.exe listclass usb', "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) Local $line $cnt=0 While 1 $line = StdoutRead($foo) If @error Then ExitLoop $usbline = StringSplit($line, "\r\n",2) If @error = 0 Then for $i = 0 to UBound($usbline) - 1 $usbmass = StringRegExp($line, "USB\\(.*?)\h+: USB Mass Storage", 1) if @error=0 Then return $usbmass[0] ;找到的u盘class,只找一个 EndIf Next EndIf Wend return 0 EndFunc ;---------------------------------------- ;拷贝文件, Func copyfiles() setUsbMode(true) $i=100 While($i>0) $var = DriveGetDrive( "REMOVABLE" ) ;首先获取u盘盘符 If NOT @error Then if $var[0]>0 Then ExitLoop EndIf $i=$i-1 sleep(1000) WEnd if $i=0 then return False ;只拷贝当前Data\目录下的文件,不支持下级目录 Run(@ComSpec & " /c " & " copy data\*.* " & $var[1], "",@SW_HIDE ) ; return True EndFunc ;----------------------------------- ;ESC按下,终止执行,恢复u盘状态 Func Terminate() setUsbMode(true) Exit 0 EndFunc ;---------------------------------- ;废弃,查找指定class的u盘, func findUSB() Local $foo = Run('devcon.exe find "usb\' & $usbclass, "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) Local $line $cnt=0 While 1 $line = StdoutRead($foo) If @error Then ExitLoop $asResult = StringRegExp($line, "(\d) matching device", 1) If @error = 0 Then ; TrayTip("", "U盘已插入", 30) Return $asResult[0] EndIf Wend ; TrayTip("", "U盘已拔出", 30) return 0 EndFunc 继续阅读

                    本文档为【AutoIt DevCon 批量u盘文件复制】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

AutoIt DevCon 批量u盘文件复制

你可能还喜欢