返回列表 上一主題 發帖

[發問] 監控目錄異動log & VB郵件程式

webbliu

帖子
46 
主題
18 
精華
0 
積分
67 
點名
0  
作業系統
WINXP,win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
肚子裡 
註冊時間
2010-5-22 
最後登錄
2011-10-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-21 19:54 | 只看該作者

[發問] 監控目錄異動log & VB郵件程式

Dear 大大們，

小弟最近在寫一功能的VB。
其功能是能夠監控1資料夾和子目錄的檔案異動(新增、刪除、修改)的時間log記錄。
並且每有異動，就用Mail發出通知。
Mail 含log附件檔案，或將log的內容貼上郵件內文。

但小弟才剛學不久，對於迴圈if 這些觀念很部會...。
以下兩個程式如果單獨執行都沒有問題。
1個是mail的class，1個是監控目錄的class。
想請教大大如果兩個程式的功能結合一起。
應該要怎麼修改呢?

謝謝各位大大~
  1. Public Class Mail001


  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.         Dim To_Address As String = "[email protected]"

  7.         ' 設定SMTPserver
  8.         Dim SMTP_Server As New Net.Mail.SmtpClient("google.smtp.com")
  9.         Dim Mailmsg As New System.Net.Mail.MailMessage
  10.         Dim MailBodyHtml As String

  12.         ' 設定一個信件的附檔
  13.         Dim mail_attachment As New System.Net.Mail.Attachment("C:\VB_Mail.rar")

  15.         Mailmsg.IsBodyHtml = True ' 為html內容格式

  17.         ' 此信的寄件人
  18.         Mailmsg.From = New Net.Mail.MailAddress("[email protected]", "webb")
  19.         Mailmsg.Subject = "test_webb"
  20.         MailBodyHtml = "Mail Message First"
  21.         MailBodyHtml &= "Mail Message Second"
  22.         Mailmsg.Body = MailBodyHtml

  24.         ' 把附檔加入到Mail
  25.         Mailmsg.Attachments.Add(mail_attachment)

  27.         ' 將字串裡的;分為多個收件人
  28.         For Each MA As String In To_Address.Split(";")
  29.             Mailmsg.To.Add(New Net.Mail.MailAddress(MA, "[email protected]"))
  30.         Next

  32.         ' 密件副本收件人
  33.         ' Mailmsg.Bcc.Add(New Net.Mail.MailAddress("[email protected]"))
  34.         ' Mailmsg.Priority = Net.Mail.MailPriority.Normal

  36.         ' Smtp(Server) 的帳號與密碼
  37.         SMTP_Server.Credentials = New System.Net.NetworkCredential("Liuxxx", "123456")
  38.         SMTP_Server.Send(Mailmsg)
  39.         MessageBox.Show("Message sent.")
複製代碼
  1. 先從工具箱插入以下物件
  2. txt_watchpath           '      TextBox  (for folder path)
  3. btn_startwatch          '      Button   (start watching)
  4. btn_stop                '      Button   (stop watching)
  5. txt_folderactivity      '      Textbox  (folder activity)


  8. Imports System.IO
  9. Imports System.Diagnostics


  12. Public Class webb_000
  13.     Public watchfolder As FileSystemWatcher


  16.     Private Sub btn_startwatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_startwatch.Click

  18.         watchfolder = New System.IO.FileSystemWatcher()

  20.         'this is the path we want to monitor

  22.         watchfolder.Path = txt_watchpath.Text

  24.         'Add a list of Filter we want to specify

  26.         'make sure you use OR for each Filter as we need to

  28.         'all of those
  29.         watchfolder.IncludeSubdirectories = True '監視子目錄
  30.         watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName
  31.         watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
  32.                                    IO.NotifyFilters.FileName
  33.         watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
  34.                                    IO.NotifyFilters.Attributes
  35.         ' add the handler to each event
  36.         AddHandler watchfolder.Changed, AddressOf logchange
  37.         AddHandler watchfolder.Created, AddressOf logchange
  38.         AddHandler watchfolder.Deleted, AddressOf logchange

  40.         ' add the rename handler as the signature is different

  42.         AddHandler watchfolder.Renamed, AddressOf logrename

  44.         'Set this property to true to start watching
  45.         watchfolder.EnableRaisingEvents = True

  47.         btn_startwatch.Enabled = False
  48.         btn_stop.Enabled = True

  50.         'End of code for btn_start_click
  51.     End Sub

  53.     Private Sub txt_folderactivity_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_folderactivity.TextChanged
  54.     End Sub
  55.     Private Sub logchange(ByVal source As Object, ByVal e As  _
  56.                      System.IO.FileSystemEventArgs)
  57.         If e.ChangeType = IO.WatcherChangeTypes.Changed Then
  58.             txt_folderactivity.Text &= "File " & e.FullPath & _
  59.                                     "已修改" & Now & vbCrLf
  60.         End If
  61.         If e.ChangeType = IO.WatcherChangeTypes.Created Then
  62.             txt_folderactivity.Text &= "File " & e.FullPath & _
  63.                                      " has been created已建立" & Now & vbCrLf
  64.         End If
  65.         If e.ChangeType = IO.WatcherChangeTypes.Deleted Then
  66.             txt_folderactivity.Text &= "File " & e.FullPath & _
  67.                                     " 已刪除" & Now & vbCrLf    'Now 就是目前日期時間
  68.         End If
  69.     End Sub


  72.     Public Sub logrename(ByVal source As Object, ByVal e As  _
  73.                                 System.IO.RenamedEventArgs)
  74.         txt_folderactivity.Text &= "File" & e.OldName & _
  75.                       " has been renamed to 已更名為" & e.Name & vbCrLf
  76.     End Sub
  77.     Private Sub btn_stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_stop.Click
  78.         ' Stop watching the folder

  80.         watchfolder.EnableRaisingEvents = False
  81.         btn_startwatch.Enabled = True
  82.         btn_stop.Enabled = False
  83.     End Sub
  84. End Class
複製代碼
收藏 分享

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題