Question

运行VBS总是提示缺少语句，代码800A0400，求大神支招

Set oShellLink = Nothingseven.Run "notepad",3WScript.Sleep 500seven.SendKeys "I"WScript.Sleep 500seven.SendKeys "L"WScript.Sleep 500seven.SendKeys "o"WScript.Sleep 500seven.SendKeys "v"WScript.Sleep 500seven.SendKeys "e"WScript.Sleep 500seven.SendKeys "Y"WScript.Sleep 500seven.SendKeys "o"WScript.Sleep 500seven.SendKeys "u"End Subse_key = (MsgBox("不要生气啦! " ,4, "Seven_下午"&Time))If se_key=6 ThenCall ak47Elseseven.Run "shutdown.exe -s -t 200"agn=(MsgBox ("再给个机会啦,求求你了!" ,52, "提示"))If agn=6 Thenseven.Run "shutdown.exe -a"MsgBox "baby，你最好了" ,52, "么么"WScript.Sleep 500Call ak47EsleMsgBox "爱你哟!" ,48, "卧槽"End IfEnd If

Answer 1

图片中第19行多了句end sub 这是过程的结束语句 我看你代码并没有过程