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键，将结果复制到剪贴板，关闭计算器，打开记事本，将结果粘贴到记事本中。