请问各位，这个文件为什么报错啊

无法运行。
错误原因 缺少语句
错误代码 800A0400
源 Microsoft VBScript编辑器错误
源代码
Set WshShell=WScript.CreateObject
("WScript.Shell")
WshShell.AppActivate"轰炸"
for i=1 to 30
WScript.Sleep 30WshShell.SendKeys"^v"
WshShell.SendKeys iWshShell.SendKeys"%s"
Next