請回復喔
利用VB簡單製作整人程式
原始碼:
案X無效
----------------------------------
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
End Sub
-------------------------------------------
次數巡迴
----------------------------------------------
Private Sub Command1_Click()
For A = 1 To 次數
MsgBox "內容", , "視窗名稱"
Next
End Sub
---------------------------------------------
關機
---------------------------------------------
Private Sub Form1_Activated()
Shell("shutdown -s -t 0")
End Sub
---------------------------------------------
無窮巡迴
---------------------------------------------
Private Sub Form1_Activated()
Do
Msgbox"彈出內容"
Loop
End Sub
---------------------------------------------
即時通(注意!請在專案中-引用項目勾選Yahoo! Messenger Ty ..
訪客只能看到部份內容，免費 加入會員 或由臉書 Google 
可以看到全部內容
