#隐藏鼠标指针的VB脚本

Question

#隐藏鼠标指针的VB脚本
#在网上搜的资料：但实际跑不起来。请大神指导。
“以下是隐藏鼠标的VB脚本代码：

Set objShell = CreateObject("WScript.Shell")
' 隐藏鼠标
objShell.SendKeys("{ESC}")
objShell.Run "rundll32.exe user32.dll,ShowCursor FALSE"
' 显示鼠标
' objShell.Run "rundll32.exe user32.dll,ShowCursor TRUE"

请注意，在代码中，隐藏鼠标和显示鼠标都有对应的代码。你可以根据需要将它们注释掉或取消注释。”

Answer 1

以下是VBScript代码，可以隐藏鼠标指针：

Set objShell = CreateObject("WScript.Shell")
objShell.Run "rundll32.exe user32.dll,ShowCursor 0", 0, True

这段代码使用WScript.Shell对象的Run方法运行rundll32.exe命令，该命令会调用user32.dll中的ShowCursor函数将鼠标指针隐藏。函数的参数0表示隐藏鼠标指针，非0的值表示显示鼠标指针。该命令的第二个参数0表示隐藏窗口，第三个参数True表示等待命令执行完成后再继续执行脚本。如果第三个参数为False，则不等待命令执行完成即立即继续执行脚本。