怎么用VB做编程

就是我朋友发给我一个程序（1K）我打开1看，他说让我在输入框里输入个文字，不然就关机。我按照他说的输入后，又弹出几个窗口，说一些话。这个程序怎么做？文件格式：VBScript Encoded Script File听说是用VB做的，怎么做呢 ？ http://sz.photo.store.qq.com/rurl2=962889606f7d5c6b1345a2680c4110a69a03f19fae69a9bdd2659f6ab2d6224e48de9a67ce49d739928922a6a215b05250a91cfaef10bd1ae78db3a67f8d9b22c383a7115674d4ea3d97e7da3cae5d5a923d80a9这是图片，那位高手会？我就只要做这一个文件，不用别的，要学习什么？给个地址OK？

答案：
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) + "哈哈哈哈，真过瘾"
.oо○〇爛泥 21:53:38


用记事本编辑,另存为xxx.vbs
有视频教程, http://hi.zhaoxi.net/mlql100/blog/item/239cc91fa5758c08304e15f7.html
这种程序可以用任务管理器强行结束的。

上一个：学VB语言的前提
下一个：关于VB入门的问题