請程式設計的高手幫忙一下~

Question

我想請問一下有沒有辦法將以下的程式改成10秒到了之後自動關機~~~
不是只有顯示自動關機喔~是整個系統關機~
程式壓縮:http://sgukion.myweb.hinet.net/Project1.rar

Dim second As Integer
Private Sub form_load()
Text1.Text = \"\"
second = 10
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
second = second - 1
If second < 0 Then
second = 0
Timer1.Enabled = False
MsgBox \"BOMB!!!BOMB!!!BOMB!!!\", , \"視窗以毀滅\"
End
End If

If Text1.Text = \"1234\" Then
MsgBox \"你已解除炸彈\", , \"歡迎登入系統\"
End
Else
If Text1.Text <> \"\" Then
Label4.Caption = \"密碼錯誤!!!\"
Else
Label4.Caption = \"請於 \" & second & \" 秒內輸入正確的密碼...\"
End If
End If

Label2.Caption = Str(second)

End Sub

Answer 1

方法很簡單...
來信再跟你說.....
公佈出來我覺得有點危險

2006-07-19 09:06:41 補充：
或是利用MSN or 即時通找我都可以

2006-07-19 11:46:41 補充：
用Shell........言盡於此~~該說的也都說了 @@你可以再多Try幾種不同的方式去使用我說的那個....樂趣無窮啊 不過不能拿來害人 XD

Answer 2

關機而已... 會很危險嗎？而且類似問題之前問過好多次囉～～