最简单的vbs整人代码?如何制作vbs弹窗无限循环
本文目录
- 最简单的vbs整人代码
- 如何制作vbs弹窗无限循环
- 有什么在QQ聊天中用的vbs整人代码
- 求高手讲解一下怎么设置整人用的vbs, 还有怎么将代码输入进文档里
- VBS整人代码
- vbs整人代码
- vbs整人代码怎么用 求详细
最简单的vbs整人代码
简单的vbs整人代码其实有很多,下面就简单给大家介绍几个吧!
1、打开好友的聊天对话框,然后记下QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可)。
2、打开无数个计算器,直到死机。
3、电脑直接关机。
4、删除D:\所有文件 。
5、不断弹出窗口 。
6、不断按下alt+f4 (开什么都关闭……) 。
7、按500次回车(以下代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)。
如何制作vbs弹窗无限循环
1、首先右键单击,然后在弹出的对话框中选择新建文本文档。
2、把文件名改成。整人。然后双击打开文件。
3、输入无限循环命令:do loop,(这个文字有点小,我给大家放大一些。这样能看得更清楚。)
4、然后在循环命令之间输入:msgboX“想关闭我吗?“
5、输入完成后,单击关闭。然后选择保存。
6、文件的最后座缀改成 .vbs 按下回车键确定。然后在弹出的对话框中选择是。
7、双击打开文件整人,他就会无限弹窗。无论是鼠标还是键盘?都关闭不了弹窗。
有什么在QQ聊天中用的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
求高手讲解一下怎么设置整人用的vbs, 还有怎么将代码输入进文档里
建议你不懂vbs的话还是少碰为好,(最起码你要学会基础)。记事本和word的话负责进去就OK了
word是无法vbs的,vbs是用记事本的后缀名是vbs就可以了。整人的话你就要想方设法把你的vbs文件放入启动文件夹里(当然也可以放到别的地方)其他就不多说了。
一般整人都会用到 do loop (死循环)or 关机代码
希望对你有用(纯手打)
VBS整人代码
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell“)
WSHshellA.run “cmd.exe /c shutdown -r -t 60 -c ““说 我是大笨笨!哈哈,不说我就一分钟关你机,不信,试试···我说到做到!““ “,0 ,true
dim a
do while(a 《》 “我是大笨蛋!哈哈!我是大肥猪!“)
a = inputbox (“说 我是大笨蛋!哈哈!我是大肥猪!,我就不关你的机,快撒,说 ““我是大笨笨!哈哈““ “,“说不说“,“不说“,8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox“
loop
msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛 猪“
dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell“)
WSHshell.run “cmd.exe /c shutdown -a“,0 ,true
msgbox chr(13) + chr(13) + chr(13) + “哈哈哈哈,真过瘾 嘎嘎.爽歪歪啊 “
vbs整人代码
把下面的代码输到文本文档里,然后保存为后缀名为“vbs”的文件
dim a,ctr
ctr=0
const pass=“是“
do while ctr《100
a=inputbox(“你是猪吗?“)
if a=pass then
msgbox “good“
exit do
else
ctr=ctr+1 ’如果密码出错就增加一次错误认证计数
msgbox “错,你是猪!“
end if
loop
注:千万不要一下子复制,要一行一行地复制
接下来你新建一个文件夹,再弄一个快捷方式把原来的文件隐藏,现在的快捷方式点击鼠标右键-属性-更改图标,然后找一个容易让人上当的图标,再把文件夹压缩就可以发给qq好友了(嘻嘻,我就是这样整的)
vbs整人代码怎么用 求详细
新建一个TXT文件,打开,把整人代码放进去,保存。然后把文件扩展名改成VBS,运行,就能整人了
没整过啊!不知道这个!
新建一个TXT文件,打开,把整人代码放进去,保存。然后把文件扩展名改成.VBS,运行,就能整人了 记住.点 不能丢
更多文章:
惠普无线打印机wifi设置(惠普打印机怎么连接无线wifi)
2024年9月17日 15:00
华硕ux21(华硕ux21笔记本闪退,要插着电才能用是怎么回事,要怎么解决,急求)
2024年3月11日 03:10
为什么dell外星人服务安装失败(Dell笔记本安装失败无法启动报警)
2024年7月12日 21:29
常州联想专卖店(常州哪里有的卖联想Y450—TSI(H)的)
2023年12月14日 20:20
笔记本充电接口坏了要修多少钱(戴尔电脑的充电口坏了换一个多少钱)
2024年7月16日 05:22
华硕z99s升级(华硕Z99S系列, T 5470、1G DDR2 667内存、128独显,请高手给个升级方案,谢谢)
2024年9月10日 00:50
thinkpad中关村报价(ThinkPad SL400系列的电脑好吗现在中关村报价大概是多少)
2024年9月13日 05:30
赞洋k8笔记本官网(某宝新出的赞洋K8笔记本,它的处理器是英特尔十代四核心CPU J4125 这个配置值得买吗)
2024年7月18日 17:23
nec12寸笔记本电脑优缺点(在淘宝花了420买的二手的nec12寸的笔记本电脑, 个人用来办公用的,就是作图做表格用的,不知道)
2024年7月10日 15:08
三星平板怎么恢复出厂设置(如果三星平板忘记PIN密码又不能恢复出厂设置怎么办)
2024年7月18日 08:21
华硕x201e怎样升级变快(华硕笔记本x201e系统wd7开机慢怎么办)
2024年7月18日 08:26
戴尔vostro3400笔记本价格(推荐一款笔记本 能做设计用的)
2024年3月7日 09:25