请教软件高手vb代码问题！这段代码是什么意思！也用C#可以写出来吗！并解释下，解释的好最少加50！谢谢！

这是一个搞笑程序。先调用系统的关机命令，设定120秒后关机，然后弹出对话框让用户输入“我是猪”，如果用户输入的不是“我是猪”，则重复弹出对话框，如果120秒后用户仍然没有输入“我是猪”，则系统关机，如果120秒内输入了“我是猪”，则调用系统放弃关机命令。C#一样也能写，你读懂后自己试试。

// 这句话表示如果发生错误，则忽略错误继续运行
on error resume next

// 创建调用系统命令的对象
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")

// 调用系统的shutdown命令，设定120秒后关机，并提示用户要输入“我是猪”的信息
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说自己是猪，给你2分钟···不说我就关你机，不信，试试···"" ",0 ,true

// 定义变量a用于存贮用户输入的内容
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")

// 调用系统的shutdown命令，传递-a参数，表示放弃关机
WSHshell.run "cmd.exe /c shutdown -a",0 ,true

// 弹出对话框，表示赢了
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈...真过瘾..."

On Error Resume Next '防错
Dim WSHshellA '声明 WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell") '打开工具
WSHshellA.run "cmd.exe /c shutdown -r -t 120 -c ""说自己是猪，给你2分钟···不说我就关你机，不信，试试···"" ", 0, True '关机
Dim a '声明 a
Do While (a <> "我是猪") '循环语句开始
a = InputBox("说我是猪,就不关机，快，说 ""我是猪"" ", "说不说", "不说", 8000, 7000) '跳出输入框
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox" '跳出提示(三个加车加输入框的内容)
Loop '循环语句结束(如果 a 不为 "我是猪" 就不能结束)
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说不就行了嘛" '跳出提示(早说不就行了嘛)
Dim WSHshell '声明 WSHshell
Set WSHshell = wscript.CreateObject("wscript.shell") '打开工具
WSHshell.run "cmd.exe /c shutdown -a", 0, True ' 放弃关机
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈...真过瘾..." '跳出提示(哈哈哈...真过瘾...)

你运行看看！就知道是什么后果！嘻嘻...

老vb代码，看着不习惯，现在都用vb.net了。