窗口大小改为200×100
时间: 2023-08-07 18:07:07 浏览: 75
要将 VBS 运行界面的窗口大小改为 200×100,您可以在 VBS 脚本中添加相应的代码来调整窗口大小。以下是一个示例脚本:
```vbscript
Set objShell = CreateObject("WScript.Shell")
' 创建并设置运行界面窗口
Set objWnd = objShell.Exec("mshta.exe ""about:<title>运行中</title><body bgcolor=white><center><h1>运行中...</h1><p>关闭此窗口即可退出脚本。</p></center><script>window.resizeTo(200,100);window.moveTo((screen.width-200)/2,(screen.height-100)/2);</script>""")
' 模拟按下NUMLOCK按键
Do
objShell.SendKeys "{NUMLOCK}"
' 在此添加您希望执行的其他操作
WScript.Sleep 1000 ' 延迟1秒钟
Loop While objWnd.Status = 0 ' 当窗口关闭时退出循环
' 退出脚本
WScript.Quit
```
在上面的代码中,`window.resizeTo(200,100)` 用于设置窗口大小为 200×100 像素,`window.moveTo((screen.width-200)/2,(screen.height-100)/2)` 用于将窗口居中显示在屏幕上。
将以上代码保存为一个以 ".vbs" 结尾的文件,例如 "simulate_numlock.vbs",然后双击运行该脚本时,会打开一个大小为 200×100 的界面,并模拟按下 NUMLOCK 按键。
希望这对你有所帮助!如果还有其他问题,请随时提问。
阅读全文