VB容易操作

VB简单操作
1.
@echo off
echo 开始......
echo 打开程序
start ./UpdateMouseType.vbs
ping 1.1.1.1 -n 1 -w 1500>NUL
echo. & exit

2.
Dim Wsh

Set Wsh = WScript.CreateObject("WScript.Shell")

WScript.Sleep(2000)

Wsh.SendKeys "^{ESC}"
WScript.Sleep(100)

Wsh.SendKeys "{s}"
WScript.Sleep(100)

Wsh.SendKeys "{c}"
WScript.Sleep(300)
  
Wsh.SendKeys "{TAB}"
WScript.Sleep(300)

Wsh.SendKeys "{TAB}"
WScript.Sleep(300)
  
Wsh.SendKeys "{down}"
WScript.Sleep(300)
  
Wsh.SendKeys "{Enter}"
WScript.Sleep(300)

Wsh.SendKeys "{S}"
WScript.Sleep(300)

Wsh.SendKeys "{A}"
WScript.Sleep(300)

Wsh.SendKeys "{Enter}"
WScript.Sleep(300)

Wsh.SendKeys "%{F4}"
WScript.Sleep(200)
  
Set Wsh=NoThing
  
WScript.quit