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