記載Windows使用的時間
有時候你需要記下每次Windows開啟和關閉的時間，下面這個小程序就可以完成這個功能，你可以把它放在Windows開始菜單的“啟動”文件夾裡面，這樣當你進入Windows時，這個小程序就會自動啟動（不可見），並在你指定的文件中寫下當時的時間，在你推出Windows系統時，小程序會關閉並記下離開的時間，並關閉記錄文件。
Private Sub Form_Load()
Left = -10000
Top = -10000
Open "c:appslog.txt" For Append As #1
Print #1, "On: " & CStr(Now)
Close #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "c:appslog.txt" For Append As #1
Print #1, "Off:" & CStr(Now)
Close #1
End
End Sub
怎樣關閉一個正在運行的程序
你可以使用API函數FindWindow和PostMessage去尋找指定的窗口，並關閉它。下面的例子教給你怎樣找到並關掉一個Caption為“Caluclator”的程序。
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "置入消息錯誤！"
End If
Else
MsgBox "Calculator沒有打開！"
End If
