怎样用Applescript编写QQ消息轰炸的代码?

怎样用Applescript编写QQ消息轰炸的代码?

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

WshShell.AppActivate ""

for i=1 to 10

WScript.Sleep 500

WshShell.SendKeys "^v"

WshShell.SendKeys i

WshShell.SendKeys "%s"

next