vb6.0如何实现监控文件被打开
老人参 2011-12-19 10:14:28 vb6.0如何实现监控文件被打开
我想做一个功能,监控qq 和 阿里旺旺,
当他们的软件播放wav提示音的时候,我的程序通知我来查看一下qq是不是有消息;
我用下面的方法可以查到qq播放wav的时候,监测成功,
Public Function FileIsOpen(ByVal FilePath As String) As Boolean
Dim fFile As Integer
fFile = FreeFile
On Error GoTo ErrOpen
Open FilePath For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:
FileIsOpen = True
End Function
If (FileIsOpen("D:\Program Files (x86)\Tencent\QQ\Misc\Sound\Classic\system.wav")) Then
QQMsgFla = 1
End If
但是,阿里旺旺,播放wav的时候,就查不到了,请问,有什么好的方法,简单的
或者谁有做好的,文件过滤驱动win7 下的,
是不是阿里旺旺播放wav的时候不是独占方式打开文件,所以监测不到,能有更好的方法么?