VB簡易整人程式

Home Home

引用 | 編輯 mss
2011-06-12 20:05

樓主
▼

請回復喔
利用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 ..

訪客只能看到部份內容，免費加入會員

引用 \| 編輯 we789654321 2011-07-02 18:57	1樓 ▲ ▼
拿回去試試看XDDD 謝謝! 來整一些整天玩電腦的人 x0

引用 \| 編輯 a339981 2011-07-02 20:09	2樓 ▲ ▼
這個感覺不錯收藏起來用 x0

引用 \| 編輯真.血殺 2011-07-02 20:59	3樓 ▲ ▼
謝謝您的教學喔^^ x0

引用 \| 編輯啊條o 2011-07-06 09:37	4樓 ▲ ▼
隱藏滑鼠就利害了= = x0

引用 \| 編輯 bgog2757 2011-07-07 02:45	5樓 ▲ ▼
隱藏滑鼠看到就心動啦 x0

引用 \| 編輯謝榮昌 2011-07-10 19:03	6樓 ▲ ▼
感覺好像不錯.不知如何應用 x0

引用 \| 編輯 sammhank 2011-07-16 17:24	7樓 ▲ ▼
一定很好玩拿去試試看謝謝大大的分享 x0

引用 \| 編輯賽那斯 2011-08-04 16:25	8樓 ▲ ▼
這個強哈哈，拿來搞怪一下 x0

引用 \| 編輯 cxz50303 2011-08-17 10:41	9樓 ▲ ▼
這是程式還是只是教學? 如果有城市我好想要 x0

引用 \| 編輯 sc79891am 2011-08-22 17:42	10樓 ▲ ▼
沒有雅虎那個耶 x0

引用 \| 編輯 ONELONG 2011-08-29 13:42	11樓 ▲ ▼
感謝大大的無私分享 x0

引用 \| 編輯 kb041204 2012-01-07 23:16	12樓 ▲ ▼
我正想vb謝謝樓主! x0

引用 \| 編輯 zxc123456616 2012-01-27 15:35	13樓 ▲ ▼
好像玩過了~ x0

引用 \| 編輯雙子星狐狸 2012-01-31 22:56	14樓 ▲ ▼
好久好久之前有被人整過這要怎麼設定阿拿來整整別人好了~~~~ x0

引用 \| 編輯 sc79891am 2012-02-08 20:20	15樓 ▲ ▼
我怎麼找不到即時通的阿 (我有安裝) x0

引用 \| 編輯 sammhank 2012-02-27 00:20	16樓 ▲ ▼
為啥修改即時通狀態的一改調就沒了沒有會一直停留的嗎?0.0 x0

引用 \| 編輯 abc100130 2012-02-29 19:25	17樓 ▲ ▼
有隱藏滑鼠這招好神壓~~~ 謝謝你得分香 x0

引用 \| 編輯 brian821222 2012-04-08 16:36	18樓 ▲ ▼
太棒了啦!!!! 我是初學者~~大大的無私分享讓我更有動力啦!! x0

引用 \| 編輯 asdlkj123852 2012-04-26 13:53	19樓 ▲ ▼
他的功能是必須當事者開起才有用嗎還是由我這控制此檔案的開關 x0

引用 \| 編輯 sc79891am 2012-05-18 20:42	20樓 ▲ ▼
急~ 為甚麼我找不到Yahoo! Messenger TypeLib阿 x0

引用 \| 編輯 liyang2009 2012-05-24 19:25	21樓 ▲ ▼
谢谢大大教学 x0

引用 \| 編輯 mychat09087 2012-05-24 19:37	22樓 ▲ ▼
若是啟動了，那麼怎樣還原呢？不能的話就不敢下了…… x0

引用 \| 編輯 adi37545vfg 2012-06-28 17:17	23樓 ▲ ▼
我要拿去整別人呵呵隱藏滑鼠有嗄用0.0~ x0

引用 \| 編輯 4512345 2012-07-21 19:02	24樓 ▲ ▼
沒程式...... x0

引用 \| 編輯 A2737612 2013-01-02 10:30	25樓 ▲ ▼
隱藏滑鼠，神哦，拿去收藏了 x0

引用 \| 編輯劉沛涵 2013-02-07 20:24	26樓 ▲ ▼
隱藏滑鼠好像第一次看到 x0

引用 \| 編輯 li951739257 2013-02-22 20:40	27樓 ▲ ▼
謝謝你的教程拿來整人不錯 x0

引用 \| 編輯 racky1224 2013-03-16 15:36	28樓 ▲ ▼
這個好有點可怕耶XDD x0

引用 \| 編輯 iamboss123 2014-01-12 14:32	29樓 ▲
拿來整同學哈哈 x0