本文介绍了使用VBScript编写屏保的方法。包括设置应用程序标题、编译时使用.SCR扩展名、将编译代码放置在指定目录，还提到检查前一个实例、检查命令行开关，以及告知Windows屏保运行和结束的操作，还给出了更多信息的参考网址。
如何编写屏保
关键词：VBScript
The basic requirements for creating a screen saver are:
In the properties for your application set the title to:
SCRNSAVE: name
The ’name’ part will appear on the list of available screen savers in the control panel. Note that this is not the title of the form, it is the application title and must be set in the project properties.
When you compile the program use .SCR for the extension instead of .EXE as normal. Place the compiled code in the Windows/System directory (it can also go in Windows, but System is preferred)
When your application starts check for a previous instance and stop if one is found:
Sub Form_Load()
If App.PrevInstance Then
Unload Me ’ NEVER use END!
Exit Sub
End If
End Sub
Check the command line for switches:
/s setup mode - display/update configuration options only
/p nnn preview mode - "nnn" is a handle to the preview window
/a password support check
If the screen saver is to run normally use the following to tell Windows that you are taking over as a screen saver (this will disable ALT-TAB and CTRL-ALT-DEL and prevent more instances from being started):
Private Const SPI_SCREENSAVERRUNNING=97
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, _
ByVal fuWinIni As Long) As Long
SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, ByVal 1&, False
Before your code terminates tell Windows you are leaving with:
SystemParametersInfo SPI_SCREENSAVERRUNNING, 0, ByVal 1&, False
For more information, including sample code that handles password protected screen savers check http://www.arcatapet.com/vb.html or http://www.tiac.net/users/lvasseur/
关键词：VBScript
The basic requirements for creating a screen saver are:
In the properties for your application set the title to:
SCRNSAVE: name
The ’name’ part will appear on the list of available screen savers in the control panel. Note that this is not the title of the form, it is the application title and must be set in the project properties.
When you compile the program use .SCR for the extension instead of .EXE as normal. Place the compiled code in the Windows/System directory (it can also go in Windows, but System is preferred)
When your application starts check for a previous instance and stop if one is found:
Sub Form_Load()
If App.PrevInstance Then
Unload Me ’ NEVER use END!
Exit Sub
End If
End Sub
Check the command line for switches:
/s setup mode - display/update configuration options only
/p nnn preview mode - "nnn" is a handle to the preview window
/a password support check
If the screen saver is to run normally use the following to tell Windows that you are taking over as a screen saver (this will disable ALT-TAB and CTRL-ALT-DEL and prevent more instances from being started):
Private Const SPI_SCREENSAVERRUNNING=97
Private Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
ByVal uParam As Long, lpvParam As Any, _
ByVal fuWinIni As Long) As Long
SystemParametersInfo SPI_SCREENSAVERRUNNING, 1, ByVal 1&, False
Before your code terminates tell Windows you are leaving with:
SystemParametersInfo SPI_SCREENSAVERRUNNING, 0, ByVal 1&, False
For more information, including sample code that handles password protected screen savers check http://www.arcatapet.com/vb.html or http://www.tiac.net/users/lvasseur/
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
