编程开发论坛 » 程序开发 » Visual Basic » 关于VB怎么截获系统正在移动的路径

查看完整版本: 关于VB怎么截获系统正在移动的路径

zm598633 2010-6-5 19:26

关于VB怎么截获系统正在移动的路径

例如系统正在移动复制文件那么不管是移动还是复制的地点会递交到软件文本框中还有就是系统在执行某个文件安装时会将相应的路径递交到软件文本框中求代码 :)

Nothing 2010-6-8 14:51

[color=#000000]Windows未公开函数揭密[color=#0000cc]-[/color][color=#0000cc]-[/color]之三
这次介绍的是如何利用Windows未公开函数实现系统文件操作监视功能。利用该功能可以对Windows下的任何文件
操作，包括建立文件、文件夹；删除文件；改变文件大小等操作都可以纪录在案。
首先来介绍实现上面操作的两个未公开函数：SHChangeNotifyRegister和SHChangeNotifyDeregister
，SHChangeNotifyRegister函数的定义如下：
Declare [color=#0000ff]Function[/color] SHChangeNotifyRegister Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"#2"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hWnd As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uFlags As SHCN_ItemFlags[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] dwEventID As SHCN_EventIDs[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uMsg As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] cItems As Long[color=#0000cc],[/color] _
lpps As PIDLSTRUCT[color=#0000cc])[/color] As Long
其中参数hWnd指定接受系统通告的窗口句柄，参数uMsg指定消息值，如果函数调用成功，系统就会将hWnd指定的
窗口加入到系统通告链中，并且返回系统通告句柄。当有建立文件等系统操作发生时，系统会向hWnd指定的窗口发送
uMsg消息，关于其它参数，会在下面的程序中说明。函数SHChangeNotifyDeregister的定义如下：
Declare [color=#0000ff]Function[/color] SHChangeNotifyDeregister Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"#4"[/color] _
      [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hNotify As Long[color=#0000cc])[/color] As Boolean
其中参数hNotify指定系统通告的句柄。
下面是操作的具体的VB范例：
首先建立一个新的工程，在Form1中加入一个TextBox控件。在Form1的代码窗口之中加入以下代码：
[color=#0000ff]Option[/color] [color=#0000ff]Explicit[/color]

[color=#0000ff]Private[/color] [color=#0000ff]Sub[/color] Form_Load[color=#0000cc]([/color][color=#0000cc])[/color]
[color=#0000ff]If[/color] SubClass[color=#0000cc]([/color]hWnd[color=#0000cc])[/color] [color=#0000ff]Then[/color]  [color=#0000cc]'[/color]改变Form1的消息处理函数
      [color=#0000ff]If[/color] IsIDE [color=#0000ff]Then[/color]
      Text1[color=#0000cc].[/color]Text [color=#0000cc]=[/color] vbCrLf [color=#0000cc]&[/color] _
               [color=#ff00ff]"一个 Windows的文件目录操作即时监视程序,"[/color] [color=#0000cc]&[/color] vbCrLf [color=#0000cc]&[/color] [color=#ff00ff]"可以监视在Explore中的重命名、新建、删除文"[/color] [color=#0000cc]&[/color] _
               vbCrLf [color=#0000cc]&[/color] [color=#ff00ff]"件或目录；改变文件关联；插入、取出CD和添加"[/color] [color=#0000cc]&[/color] vbCrLf [color=#0000cc]&[/color] [color=#ff00ff]"删除网络共享都可以被该程序记录下来。"[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
      [color=#0000ff]Call[/color] SHNotify_Register[color=#0000cc]([/color]hWnd[color=#0000cc])[/color]
[color=#0000ff]Else[/color]
      Text1 [color=#0000cc]=[/color] [color=#ff00ff]"系统不支持操作监视程序 :-)"[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
Move Screen[color=#0000cc].[/color]Width [color=#0000cc]-[/color] Width[color=#0000cc],[/color] Screen[color=#0000cc].[/color]Height [color=#0000cc]-[/color] Height
[color=#0000ff]End[/color] [color=#0000ff]Sub[/color]

[color=#0000ff]Private[/color] [color=#0000ff]Function[/color] IsIDE[color=#0000cc]([/color][color=#0000cc])[/color] As Boolean
[color=#0000ff]On[/color] [color=#0000ff]Error[/color] GoTo Out
Debug[color=#0000cc].[/color]Print 1 [color=#0000cc]/[/color] 0
Out[color=#0000cc]:[/color]
IsIDE [color=#0000cc]=[/color] [color=#ff0000]Err[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Private[/color] [color=#0000ff]Sub[/color] Form_Unload[color=#0000cc]([/color]Cancel As Integer[color=#0000cc])[/color]
[color=#0000ff]Call[/color] SHNotify_Unregister
[color=#0000ff]Call[/color] UnSubClass[color=#0000cc]([/color]hWnd[color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]Sub[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Sub[/color] NotificationReceipt[color=#0000cc]([/color]wParam As Long[color=#0000cc],[/color] lParam As Long[color=#0000cc])[/color]
[color=#0000ff]Dim[/color] sOut As [color=#ff0000]String[/color]
[color=#0000ff]Dim[/color] shns As SHNOTIFYSTRUCT
[color=#0000ff]Dim[/color] sDisplayname1 As [color=#ff0000]String[/color]
[color=#0000ff]Dim[/color] sDisplayname2 As [color=#ff0000]String[/color]

MoveMemory shns[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] wParam[color=#0000cc],[/color] [color=#ff0000]Len[/color][color=#0000cc]([/color]shns[color=#0000cc])[/color]

[color=#0000ff]If[/color] shns[color=#0000cc].[/color]dwItem1 [color=#0000ff]Then[/color]
      sDisplayname1 [color=#0000cc]=[/color] GetDisplayNameFromPIDL[color=#0000cc]([/color]shns[color=#0000cc].[/color]dwItem1[color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]

[color=#0000ff]If[/color] shns[color=#0000cc].[/color]dwItem2 [color=#0000ff]Then[/color]
      sDisplayname2 [color=#0000cc]=[/color] GetDisplayNameFromPIDL[color=#0000cc]([/color]shns[color=#0000cc].[/color]dwItem2[color=#0000cc])[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
sOut [color=#0000cc]=[/color] SHNotify_GetEventStr[color=#0000cc]([/color]sDisplayname1[color=#0000cc],[/color] sDisplayname2[color=#0000cc],[/color] lParam[color=#0000cc])[/color] [color=#0000cc]&[/color] vbCrLf
Text1 [color=#0000cc]=[/color] Text1 [color=#0000cc]&[/color] sOut [color=#0000cc]&[/color] vbCrLf
Text1[color=#0000cc].[/color]SelStart [color=#0000cc]=[/color] [color=#ff0000]Len[/color][color=#0000cc]([/color]Text1[color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]Sub[/color]
然后在工程中加入三个模块（Bas）文件，将三个文件分别保存为mDef[color=#0000cc].[/color]Bas、mShell[color=#0000cc].[/color]Bas、mSub[color=#0000cc].[/color]Bas。在mDef[color=#0000cc].[/color]Bas中加入以下代码：
[color=#0000cc]'[/color]mDef[color=#0000cc].[/color]Bas包含Shell操作的函数和数据类型的定义
[color=#0000ff]Option[/color] [color=#0000ff]Explicit[/color]

Declare [color=#0000ff]Sub[/color] MoveMemory Lib [color=#ff00ff]"kernel32"[/color] Alias [color=#ff00ff]"RtlMoveMemory"[/color] [color=#0000cc]([/color]pDest As Any[color=#0000cc],[/color] _
      pSource As Any[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] dwLength As Long[color=#0000cc])[/color]
Declare [color=#0000ff]Sub[/color] CoTaskMemFree Lib [color=#ff00ff]"ole32.dll"[/color] [color=#0000cc]([/color][color=#0000ff]ByVal[/color] pv As Long[color=#0000cc])[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Const[/color] MAX_PATH [color=#0000cc]=[/color] 260
[color=#0000ff]Public[/color] [color=#0000ff]Const[/color] NOERROR [color=#0000cc]=[/color] 0

[color=#0000cc]'[/color]SHGetSpecialFolderLocation获得某一个特殊的目录的位置[color=#0000cc],[/color]如果函数调用成功返回NOERROR
[color=#0000cc]'[/color]或者一个OLE错误
Declare [color=#0000ff]Function[/color] SHGetSpecialFolderLocation Lib [color=#ff00ff]"shell32.dll"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hwndOwner As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] nFolder As SHSpecialFolderIDs[color=#0000cc],[/color] _
                           pidl As Long[color=#0000cc])[/color] As Long

[color=#0000ff]Public[/color] Enum SHSpecialFolderIDs    [color=#0000cc]'[/color]列出所有Windows下特殊文件夹的ID
CSIDL_DESKTOP [color=#0000cc]=[/color] [color=#0000cc]&[/color]H0
CSIDL_INTERNET [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1
CSIDL_PROGRAMS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2
CSIDL_CONTROLS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H3
CSIDL_PRINTERS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H4
CSIDL_PERSONAL [color=#0000cc]=[/color] [color=#0000cc]&[/color]H5
CSIDL_FAVORITES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H6
CSIDL_STARTUP [color=#0000cc]=[/color] [color=#0000cc]&[/color]H7
CSIDL_RECENT [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8
CSIDL_SENDTO [color=#0000cc]=[/color] [color=#0000cc]&[/color]H9
CSIDL_BITBUCKET [color=#0000cc]=[/color] [color=#0000cc]&[/color]HA
CSIDL_STARTMENU [color=#0000cc]=[/color] [color=#0000cc]&[/color]HB
CSIDL_DESKTOPDIRECTORY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H10
CSIDL_DRIVES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H11
CSIDL_NETWORK [color=#0000cc]=[/color] [color=#0000cc]&[/color]H12
CSIDL_NETHOOD [color=#0000cc]=[/color] [color=#0000cc]&[/color]H13
CSIDL_FONTS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H14
CSIDL_TEMPLATES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H15
CSIDL_COMMON_STARTMENU [color=#0000cc]=[/color] [color=#0000cc]&[/color]H16
CSIDL_COMMON_PROGRAMS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H17
CSIDL_COMMON_STARTUP [color=#0000cc]=[/color] [color=#0000cc]&[/color]H18
CSIDL_COMMON_DESKTOPDIRECTORY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H19
CSIDL_APPDATA [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1A
CSIDL_PRINTHOOD [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1B
CSIDL_ALTSTARTUP [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1D
CSIDL_COMMON_ALTSTARTUP [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1E
CSIDL_COMMON_FAVORITES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1F
CSIDL_INTERNET_CACHE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H20
CSIDL_COOKIES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H21
CSIDL_HISTORY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H22
[color=#0000ff]End[/color] Enum

[color=#0000cc]'[/color]SHGetPathFromIDList函数将一个Item转换为文件路径
Declare [color=#0000ff]Function[/color] SHGetPathFromIDList Lib [color=#ff00ff]"shell32.dll"[/color] Alias [color=#ff00ff]"SHGetPathFromIDListA"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] pidl As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] pszPath As [color=#ff0000]String[/color][color=#0000cc])[/color] As Long

[color=#0000cc]'[/color]SHGetFileInfoPidl函数获得某个文件对象的信息。
Declare [color=#0000ff]Function[/color] SHGetFileInfoPidl Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"SHGetFileInfoA"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] pidl As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] dwFileAttributes As Long[color=#0000cc],[/color] _
                           psfib As SHFILEINFOBYTE[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] cbFileInfo As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uFlags As SHGFI_flags[color=#0000cc])[/color] As Long

[color=#0000ff]Public[/color] Type SHFILEINFOBYTE
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName[color=#0000cc]([/color]1 [color=#0000ff]To[/color] MAX_PATH[color=#0000cc])[/color] As Byte
szTypeName[color=#0000cc]([/color]1 [color=#0000ff]To[/color] 80[color=#0000cc])[/color] As Byte
[color=#0000ff]End[/color] Type

Declare [color=#0000ff]Function[/color] SHGetFileInfo Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"SHGetFileInfoA"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] pszPath As [color=#ff0000]String[/color][color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] dwFileAttributes As Long[color=#0000cc],[/color] _
                           psfi As SHFILEINFO[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] cbFileInfo As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uFlags As SHGFI_flags[color=#0000cc])[/color] As Long

[color=#0000ff]Public[/color] Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As [color=#ff0000]String[/color] [color=#0000cc]*[/color] MAX_PATH
szTypeName As [color=#ff0000]String[/color] [color=#0000cc]*[/color] 80
[color=#0000ff]End[/color] Type

Enum SHGFI_flags
SHGFI_LARGEICON [color=#0000cc]=[/color] [color=#0000cc]&[/color]H0
SHGFI_SMALLICON [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1
SHGFI_OPENICON [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2
SHGFI_SHELLICONSIZE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H4
SHGFI_PIDL [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8
SHGFI_USEFILEATTRIBUTES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H10
SHGFI_ICON [color=#0000cc]=[/color] [color=#0000cc]&[/color]H100
SHGFI_DISPLAYNAME [color=#0000cc]=[/color] [color=#0000cc]&[/color]H200
SHGFI_TYPENAME [color=#0000cc]=[/color] [color=#0000cc]&[/color]H400
SHGFI_ATTRIBUTES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H800
SHGFI_ICONLOCATION [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1000
SHGFI_EXETYPE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2000
SHGFI_SYSICONINDEX [color=#0000cc]=[/color] [color=#0000cc]&[/color]H4000
SHGFI_LINKOVERLAY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8000
SHGFI_SELECTED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H10000
[color=#0000ff]End[/color] Enum

[color=#0000cc]'[/color]根据一个特定文件夹对象的ID获得它的目录pidl
[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] GetPIDLFromFolderID[color=#0000cc]([/color]hOwner As Long[color=#0000cc],[/color] nFolder As SHSpecialFolderIDs[color=#0000cc])[/color] As Long
[color=#0000ff]Dim[/color] pidl As Long
[color=#0000ff]If[/color] SHGetSpecialFolderLocation[color=#0000cc]([/color]hOwner[color=#0000cc],[/color] nFolder[color=#0000cc],[/color] pidl[color=#0000cc])[/color] [color=#0000cc]=[/color] NOERROR [color=#0000ff]Then[/color]
      GetPIDLFromFolderID [color=#0000cc]=[/color] pidl
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] GetDisplayNameFromPIDL[color=#0000cc]([/color]pidl As Long[color=#0000cc])[/color] As [color=#ff0000]String[/color]
[color=#0000ff]Dim[/color] sfib As SHFILEINFOBYTE
[color=#0000ff]If[/color] SHGetFileInfoPidl[color=#0000cc]([/color]pidl[color=#0000cc],[/color] 0[color=#0000cc],[/color] sfib[color=#0000cc],[/color] [color=#ff0000]Len[/color][color=#0000cc]([/color]sfib[color=#0000cc])[/color][color=#0000cc],[/color] SHGFI_PIDL [color=#0000ff]Or[/color] SHGFI_DISPLAYNAME[color=#0000cc])[/color] [color=#0000ff]Then[/color]
      GetDisplayNameFromPIDL [color=#0000cc]=[/color] GetStrFromBufferA[color=#0000cc]([/color]StrConv[color=#0000cc]([/color]sfib[color=#0000cc].[/color]szDisplayName[color=#0000cc],[/color] vbUnicode[color=#0000cc])[/color][color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] GetPathFromPIDL[color=#0000cc]([/color]pidl As Long[color=#0000cc])[/color] As [color=#ff0000]String[/color]
[color=#0000ff]Dim[/color] sPath As [color=#ff0000]String[/color] [color=#0000cc]*[/color] MAX_PATH
[color=#0000ff]If[/color] SHGetPathFromIDList[color=#0000cc]([/color]pidl[color=#0000cc],[/color] sPath[color=#0000cc])[/color] [color=#0000ff]Then[/color]
      GetPathFromPIDL [color=#0000cc]=[/color] GetStrFromBufferA[color=#0000cc]([/color]sPath[color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] GetStrFromBufferA[color=#0000cc]([/color]sz As [color=#ff0000]String[/color][color=#0000cc])[/color] As [color=#ff0000]String[/color]
[color=#0000ff]If[/color] [color=#ff0000]InStr[/color][color=#0000cc]([/color]sz[color=#0000cc],[/color] vbNullChar[color=#0000cc])[/color] [color=#0000ff]Then[/color]
      GetStrFromBufferA [color=#0000cc]=[/color] [color=#ff0000]Left[/color][color=#ff0000]$[/color][color=#0000cc]([/color]sz[color=#0000cc],[/color] [color=#ff0000]InStr[/color][color=#0000cc]([/color]sz[color=#0000cc],[/color] vbNullChar[color=#0000cc])[/color] [color=#0000cc]-[/color] 1[color=#0000cc])[/color]
[color=#0000ff]Else[/color]
      GetStrFromBufferA [color=#0000cc]=[/color] sz
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

在mShell[color=#0000cc].[/color]Bas中加入以下代码：
[color=#0000cc]'[/color]mShell[color=#0000cc].[/color]Bas函数包含注册和反注册系统通告以及文件夹信息转换的函数
[color=#0000ff]Option[/color] [color=#0000ff]Explicit[/color]

[color=#0000ff]Private[/color] m_hSHNotify As Long    [color=#0000cc]'[/color]系统消息通告句柄
[color=#0000ff]Private[/color] m_pidlDesktop As Long

[color=#0000cc]'[/color]定义系统通告的消息值
[color=#0000ff]Public[/color] [color=#0000ff]Const[/color] WM_SHNOTIFY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H401

[color=#0000ff]Public[/color] Type PIDLSTRUCT
pidl As Long
bWatchSubFolders As Long
[color=#0000ff]End[/color] Type

Declare [color=#0000ff]Function[/color] SHChangeNotifyRegister Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"#2"[/color] _
                           [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hWnd As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uFlags As SHCN_ItemFlags[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] dwEventID As SHCN_EventIDs[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] uMsg As Long[color=#0000cc],[/color] _
                           [color=#0000ff]ByVal[/color] cItems As Long[color=#0000cc],[/color] _
                           lpps As PIDLSTRUCT[color=#0000cc])[/color] As Long

Type SHNOTIFYSTRUCT
dwItem1 As Long
dwItem2 As Long
[color=#0000ff]End[/color] Type

Declare [color=#0000ff]Function[/color] SHChangeNotifyDeregister Lib [color=#ff00ff]"shell32"[/color] Alias [color=#ff00ff]"#4"[/color] _
      [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hNotify As Long[color=#0000cc])[/color] As Boolean

Declare [color=#0000ff]Sub[/color] SHChangeNotify Lib [color=#ff00ff]"shell32"[/color] _
                     [color=#0000cc]([/color][color=#0000ff]ByVal[/color] wEventId As SHCN_EventIDs[color=#0000cc],[/color] _
                     [color=#0000ff]ByVal[/color] uFlags As SHCN_ItemFlags[color=#0000cc],[/color] _
                     [color=#0000ff]ByVal[/color] dwItem1 As Long[color=#0000cc],[/color] _
                     [color=#0000ff]ByVal[/color] dwItem2 As Long[color=#0000cc])[/color]

[color=#0000ff]Public[/color] Enum SHCN_EventIDs
SHCNE_RENAMEITEM [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1
SHCNE_CREATE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2
SHCNE_DELETE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H4
SHCNE_MKDIR [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8
SHCNE_RMDIR [color=#0000cc]=[/color] [color=#0000cc]&[/color]H10
SHCNE_MEDIAINSERTED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H20
SHCNE_MEDIAREMOVED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H40
SHCNE_DRIVEREMOVED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H80
SHCNE_DRIVEADD [color=#0000cc]=[/color] [color=#0000cc]&[/color]H100
SHCNE_NETSHARE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H200
SHCNE_NETUNSHARE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H400
SHCNE_ATTRIBUTES [color=#0000cc]=[/color] [color=#0000cc]&[/color]H800
SHCNE_UPDATEDIR [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1000
SHCNE_UPDATEITEM [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2000
SHCNE_SERVERDISCONNECT [color=#0000cc]=[/color] [color=#0000cc]&[/color]H4000
SHCNE_UPDATEIMAGE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8000[color=#0000cc]&[/color]
SHCNE_DRIVEADDGUI [color=#0000cc]=[/color] [color=#0000cc]&[/color]H10000
SHCNE_RENAMEFOLDER [color=#0000cc]=[/color] [color=#0000cc]&[/color]H20000
SHCNE_FREESPACE [color=#0000cc]=[/color] [color=#0000cc]&[/color]H40000
SHCNE_ASSOCCHANGED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H8000000

SHCNE_DISKEVENTS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2381F
SHCNE_GLOBALEVENTS [color=#0000cc]=[/color] [color=#0000cc]&[/color]HC0581E0
SHCNE_ALLEVENTS [color=#0000cc]=[/color] [color=#0000cc]&[/color]H7FFFFFFF
SHCNE_INTERRUPT [color=#0000cc]=[/color] [color=#0000cc]&[/color]H80000000
[color=#0000ff]End[/color] Enum

#[color=#0000ff]If[/color] [color=#0000cc]([/color]WIN32_IE [color=#0000cc]>[/color][color=#0000cc]=[/color] [color=#0000cc]&[/color]H400[color=#0000cc])[/color] [color=#0000ff]Then[/color]
[color=#0000ff]Public[/color] [color=#0000ff]Const[/color] SHCNEE_ORDERCHANGED [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2
#[color=#0000ff]End[/color] [color=#0000ff]If[/color]

[color=#0000ff]Public[/color] Enum SHCN_ItemFlags
SHCNF_IDLIST [color=#0000cc]=[/color] [color=#0000cc]&[/color]H0
SHCNF_PATHA [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1
SHCNF_PRINTERA [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2
SHCNF_DWORD [color=#0000cc]=[/color] [color=#0000cc]&[/color]H3
SHCNF_PATHW [color=#0000cc]=[/color] [color=#0000cc]&[/color]H5
SHCNF_PRINTERW [color=#0000cc]=[/color] [color=#0000cc]&[/color]H6
SHCNF_TYPE [color=#0000cc]=[/color] [color=#0000cc]&[/color]HFF
SHCNF_FLUSH [color=#0000cc]=[/color] [color=#0000cc]&[/color]H1000
SHCNF_FLUSHNOWAIT [color=#0000cc]=[/color] [color=#0000cc]&[/color]H2000

#[color=#0000ff]If[/color] UNICODE [color=#0000ff]Then[/color]
      SHCNF_PATH [color=#0000cc]=[/color] SHCNF_PATHW
      SHCNF_PRINTER [color=#0000cc]=[/color] SHCNF_PRINTERW
#[color=#0000ff]Else[/color]
      SHCNF_PATH [color=#0000cc]=[/color] SHCNF_PATHA
      SHCNF_PRINTER [color=#0000cc]=[/color] SHCNF_PRINTERA
#[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] Enum

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] SHNotify_Register[color=#0000cc]([/color]hWnd As Long[color=#0000cc])[/color] As Boolean
[color=#0000ff]Dim[/color] ps As PIDLSTRUCT

[color=#0000ff]If[/color] [color=#0000cc]([/color]m_hSHNotify [color=#0000cc]=[/color] 0[color=#0000cc])[/color] [color=#0000ff]Then[/color]

      m_pidlDesktop [color=#0000cc]=[/color] GetPIDLFromFolderID[color=#0000cc]([/color]0[color=#0000cc],[/color] CSIDL_DESKTOP[color=#0000cc])[/color]
      [color=#0000ff]If[/color] m_pidlDesktop [color=#0000ff]Then[/color]

         ps[color=#0000cc].[/color]pidl [color=#0000cc]=[/color] m_pidlDesktop
         ps[color=#0000cc].[/color]bWatchSubFolders [color=#0000cc]=[/color] [color=#0000ff]True[/color]

         [color=#0000cc]'[/color]注册Windows监视[color=#0000cc],[/color]将获得的句柄保存到m_hSHNotify中
         m_hSHNotify [color=#0000cc]=[/color] SHChangeNotifyRegister[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] SHCNF_TYPE [color=#0000ff]Or[/color] SHCNF_IDLIST[color=#0000cc],[/color] _
                                          SHCNE_ALLEVENTS [color=#0000ff]Or[/color] SHCNE_INTERRUPT[color=#0000cc],[/color] _
                                          WM_SHNOTIFY[color=#0000cc],[/color] 1[color=#0000cc],[/color] ps[color=#0000cc])[/color]
         SHNotify_Register [color=#0000cc]=[/color] [color=#ff0000]CBool[/color][color=#0000cc]([/color]m_hSHNotify[color=#0000cc])[/color]

      [color=#0000ff]Else[/color]
         [color=#0000ff]Call[/color] CoTaskMemFree[color=#0000cc]([/color]m_pidlDesktop[color=#0000cc])[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] SHNotify_Unregister[color=#0000cc]([/color][color=#0000cc])[/color] As Boolean
[color=#0000ff]If[/color] m_hSHNotify [color=#0000ff]Then[/color]
      [color=#0000ff]If[/color] SHChangeNotifyDeregister[color=#0000cc]([/color]m_hSHNotify[color=#0000cc])[/color] [color=#0000ff]Then[/color]
         m_hSHNotify [color=#0000cc]=[/color] 0
         [color=#0000ff]Call[/color] CoTaskMemFree[color=#0000cc]([/color]m_pidlDesktop[color=#0000cc])[/color]
         m_pidlDesktop [color=#0000cc]=[/color] 0
         SHNotify_Unregister [color=#0000cc]=[/color] [color=#0000ff]True[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] SHNotify_GetEventStr[color=#0000cc]([/color]strPath1[color=#0000cc],[/color] strPath2 As [color=#ff0000]String[/color][color=#0000cc],[/color] dwEventID As Long[color=#0000cc])[/color] As [color=#ff0000]String[/color]
[color=#0000ff]Dim[/color] sEvent As [color=#ff0000]String[/color]

[color=#0000ff]Select[/color] [color=#0000ff]Case[/color] dwEventID
      [color=#0000ff]Case[/color] SHCNE_RENAMEITEM[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"重命名文件"[/color] [color=#0000cc]+[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"为"[/color] [color=#0000cc]+[/color] strPath2
      [color=#0000ff]Case[/color] SHCNE_CREATE[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"建立文件文件名："[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_DELETE[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"删除文件文件名："[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_MKDIR[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"新建目录目录名："[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_RMDIR[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"删除目录目录名："[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_MEDIAINSERTED[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"中插入可移动存储介质"[/color]
      [color=#0000ff]Case[/color] SHCNE_MEDIAREMOVED[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"中移去可移动存储介质"[/color]
      [color=#0000ff]Case[/color] SHCNE_DRIVEREMOVED[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"移去驱动器"[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_DRIVEADD[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"添加驱动器"[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_NETSHARE[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"改变目录"[/color] [color=#0000cc]+[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"的共享属性"[/color]
      [color=#0000ff]Case[/color] SHCNE_UPDATEDIR[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"更新目录"[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_UPDATEITEM[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"更新文件文件名："[/color] [color=#0000cc]+[/color] strPath1
      [color=#0000ff]Case[/color] SHCNE_SERVERDISCONNECT[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"断开与服务器的连"[/color] [color=#0000cc]+[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"  "[/color] [color=#0000cc]+[/color] strPath2
      [color=#0000ff]Case[/color] SHCNE_UPDATEIMAGE[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"SHCNE_UPDATEIMAGE"[/color]
      [color=#0000ff]Case[/color] SHCNE_DRIVEADDGUI[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"SHCNE_DRIVEADDGUI"[/color]
      [color=#0000ff]Case[/color] SHCNE_RENAMEFOLDER[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"重命名文件夹"[/color] [color=#0000cc]+[/color] strPath1 [color=#0000cc]+[/color] [color=#ff00ff]"为"[/color] [color=#0000cc]+[/color] strPath2
      [color=#0000ff]Case[/color] SHCNE_FREESPACE[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"磁盘空间大小改变"[/color]

      [color=#0000ff]Case[/color] SHCNE_ASSOCCHANGED[color=#0000cc]:[/color] sEvent [color=#0000cc]=[/color] [color=#ff00ff]"改变文件关联"[/color]
[color=#0000ff]End[/color] [color=#0000ff]Select[/color]

SHNotify_GetEventStr [color=#0000cc]=[/color] sEvent
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

在mSub[color=#0000cc].[/color]Bas中加入以下代码：
[color=#0000cc]'[/color]mSub函数包括窗口的消息处理函数
[color=#0000ff]Option[/color] [color=#0000ff]Explicit[/color]

[color=#0000ff]Private[/color] [color=#0000ff]Const[/color] WM_NCDESTROY [color=#0000cc]=[/color] [color=#0000cc]&[/color]H82
[color=#0000ff]Private[/color] [color=#0000ff]Const[/color] GWL_WNDPROC [color=#0000cc]=[/color] [color=#0000cc]([/color][color=#0000cc]-[/color]4[color=#0000cc])[/color]
[color=#0000ff]Private[/color] [color=#0000ff]Const[/color] OLDWNDPROC [color=#0000cc]=[/color] [color=#ff00ff]"OldWndProc"[/color]

[color=#0000ff]Private[/color] Declare [color=#0000ff]Function[/color] GetProp Lib [color=#ff00ff]"user32"[/color] Alias [color=#ff00ff]"GetPropA"[/color] [color=#0000cc]([/color][color=#0000ff]ByVal[/color] _
      hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] lpString As [color=#ff0000]String[/color][color=#0000cc])[/color] As Long
[color=#0000ff]Private[/color] Declare [color=#0000ff]Function[/color] SetProp Lib [color=#ff00ff]"user32"[/color] Alias [color=#ff00ff]"SetPropA"[/color] [color=#0000cc]([/color][color=#0000ff]ByVal[/color] _
      hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] lpString As [color=#ff0000]String[/color][color=#0000cc],[/color] [color=#0000ff]ByVal[/color] hData As Long[color=#0000cc])[/color] As Long
[color=#0000ff]Private[/color] Declare [color=#0000ff]Function[/color] RemoveProp Lib [color=#ff00ff]"user32"[/color] Alias [color=#ff00ff]"RemovePropA"[/color] [color=#0000cc]([/color][color=#0000ff]ByVal[/color] _
      hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] lpString As [color=#ff0000]String[/color][color=#0000cc])[/color] As Long

[color=#0000ff]Private[/color] Declare [color=#0000ff]Function[/color] SetWindowLong Lib [color=#ff00ff]"user32"[/color] Alias [color=#ff00ff]"SetWindowLongA"[/color] _
      [color=#0000cc]([/color][color=#0000ff]ByVal[/color] hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] nIndex As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] dwNewLong As Long[color=#0000cc])[/color] As Long

[color=#0000ff]Private[/color] Declare [color=#0000ff]Function[/color] CallWindowProc Lib [color=#ff00ff]"user32"[/color] Alias [color=#ff00ff]"CallWindowProcA"[/color] _
      [color=#0000cc]([/color][color=#0000ff]ByVal[/color] lpPrevWndFunc As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] uMsg As Long[color=#0000cc],[/color] _
      [color=#0000ff]ByVal[/color] wParam As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] lParam As Long[color=#0000cc])[/color] As Long

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] SubClass[color=#0000cc]([/color]hWnd As Long[color=#0000cc])[/color] As Boolean
[color=#0000ff]Dim[/color] lpfnOld As Long
[color=#0000ff]Dim[/color] fSuccess As Boolean

[color=#0000ff]If[/color] [color=#0000cc]([/color]GetProp[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] OLDWNDPROC[color=#0000cc])[/color] [color=#0000cc]=[/color] 0[color=#0000cc])[/color] [color=#0000ff]Then[/color]
      lpfnOld [color=#0000cc]=[/color] SetWindowLong[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] GWL_WNDPROC[color=#0000cc],[/color] AddressOf WndProc[color=#0000cc])[/color]
      [color=#0000ff]If[/color] lpfnOld [color=#0000ff]Then[/color]
         fSuccess [color=#0000cc]=[/color] SetProp[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] OLDWNDPROC[color=#0000cc],[/color] lpfnOld[color=#0000cc])[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]

[color=#0000ff]If[/color] fSuccess [color=#0000ff]Then[/color]
      SubClass [color=#0000cc]=[/color] [color=#0000ff]True[/color]
[color=#0000ff]Else[/color]
      [color=#0000ff]If[/color] lpfnOld [color=#0000ff]Then[/color] [color=#0000ff]Call[/color] UnSubClass[color=#0000cc]([/color]hWnd[color=#0000cc])[/color]
      [color=#ff0000]MsgBox[/color] [color=#ff00ff]"Unable to successfully subclass &H"[/color] [color=#0000cc]&[/color] [color=#ff0000]Hex[/color][color=#0000cc]([/color]hWnd[color=#0000cc])[/color][color=#0000cc],[/color] vbCritical
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] UnSubClass[color=#0000cc]([/color]hWnd As Long[color=#0000cc])[/color] As Boolean
[color=#0000ff]Dim[/color] lpfnOld As Long

lpfnOld [color=#0000cc]=[/color] GetProp[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] OLDWNDPROC[color=#0000cc])[/color]
[color=#0000ff]If[/color] lpfnOld [color=#0000ff]Then[/color]
      [color=#0000ff]If[/color] RemoveProp[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] OLDWNDPROC[color=#0000cc])[/color] [color=#0000ff]Then[/color]
         UnSubClass [color=#0000cc]=[/color] SetWindowLong[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] GWL_WNDPROC[color=#0000cc],[/color] lpfnOld[color=#0000cc])[/color]
      [color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

[color=#0000ff]Public[/color] [color=#0000ff]Function[/color] WndProc[color=#0000cc]([/color][color=#0000ff]ByVal[/color] hWnd As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] uMsg As Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] wParam As _
      Long[color=#0000cc],[/color] [color=#0000ff]ByVal[/color] lParam As Long[color=#0000cc])[/color] As Long
[color=#0000ff]Select[/color] [color=#0000ff]Case[/color] uMsg
      [color=#0000ff]Case[/color] WM_SHNOTIFY       [color=#0000cc]'[/color]处理系统消息通告函数
         [color=#0000ff]Call[/color] Form1[color=#0000cc].[/color]NotificationReceipt[color=#0000cc]([/color]wParam[color=#0000cc],[/color] lParam[color=#0000cc])[/color]
      [color=#0000ff]Case[/color] WM_NCDESTROY
         [color=#0000ff]Call[/color] UnSubClass[color=#0000cc]([/color]hWnd[color=#0000cc])[/color]
         [color=#ff0000]MsgBox[/color] [color=#ff00ff]"Unubclassed &H"[/color] [color=#0000cc]&[/color] [color=#ff0000]Hex[/color][color=#0000cc]([/color]hWnd[color=#0000cc])[/color][color=#0000cc],[/color] vbCritical[color=#0000cc],[/color] [color=#ff00ff]"WndProc Error"[/color]
[color=#0000ff]End[/color] [color=#0000ff]Select[/color]

WndProc [color=#0000cc]=[/color] CallWindowProc[color=#0000cc]([/color]GetProp[color=#0000cc]([/color]hWnd[color=#0000cc],[/color] OLDWNDPROC[color=#0000cc])[/color][color=#0000cc],[/color] hWnd[color=#0000cc],[/color] uMsg[color=#0000cc],[/color] wParam[color=#0000cc],[/color] lParam[color=#0000cc])[/color]
[color=#0000ff]End[/color] [color=#0000ff]Function[/color]

保存文件，然后运行程序，然后你可以在Explore中试着建立或者删除一个文件或者文件夹，在Form中可以看到
你所做的操作已经被纪录并且显示到TextBox中了。
现在分析以下上面的程序，上面的程序首先调用SHChangeNotifyRegister函数将Form添加到系统消息通告链中，
并利用SetWindowLong函数改变Form的缺省的消息处理函数，当接受到系统通告消息后，根据传递的参数获得系统通
告的内容并且显示在文本窗口中。退出程序时调用SHChangeNotifyDeregister函数注销系统消息通告。
[/color]

Nothing 2010-6-8 14:55

源代码
[url]http://www.lihuasoft.net/source/show.php?id=330[/url]
[url]http://www.lihuasoft.net/source/show.php?id=349[/url]

页: [1]

查看完整版本: 关于VB怎么截获系统正在移动的路径