记载Windows使用的时间
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）有时候你需要记下每次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
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）MsgBox "Calculator没有打开！"
End If
