您现在正在浏览：站长之家 >> 数据库 >> 详细内容

Access:API使用集锦

时间:2007-12-23 来源:不详作者:迈克DB

　　有时候你需要记下每次 Windows开启和关闭的时间，下面这个小程序就可以完成这个功能，你可以把它放在 Windows开始菜单的“启动”文件夹里面，这样当你进入 Windows时，这个小程序就会自动启动（不可见），并在你指定的文件中写下当时的时间，在你推出 Windows系统时，小程序会关闭并记下离开的时间，并关闭记录文件。

织梦好，好织梦

本文来自织梦

Private Sub Form_Load()

Left = -10000

Top = -10000

Open "c:\apps\log.txt" For Append As #1

Print #1, "On: " & CStr(Now)

Close #1

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open "c:\apps\log.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

dedecms.com