有些人采取常規的方式，即寫一個桌面應用程序，其界面可能是隱藏的。采用每隔一個事件片段讀取文件信息，然后寫到一個log文件中。然后設置系統啟動的事件自動加載程序，（好像很多人是這樣竊取QQ密碼的：）。其缺點：1、不是連續的獲取信息，因為他們采用了Timer的tick事件；2、在NT系統中，可能要一定的權限才可以運行，比如要管理員身份等。還有系統中會有進程顯示，顯然很容易shut　down.

　　我們建議的方案：采用.NET的Windows Service。首先可以克服以上缺點，而且較VB6的編程而言，.NET中寫windows service一如反掌。

　　思路：在.NET創建的服務中調用System.IO.FileSystemWatcher對象，每次被監視的文件或者文件夾變化的時候，調用IO系統的FileStream和StreamWriter把變更信息寫到log文件中。

　　關于.NET中的Windows服務：

　　Windows服務，是一些長久運行的程序，而并不需要依靠登錄用戶或客戶程序來保持它的運行。它們沒有自己的用戶界面，可以在它們自己獨有的安全級別和會話上下文中運行。我們比較熟悉的Windows服務范例包含了從打印池到SQL服務器以及它的分布式事務協作（DTC）。服務只可以運行在NT、2000以及后繼產品比如XP下運行，它們通過Microsoft Management Console (MMC)提供了一個專門的管理界面(開始－>運行->Services.msc)。

　　在.NET中創建項目的時候，有一個Windows服務的模板，選擇新建。這個操作自動為我建立了一個新的類，它是繼承了.NET內建了System.ServiceProcess.ServiceBase類。同時它提供給我一個可視化的設計器，一個圖形化的快速開發工具，它特別的為那些本身沒有用戶界面的工程。我可以點擊這個設計器，設定我的服務的名字（我命名為"File Watching"）。

　　當啟動某項服務時，系統將定位相應的可執行文件，并運行該服務的 OnStart方法（它包含在可執行文件內）。但是，運行服務與運行可執行文件并不相同?？蓤绦形募H加載服務。服務則通過“服務控制管理器”訪問（例如啟動和停止）。

　　當首次在服務上調用“開始”時，可執行文件將調用 ServiceBase 派生類的構造函數。在構造函數執行之后將立即調用 OnStart 命令處理方法。在服務首次加載之后，構造函數不會再次執行，因此有必要將構造函數執行的處理和 OnStart 執行的處理分開?？梢杂?OnStop 釋放的任何資源都應在 OnStart 中創建。如果服務在 OnStop 釋放資源后再次啟動，那么，在構造函數中創建資源會妨礙這些資源的正確創建。

　　“服務控制管理器”(SCM) 提供與服務交互的方式，可以使用 SCM 將“開始”(Start)、“停止”(Stop)、“暫?！?Pause)、“繼續”(Continue) 或自定義命令傳遞到服務中。SCM 使用 CanStop 和 CanPauseAndContinue 的值，決定服務是否接受“停止”、“暫?！被颉袄^續”命令。僅當服務類中相應的屬性 CanStop 或 CanPauseAndContinue 為 true 時，才會在 SCM 的上下文菜單中啟用“停止”、“暫?！被颉袄^續”。如果已啟用，則相應的命令將傳遞到服務，并且調用 OnStop、OnPause 或 OnContinue。如果 CanStop、CanShutdown 或 CanPauseAndContinue 為 false，則即使已實現相應的命令處理方法（如 OnStop），也不會予以處理。

　　上面是創建任何一個服務，我們都會涉及到的。只是，具體在監視文件夾變化的時候，我們用到了FileSystemWatcher。

　　關于FileSystemWatcher：

　　偵聽文件系統更改通知，并在目錄或目錄中的文件發生更改時引發事件。

　　使用 FileSystemWatcher 監視指定目錄中的更改?？杀O視指定目錄中的文件或子目錄的更改。該組件可以監視本地計算機、網絡驅動器或遠程計算機上的文件。（當然只讀的媒體介質比如cd和dvd，它們文件的屬性不會改變，所以也就不能觸發事件）

