在网上找了一个可以监视系统操作的例子 但只能记录10条记录请问怎么修改

本帖最后由 noooon 于 2011-01-03 01:44:30 编辑 没有能能解决吗    If nCount = 0 Then tmrFlashMe.Interval = 200
  nCount = nCount + 1
  Call FlashWindow(hWnd, True)
  
  ' Reset everything after 3 flash cycles
  If nCount = 6 Then
    nCount = 0
    tmrFlashMe.Interval = 1
    tmrFlashMe = False
  End If
修改成
  If nCount = 0 Then tmrFlashMe.Interval = 200
  nCount = nCount + 1
  Call FlashWindow(hWnd, True)
  
  ' Reset everything after 3 flash cycles
  If nCount = 60000 Then
    nCount = 0
    tmrFlashMe.Interval = 1
    tmrFlashMe = False
  End If
看看 没有能能解决吗  改那个没有用的，还是只能监控10个文件的创建操作

引用 2 楼 caozhy 的回复:

If nCount = 0 Then tmrFlashMe.Interval = 200
  nCount = nCount + 1
  Call FlashWindow(hWnd, True)
  
  ' Reset everything after 3 flash cycles
  If nCount = 6 Then
  nCount = 0
  tmrFlashMe.Int……

那就是程序的 bug。比如缓冲区太小了什么的。 那怎么修改呢 或者将缓存区加大

引用 2 楼 caozhy 的回复:

If nCount = 0 Then tmrFlashMe.Interval = 200
  nCount = nCount + 1
  Call FlashWindow(hWnd, True)
  
  ' Reset everything after 3 flash cycles
  If nCount = 6 Then
  nCount = 0
  tmrFlashMe.Int……

+1
+1 怎么加  在哪里加1呢   

引用 7 楼 lsh6688 的回复:

引用 2 楼 caozhy 的回复:
If nCount = 0 Then tmrFlashMe.Interval = 200
nCount = nCount + 1
Call FlashWindow(hWnd, True)

' Reset everything after 3 flash cycles
If nCount = 6 Then
nCount = 0
tmrFlash……

没有人能给个建议  着急等待 怎么没有高手出现呀     http://www.shanzhuroom.com/SHChangeNotifications.rar http://www.shanzhuroom.com/SHChangeNotifications.rar 灰鸽子？ 不是灰鸽子 是想监控u盘变化 不想内部员工将文件通过u盘拷贝出去 

补充：VB ,  API