注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

翱翔的板儿砖

——燃烧吧,小宇宙!

 
 
 

日志

 
 

【AU3】自动检测移动设备  

2008-07-27 16:46:00|  分类: 编程 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

小众介绍了一个软件Desk Drive ,能在插入 U 盘或者 CD-ROM 等移动设备时自动创建桌面快捷方式,并在卸载移动设备后自动删除快捷方式。

看了以后,就想自己用 AU3 来做一个,之前用的 WMI 来检测,不过刚才无意间发现 AU3 本身就有对应的函数……大受打击……只用现成的函数完成了主要功能,先把代码粘出来吧。

#include <GUIConstantsEx.au3>
#include
<WindowsConstants.au3>
#include
<Array.au3>

Opt("GUIOnEventMode",
1
)
Opt("TrayMenuMode",
1
)
Opt("TrayOnEventMode",
1
)
TraySetClick("9"
)
$miExit = TrayCreateItem("退出"
)
TrayItemSetOnEvent(-1,
"miExitClick"
)

Global $Exit =
False
Global
$DriveArray[23
]
While
1
    Sleep(100
)
   
;检测移动设备
    DetectDevice
()
   
;退出
    If $Exit
Then
       
;先删除快捷方式,请自行实现
       
Exit
   
EndIf
    Sleep(3000
)
WEnd

Func
miExitClick
()
    $Exit =
True
EndFunc
  
;==>miExitClick

Func DetectDevice
()
   
#comments-start
        DeskDrive 中,可以设置待检测驱动器类型,
        在这个脚本里,可以通过修改 DriveGetDrive 函数的参数来实现
        "ALL"(全部)、
        "CDROM"(光驱)、
        "REMOVABLE"(可移动驱动器),
        "FIXED"(固定驱动器)、
        "NETWORK"(网络驱动器)、
        "RAMDISK"(内存盘),
        "UNKNOWN"(未知类型")
    #comments-end
    $var = DriveGetDrive("REMOVABLE"
)
    If Not @error
Then
        For $i = 1 To $var
[0]
            $DrivePath = StringUpper($var[$i])
            $ShortCutPath = @DesktopDir & "\可移动磁盘(" & StringLeft($DrivePath, 1) & ").lnk"
            If FileExists($ShortCutPath) = 0
Then
                TrayTip("发现新闪存盘:" & StringLeft($DrivePath, 1), "剩余空间:" & DriveSpaceFree($DrivePath) & "Mb", 2000
)
                FileCreateShortcut($DrivePath, $ShortCutPath
)
           
EndIf
       
Next
   
EndIf
EndFunc
  ;==>DetectDevice


PS:可以参照 Desk Drive 来制作 GUI,实现检测不同设备;同时把创建的快捷方式路径记录到数组中,实现桌面快捷方式与驱动器的同步更新。

  评论这张
 
阅读(941)| 评论(2)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017