以下是引用kepeng100在2006-12-30 12:36:17的发言:再问一下,怎样不让其修改控制面板了,再不就什么事都解决了吗? 禁用控制面版没一点用. 正如改屏保,你将面的右键菜单屏弊掉让我无法调出屏保选项页.但只用屏保的控件在就可以启用它. 在EXCEL中就能打开屏保(所以真正有用的是将该WINDOWS控件反注册,而控件名很少有人知道,别人即可进入相应的选项,但控件已不能用了.) 代码如下(其中红色处为时间秒): Const SPI_GETSCREENSAVETIMEOUT = 14 Const SPI_SETSCREENSAVETIMEOUT = 15 Const SPI_GETSCREENSAVEACTIVE = 16 Const SPI_SETSCREENSAVEACTIVE = 17 Const SPIF_SENDWININICHANGE = &H2 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal _ fuWinIni As Long) As Long Sub 屏保() SystemParametersInfo SPI_SETSCREENSAVETIMEOUT, 1, 0&, SPIF_SENDWININICHANGE End Sub |