大家好,小联来为大家解答以上的问题。vbs恶搞整人代码，vbs整人代码qq刷屏这个很多人还不知道,现在让我们一起来看看吧！

1、On Error Resume NextDim wsh,yeset wsh=createobject("***.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与 xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit。

本文到此分享完毕，希望对大家有所帮助。