禁止锁屏vbs脚本

thinking23

已于 2023-12-27 09:01:25 修改

阅读量679

点赞数

文章标签：开发语言编辑器

于 2022-08-02 11:16:22 首次发布

本文链接：https://blog.csdn.net/zhuan14/article/details/126118572

版权

'判断是否重复打开本软件
strComputer="."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name = 'wscript.exe'")
firstFileStart = False
For Each objProcess in colProcessList 
    if split(objProcess.CommandLine,"""")(3) = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).Path Then
        if firstFileStart Then
            MsgBox "本程序已经在运行。"
            wscript.quit
        End If
    End If
    firstFileStart = True
Next

'先定义一个Shell对象
Set wshShell = WScript.CreateObject("WScript.Shell")

'循环按按键
do
    WScript.Sleep 30000
    wshShell.SendKeys "{ScrollLock}"
    WScript.Sleep 50
    wshShell.SendKeys "{ScrollLock}"
loop