有的人觉得api很复杂,其实如果你从比较有趣的api函数开始学习的话,就觉得api很好玩的。
下面我们在自己的程序中启动windows操作系统的屏幕保护。
利用强大的sendmessage函数发送一个wm_syscommand消息,我们就可以搞定,很简单吧。
建立一个vb6标准的exe工程,将下列代码贴入
option explicit
'声明这个sendmessage的api使用
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
'我们将要调用的那个消息,在msdn中搜索wm_syscommand就可以找到具体说明
const wm_syscommand = &h112
'这个参数指明了我们让系统启动屏幕保护
const sc_screensave = &hf140&
private sub command1_click()
sendmessage me.hwnd, wm_syscommand, sc_screensave, 0
end sub
你看是不是很有意思!
:)
本程序在win2000 + vb6中调试通过