set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "照芳"
for i = 1 to 33
WScript.sleep 800
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
WshShell.SendKeys "{Enter}"
Next
set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "照芳"
for i = 1 to 33
WScript.sleep 800
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
WshShell.SendKeys "{Enter}"
Next