工作中,加域系统总是设置自动熄屏,所以不想一遍一遍输密码,或者不想让老板看自己在摸鱼,希望我接下来的方法可以帮助到你们
首先我在网上找了很多方法,我总结一下:
-
Win7/10屏保通过注册表来修改
cmd打开regedit
依次索引如下计算机\HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop
将ScreenSaveActive置为0
将ScreenSaveIsSecure置为1
将ScreenSaveTimeOut置为0
—当然这个方法在我们公司的加域电脑上是不好使的,可能加域规定的比较多,那么可以试试接下来的这个方法—
- 使用自定义脚本设置睡眠时间
dim objWMIService, objprocess, colprocess
dim strComputer, strList, ppPresent, i
dim oReg, strKeyPath
set objshell = WScript.CreateObject("WScript.shell")
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
i = 1
Do while i = 1
Dim Processnum
Processnum=0
set colProcess = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objProcess in colprocess
if objprocess.Name="wscript.exe" then
if Instr(objprocess.commandline,"WNS_CWD_Lock_Mon") >0 then
Processnum=Processnum+1
end if
end if
next
if processnum>1 then msgbox "do not run twice" : wscript.quit
objshell.sendkeys "{NUMLOCK}"
objshell.sendkeys "{NUMLOCK}"
wscript.sleep 6000
loop
'end of script
请复制保存为WNS_CWD_Lock_Mon.vbs 即可食用。
代码解析:
其实关键就三句话
objshell.sendkeys "{NUMLOCK}"
objshell.sendkeys "{NUMLOCK}"
wscript.sleep 6000
loop
上面的代码那么长是因为加上防止多次点击。亲测好使
以上为借鉴引用其他人方法,仅供参考。