如何用VB寫出整人的程式

Question

如何用VB寫出整人的程式，該怎麼寫，可以稍微的講一下嗎？比如自動關機等

Answer 1

'''''''''''''''''''''''隱藏滑鼠
Module Modulevariable
Declare Function ShowCursor Lib "user32" (ByVal bShow As Integer) As Integer
End Module

Private Sub Form1_Activated()
Call ShowCursor(False)
End Sub

'''''''''''''''''''''''''''''''關機
Private Sub Form1_Activated()
Shell("shutdown -s -t 0")
End Sub

2006-07-27 23:41:43 補充：
'''''''''''''''''''''''''''''''''無窮迴圈(0)Private Sub Form1_Activated() DoMsgbox"讓你按個夠"LoopEnd Sub '''''''''''''''''''''''''''''''''無窮迴圈(1)Private Sub Form1_Activated() dim i as integerfor i = 0 to 10Msgbox"讓你按個夠"i = i - 1next iEnd Sub

2006-07-27 23:42:05 補充：
'''''''''''''''''''''''''''''''''無窮迴圈(2)Private Sub Form1_Activated() dim i as integerfor i = 0 to 10 step 0Msgbox"讓你按個夠"next iEnd Sub '''''''''''''''''''''''''''''''''無窮迴圈(3)Private Sub Form1_Activated() Msgbox"讓你按個夠"Form1_Activated() End Sub

Answer 2

還有哪些cmd指令，要去哪查

Answer 3

Private Sub Form1_Activated()
Do
Msgbox"笨蛋"
Loop
End Sub '無窮迴圈

2006-07-15 14:53:53 補充：
Private Sub Form1_Activated() Yr:Msgbox"笨蛋"goto YrEnd Sub '也是無窮迴圈

Answer 4

60秒後重新開機

shell "tsshutdn"

==========================

cmd 指令大全

開始-執行指令大全
explorer-------開啟檔案總管
logoff---------登出指令 tsshutdn-------60秒倒計時關機指令