魚骨頭的雲端圖書館 - Powered by Discuz! Board

Public Class Form1
' -----------------------------------
' 宣告路徑及檔名。
' 也可將路徑及檔名存在 ini 檔。
' 程式啟動時再讀進來。
' -----------------------------------
Dim obs_path As String = "c:\temp"
Dim obs_filename As String = "shutdown.txt"
Dim obs_fullname As String = obs_path + "\" + obs_filename
' -----------------------------------
Private Sub Form1_FormClosing(ByVal sender As Object, _
ByVal e As System.Windows.Forms.FormClosingEventArgs) _
Handles Me.FormClosing
' 程式結束時消滅 TrayIcon
NotifyIcon1.Dispose()
Me.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Try
' --------------------------------
' 程式一開始先砍掉監控的檔案。
' --------------------------------
My.Computer.FileSystem.DeleteFile(obs_fullname)
Catch ex As Exception
End Try
' -----------------------------------
' 指定要監控的路徑和檔名。
' -----------------------------------
Try
FileSystemWatcher1.Path = obs_path
FileSystemWatcher1.Filter = obs_filename
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
' -----------------------------------
' 程式載入後隱藏畫面。
' 測試時可先將下列 3 行 mark 起來。
' -----------------------------------
Me.ShowInTaskbar = False
Me.WindowState = FormWindowState.Minimized
Me.Visible = False
' -----------------------------------
End Sub
Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, _
ByVal e As System.IO.FileSystemEventArgs) _
Handles FileSystemWatcher1.Changed
' -----------------------------------
' 當您指定的檔案被塞入受監控的位置。
' 會引發 FileSystemWatcher1_Changed
' e.Name 就是引發此事件的檔案名稱。
' -----------------------------------
If e.Name = obs_filename Then
Try
' --------------------------------
' 關機前先砍掉監控的檔案。
' --------------------------------
My.Computer.FileSystem.DeleteFile(obs_fullname)
Application.DoEvents()
' /t 後面的數字代表幾秒後開始關機。
Shell("shutdown /s /f /t 0")
Catch ex As Exception
End Try
End If
End Sub
End Class

複製代碼