　　若要監視所有文件中的更改，請將 Filter 屬性設置為空字符串 ("")。若要監視特定的文件，請將 Filter 屬性設置為該文件名。例如，若要監視文件 MyDoc.txt 中的更改，請將 Filter 屬性設置為“MyDoc.txt”。也可以監視特定類型文件中的更改。例如，若要監視文本文件中的更改，請將 Filter 屬性設置為“*.txt”。

　　可監視目錄或文件中的若干種更改。例如，可監視文件或目錄的 Attributes、LastWrite 日期和時間或 Size 方面的更改。通過將 FileSystemWatcher.NotifyFilter 屬性設置為 NotifyFilters 值之一來達到此目的。

　　可監視文件或目錄的重命名、刪除或創建。例如，若要監視文本文件的重命名，請將 Filter 屬性設置為“*.txt”，并調用 WaitForChanged 方法之一，調用時給出 WatcherChangeTypes 值的 Renamed。

　　Demo：

　　新建一個project，選擇windows 服務類型，命名為WinServiceFileWatching，我們看到project的引用中自動添加了System.ServiceProcess名空間（這就是創建一個服務的函數集）。從工具中的組件中選擇FileSystemWatcher1，拖放到service1的設計模式上，然后設置如下屬性：

然后添加以下代碼：

Protected Overrides Sub OnStart(ByVal args() As String)

' 在此處添加啟動服務的代碼。此方法應設置具體的操作

' 以便服務可以執行它的工作。

FileSystemWatcher1.EnableRaisingEvents = True

' 我們也可以根據輸入的參數args動態設定要監視的對象

'FileSystemWatcher1.path= args(0)

End Sub

' 創建文件（夾）時候觸發，記錄創建信息到e:\log.txt中

Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created

Dim fs As New FileStream("e:\log.txt", FileMode.Append)

Dim sw As New StreamWriter(fs)

sw.WriteLine(Now() & Microsoft.VisualBasic.vbTab & "創建" & e.FullPath)

sw.Close()

fs.Close()

End Sub

' Rename文件（夾）時候觸發，記錄創建信息到e:\log.txt中

Private Sub FileSystemWatcher1_Renamed(ByVal sender As Object, ByVal e As System.IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed

Dim fs As New FileStream("e:\log.txt", FileMode.Append)

Dim sw As New StreamWriter(fs)

sw.WriteLine(Now() & Microsoft.VisualBasic.vbTab & "重命名" & e.OldFullPath & "-" & e.FullPath)

sw.Close()

fs.Close()

End Sub

' 刪除文件（夾）時候觸發，記錄創建信息到e:\log.txt中

Private Sub FileSystemWatcher1_Deleted(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted

Dim fs As New FileStream("e:\log.txt", FileMode.Append)

Dim sw As New StreamWriter(fs)

sw.WriteLine(Now() & Microsoft.VisualBasic.vbTab & "刪除" & e.FullPath)

sw.Close()

fs.Close()

End Sub

　　到目前為止，這個服務已經寫好了，下面作一個安裝程序：

　　在service的設計模式上點擊右鍵，選擇添加安裝程序。系統會自動添加一個類ProjectInstaller，設計模式上有一個ServiceProcessInstaller1 和ServiceInstaller1。設置ServiceInstaller1的Display Name為File Watching Service，starttype為Automatic，表示自動啟動。設置ServiceProcessInstaller1 的aclearcase/" target="_blank" >ccount為LocalSystem。

　　由于服務是不能運行的，我們選擇生成解決方案。ok!

　　最后安裝我們的服務：

　　.NET Framework自帶了一個工具,InstallUtil,使用很簡單InstallUtil c:\winservicefilewatching\bin\winservicefilewatching.exe ' 剛才編譯好的程序的路徑。這樣就安裝好了，Uninstall也很容易。首先SCM中關閉服務，InstallUtil/u c:\...\winservicefilewatching.exe 'the same path

　　這樣在系統的services中就會多出一個服務,顯示為File Watching Service，選擇啟動就可以開始監視...

　　總結：

在.NET創建的服務中調用System.IO.FileSystemWatcher對象，每次被監視的文件或者文件夾變化的時候，調用IO系統的FileStream和StreamWriter把變更信息寫到log文件中。實際上利用了.NET強大的內置集成功能，把復雜的文件簡單話。