投稿日	： 2002/09/10(Tue) 10:59
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： WindowsXPでスクリーンセーバーを起動

Windows98 ではスクリーンセーバーを起動する事が出来るのですが
WindowsXP では同じ操作では起動できません。

ある方から下記のようなメールを頂いたのですが、試して見てもやはり起動
しませんでした。

>XP では起動しませんってのとこですが，
>SendMessage(GetDesktopWindow(), WM_SYSCOMMAND, SC_SCREENSAVE, NULL);
>にてちゃんと起動します．


Option Explicit

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

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_SCREENSAVE = &HF140
Private Sub Command1_Click()
    Dim Ret As Long
    Dim hwnd As Long
    
    hwnd = GetDesktopWindow
    Ret = SendMessage(hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, ByVal vbNullString)
End Sub

どなたかWindowsXPでスクリーンセーバーを起動する方法をご存知の方
教えて頂けないでしょうか？

★ - WindowsXPでスクリーンセーバーを起動 - 花ちゃん 09/10-10:59No.502
• Re: WindowsXPでスクリーンセーバーを起動 - とろ 09/10-11:49 No.505
• Re: WindowsXPでスクリーンセーバーを起動 - K.J.K. 09/10-13:03 No.508
  • Re^2: WindowsXPでスクリーンセーバーを起.. - 花ちゃん 09/10-14:28 No.511
    • (解決)WindowsXPでスクリーンセーバーを起.. - 花ちゃん 09/10-23:33 No.525