VBs大家应该都会的吧（不会的百度去）
属于脚本程序
可以利用.txt来编辑
代码和VB差不多
但有一定区别
新建一个文本文档
把后缀改成 .vbs
右键
点击“编辑”
即可进入代码编写环节
下面是代码
大家可以自己改进
（原创）
请输入描述
原件及代码.zip (2 K) 下载次数:3 Dim X,Y
X = "输入‘我是猪’，否则，哼哼。。。(不加引号，不输或输错，后果自负！！2333)"
Y = Inputbox (X)
If Y = "我是猪" then
Msgbox "真乖",,"不错"
Msgbox "右键这个程序后点编辑就可以看到我啦 *^v^* 如果不幸输错的话，，可以按下 Ctrl+Shift+Esc （任务管理器）后，结束一个叫做‘WScript.exe’的进程，再见",,"真乖"
Else
X = "快输！！你最后一次机会！"
Y = Inputbox (X)
If Y = "我是猪" Then
X = 10000
do
X = X - 1
Msgbox "你不乖了！！" & X ,,"哈哈哈"
loop until X = 9990
msgbox "看在你还是输了的份上，我就免了你的罪吧",,"赦免令"
msgbox "ヾ(￣▽￣)Bye~Bye~",,"baibai"
Else
do
Msgbox "教你不输，哼~~233333333333333333333",16,"大SB"
loop
End If
End If可以通过结束任务管理器里的“
WScript.exe”来结束这个进程
链接：改后缀（方法其实差不多）
win xp：http://jingyan.baidu.com/article/f0062228fb0e9ffbd3f0c8f0.html
win 8 ：http://jingyan.baidu.com/article/77b8dc7fc884606175eab65e.html
win 7 ：http://jingyan.baidu.com/article/3c48dd3465fa6be10be358d1.html
初次发帖，请多关照
如有不足，自行改良
Thank you.
