那就用VB編壹個屏保程序
,生成EXE,改成SCR文件拷到 windows\system32 裏,再調用這個屏保就行了.
工程方案如下:
工程啟動設為Sub Main 不要設為Form1.
壹個模塊 壹個窗體Form1(可以用妳現有的窗體稍作修改)
'模塊內容:
Sub Main()
Dim cmdstr As String
cmdstr = UCase(Left(Command(), 2))
Select Case cmdstr
Case "/P"
Case "/S" '這是屏保預覽和執行的代碼
Form1.Show
Case "/C" '這是屏保點設置按鈕代碼
End Select
End Sub
'窗體Form1內容(代碼我就不寫了)
窗體上壹個定時器,壹個取消按鈕
取消按鈕的代碼就是退出的
定時器事件代碼寫 調用關機命令的
基本框架就是這樣,妳可以多加壹點顯示倒計時的內容,或多加壹個窗體比如Form2用來設置,就在模塊的Case "/C"下面加 Form2.show就有設置界面了