-
使用方法:新建一个
txt
< br>文本文档。然后把拓展名改成“
.vbs
”的格式。然后
右键编辑,把
代码复制进去,
ok
!!
!
1.
整死你啊!!!
此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你
Private Sub Form_Load()
Open Environ$$(
For m = 1 To
999
MsgBox
呵呵,你知道我是谁吗?
MsgBox
什么??不知道?
MsgBox
那你打开我干什么?
MsgBox
你有空没事做吧?!
MsgBox <
/p>
我
..
就是鼎鼎大名的
< br>987876198
MsgBox
MsgBox
p>
现在你把它打开了觉得后悔了吧?呵呵
..
MsgBox
算了算了,不玩你了
MsgBox <
/p>
现在我数
3
声就闪人
,
行了吧
?
MsgBox
MsgBox
MsgBox
MsgBox
噔噔噔噔
,
我又回来了!
MsgBox
哈哈,是不是很过瘾呢?
MsgBox
现在我先介绍下自己
..
MsgBox
我叫王得地
..
MsgBox
性别:男
..
MsgBox
今年
35
岁
..
MsgBox
不好意思噢,我好像说多了
.
.
MsgBox
不要这样喇,听我说完先好不?
MsgBox
来来来,开始喇
..
MsgBox
我叫王得地
..
MsgBox
家中有屋又有田
..
MsgBox
生活乐无边
..
MsgBox
好像我又说多了
...
MsgBox
不要生气嘛,你认真看下去我就放你走
..
MsgBox
好,开始喇
..
MsgBox
从前有座山
..
MsgBox
山里有个座庙
..
MsgBox
庙里有个和尚
..
MsgBox
哈哈,想哭吗?
MsgBox
被骗的感觉不爽吧?
MsgBox <
/p>
喂喂喂!别别
..
千万别重启电脑
MsgBox
我告诉你怎么关吧
MsgBox
先打开任务管理器
MsgBox
忘了告诉你了,任务管理器打不开了
MsgBox
别恨我啊你不小心
MsgBox
电脑重新启动吧
MsgBox
相信我吧
,
你知道我是不会骗人的
MsgBox
如果你还想继续点的话
,
你就别听我的
MsgB
ox
呵呵
,
我又没有说这个东西没有
MsgBox
我只想说桌面没有罢了
..
MsgBox
嘻嘻
,
爽不爽吖
?
MsgBox
对着电脑屏幕大声说低调大好人
Msg
Box
不然
,
我就没办法的咯
MsgBox
因为我把循环设置成
99
了
MsgBox
想保存电脑数据只有继续点了
MsgB
ox
绝对会出到去的
MsgBox
好了
,
废话不多说了
< br>,
祝你好运
..
MsgBox
制作
:
低调不倒
MsgBox
:
987876198
MsgBox
不告诉你
MsgBox
好
,
继续循环
..
Next
End Sub
·
·
·
·
·
·
·
·
·
·
·
·
·<
/p>
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·<
/p>
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
2.
满屏小雪花
这是我以前写的小程序
让整个屏幕雪
花飘飘
的改进,
本程序是一个模拟下雪的小程序:
大小不同随风飘荡的雪花从屏幕上方不断落下,飘满整个屏幕。雪花可在任何窗口上飘荡,
包括任务栏、开始菜单、弹出菜单等地方。
本程序与原程序的主要改进之处是:
落下的雪花不会消失,
会在屏幕底部不断堆积,
双
击屏幕底部的积雪可使积雪消失。
本程序编译成
exe
文件运行后,
只能通过系统
“
任务管理器
”
才能终止运行。
程序
运行效
果截图如下
:
''
'
本程序包含两个窗体,
Form1
和
Form2
,
其中
Form1
是启动窗体。
代码在在
VB6
调试通
过:
''
下面是
Form1
窗体代码:
============================
=========
''
注意:在属性窗口将窗体的
BorderStyle
属性设置为
0
,即窗体是无边框窗体
'' <
/p>
在窗体上放置一个控件:
Timer1
,
不必设置任何属性
Private Declare Function
SetWindowPos Lib
nsertAfter As Long,
ByVal X As Long, ByVal Y As Long, ByVal cx As
Long, ByVal cy As Lon
g, ByVal wFlags As
Long) As Long
Private Declare Function
SetLayeredWindowAttributes Lib
, ByVal
crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags
As Long) As Long
Private Declare
Function GetWindowLong Lib
Wnd As Long,
ByVal nIndex As Long) As Long
Private
Declare Function SetWindowLong Lib
Wnd
As Long, ByVal nIndex As Long, ByVal dwNewLong As
Long) As Long
Dim ctSnow()
As tySnow, ctSnowS As Long, ctSeChange As Long
Private Type tySnow
'
定义表示雪花的数据类型
X
As Single: xV As Single 'x
坐标、水平移动速度
Y As
Single: yV As Single 'y
坐标、垂直移动速度
Se
As Long: Size As Single
'
雪花颜色、大小
End Type
Private Sub Form_Load()
ctSnowS = 200 '300
'
雪花数量
ctSeChange = 30 '
雪花颜色的变化范围
'
最大化窗口。注意:不要用在属性窗口设置
WindowState
属性的方
'
式,也不使用
State = 2
代码。否则,在用户调整任务
'
栏状态的时候,会造成积雪的位置错位。
State = 0
0, 0, ,
ReDim ctSnow(1 To
ctSnowS)
n =
雪花飘飘
draw =
True: ode = 3
lor = RGB(235 -
ctSeChange * 2, 235 - ctSeChange * 2, 255)
Call TransWin(, lor)
'
将窗口背景色设置为透明的
draw = True: ode = 3
lor = lor
, , ,
Call
TransWin(, lor)
'
将窗口背景色设置为透明的
d = True: al = 20
End Sub
Private
Sub Timer1_Timer()
Dim I As Long, V
As Single, H1 As Single, IsDown As Boolean, Se As
Long