• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

access:api使用集锦

记载windows使用的时间

　　有时候你需要记下每次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

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范