模拟鼠标点击的vbs代码

以下是模拟鼠标点击的vbs代码：

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "calc.exe" '打开计算器
WScript.Sleep 500 '等待500毫秒
WshShell.AppActivate "Calculator" '激活计算器窗口
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "1" '输入数字1
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "{ADD}" '输入"+"号
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "2" '输入数字2
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "{ENTER}" '按下"Enter"键
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "^c" '按下"Ctrl+C"键
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "%{F4}" '按下"Alt+F4"键，关闭计算器
WScript.Sleep 500 '等待500毫秒
WshShell.Run "notepad.exe" '打开记事本
WScript.Sleep 500 '等待500毫秒
WshShell.AppActivate "Untitled - Notepad" '激活记事本窗口
WScript.Sleep 500 '等待500毫秒
WshShell.SendKeys "^v" '按下"Ctrl+V"键，将计算结果粘贴到记事本中
WScript.Sleep 500 '等待500毫秒

以上代码打开计算器，输入数字1+2，按下Enter键，将结果复制到剪贴板，关闭计算器，打开记事本，将结果粘贴到记事本中。