调用当前屏幕保护程序

请问，如何使用shell或其他方法调用当前WIN系统设置的，屏幕保护程序。 问题点数：20、回复次数：2Top

1 楼laviewpbt（人一定要靠自己）回复于 2005-01-08 11:11:08 得分 20

 
  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  
   
  Top

2 楼xinliangyu（yxl）回复于 2005-01-08 11:11:22 得分 0

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  
  Const   WM_SYSCOMMAND   =   &H112  
  Const   SC_SCREENSAVE   =   &HF140&  
   
  SendMessage   Me.hwnd,   WM_SYSCOMMAND,   SC_SCREENSAVE,   0  
  Top

相关问题

• 屏幕
• 调用
• syscommand
• screensave
• sendmessage
• byval
• sc
• wm
• hwnd
• as long

• 帖主：kewy
• laviewpbt

• Visual Basic类图书
• Visual Basic类源码下载