请回复喔
利用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 
可以看到全部内容
