vb+VBS整人代码大集合小伟哥收集.docx

vb+VBS整人代码大集合小伟哥收集.docx

《vb+VBS整人代码大集合小伟哥收集.docx》由会员分享，可在线阅读，更多相关《vb+VBS整人代码大集合小伟哥收集.docx（38页珍藏版）》请在冰豆网上搜索。

vb+VBS整人代码大集合小伟哥收集实验一（带有进度条的倒计时程序）PublicClassForm1DimtimersAsIntegerDimtempAsIntegerPrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.TickIf（ProgressBar1.Value+ProgressBar1.Maximum/timersProgressBar1.Maximum）ThenProgressBar1.Value+=ProgressBar1.Maximum/timersElseTimer1.Enabled=FalseProgressBar1.Value=ProgressBar1.MaximumMessageBox.Show（进度完成！

）EndIftemp+=1Label1.Text=temp.ToString（）EndSubPrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Loadtimers=30EndSubPrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Clicktimers=Val（InputBox（输入,请输入总时间。

30,0,0）EndSubPrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.ClickTimer1.Enabled=TrueEndSubEndClass实验二（定时器控制蝴蝶飞舞）PublicClassForm1DimtAsIntegerPrivateSubTimer1_Tick（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesTimer1.TickDimtAsBooleanIft=TrueThenPictureBox3.Image=PictureBox2.Imaget=FalseElsePictureBox3.Image=PictureBox1.Imaget=TrueEndIfSelectCasetCase0PictureBox3.Image=PictureBox1.Imaget=1Case1PictureBox3.Image=PictureBox2.Imaget=2Case2PictureBox3.Image=PictureBox1.Imaget=3Case3PictureBox3.Image=PictureBox1.Imaget=0EndSelectEndSubEndClass实验三（递推法迭代法-猴子吃桃）PublicClassForm1PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.ClickDimn,yAsIntegern=Val（TextBox1.Text）y=Val（TextBox2.Text）DimxiAsDoublexi=yTextBox3.Text=第+n.ToString（）+天的桃子为：

+y.ToString（）+个。

+vbCrLfForiAsInteger=n-1To1Step-1xi=（xi+1）*2TextBox3.Text+=第+i.ToString（）+天的桃子为：

+xi.ToString（）+个。

+vbCrLfNextEndSubEndClass实验四（加减乘除随机数题）PublicClassForm1Dimx,yAsIntegerDimiAsIntegerDimsumAsIntegerPrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.ClickIf（Label1.Text）ThenTextBox2.Text+=Label1.Text+TextBox1.TextTextBox2.Text+=结果If（sum=Val（TextBox1.Text）ThenTextBox2.Text+=+vbCrLfElseTextBox2.Text+=+vbCrLfEndIfEndIfRandomize（）x=Int（Rnd（）*999+1）y=Int（Rnd（）*999+1）i=Int（Rnd（）*4+1）SelectCaseiCase1Label1.Text=x.ToString（）+y.ToString（）+sum=x+yCase2Label1.Text=x.ToString（）+y.ToString（）+sum=x-yCase3Label1.Text=x.ToString（）+y.ToString（）+sum=x*yCase4Label1.Text=x.ToString（）+y.ToString（）+sum=x/yEndSelectEndSubEndClassVB实现按钮浮动效果关于浮动按钮的实现思路不少，多是采取多图片重叠显示来实现。

这种方法代码量多，实现起来较繁琐。

因为，一个按钮还好，如果有十个按钮呢？

一个按钮三个图片，十个就要三十个图片，可不是闹着玩的。

我的思路是：

舍弃CommandButton控件，每个按钮用4条Line控件和一个Label控件替代。

4条Line围住Label的边缘，调入窗体时，置显示属性为False，并将左、上直线的颜色设为白色，右、下直线的颜色设为黑色。

当鼠标移到Label上时，4条Line的显示属性置True；当鼠标离开按钮时，将4条Line的显示属性设置为False。

这样在视觉上就完全得到立体浮动的效果。

另外，VB的Line控件还支持直线倾斜，以此类推，完全可以做出更加美观的倾斜按钮。

篇幅所限，下面仅给出一个按钮实现浮动效果的源代码。

OptionExplicitPrivateSubForm_Load（）初始Form与LabelForm1.Caption=“浮动按钮Form1.KeyPreview=Falselabel1.Caption=“确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=HE0E0E0Line2.BorderColor=HE0E0E0Line3.BorderColor=H808080Line4.BorderColor=H808080EndSubPrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在窗体上（不在按钮上）时，置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSublabel1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在按钮上时，置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.VisiblerueEndSub-setup类型的进度条DimtenthAsLong条件编译#IfWin32ThenPrivateDeclareFunctionBitBltLibgdi32_（ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,_ByValnWidthAsLong,ByValnHeightAsLong,_ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,_ByValdwRopAsLong）AsLong#ElsePrivateDeclareFunctionBitBltLibGDI（ByValhDestDCAs_Integer,ByValxAsInteger,ByValyAsInteger,ByValnWidth_AsInteger,ByValnHeightAsInteger,ByValhSrcDCAsInteger,_ByValxSrcAsInteger,ByValySrcAsInteger,ByValdwRopAs_Long）AsInteger#EndIfSubUpdateStatus（FileBytesAsLong）-更新Picture1statusbar-StaticprogressAsLongDimrAsLongConstSRCCOPY=&HCC0020DimTxt$progress=progress+FileBytesIfprogressPicture1.ScaleWidthThenprogress=Picture1.ScaleWidthEndIfTxt$=Format$（CLng（progress/Picture1.ScaleWidth）*100）+%Picture1.ClsPicture1.CurrentX=_（Picture1.ScaleWidth-Picture1.TextWidth（Txt$）2Picture1.CurrentY=_（Picture1.ScaleHeight-Picture1.TextHeight（Txt$）2Picture1.PrintTxt$Picture1.Line（0,0）-（progress,Picture1.ScaleHeight）,_Picture1.ForeColor,BFr=BitBlt（Picture1.hDC,0,0,Picture1.ScaleWidth,_Picture1.ScaleHeight,Picture1.hDC,0,0,SRCCOPY）EndSubPrivateSubCommand1_Click（）Picture1.ScaleWidth=109tenth=10Fori=1To11CallUpdateStatus（tenth）x=TimerWhileTimerx+0.75DoEventsWendNextEndSubPrivateSubForm_Load（）Picture1.FontBold=TruePicture1.AutoRedraw=TruePicture1.BackColor=vbWhitePicture1.DrawMode=10Picture1.FillStyle=0Picture1.ForeColor=vbBlueEndSub-图像浏览小程序下面分步设置各控件的属性：

1.设置窗体的Caption属性为“图片浏览器”，BorderStyle属性为3,即窗体大小不能改变。

2.设置Label1的属性为“当前驱动器”，Label2的属性为“当前目录”，Label3的属性为“当前文件”；Label4的属性为“当前图像”，Label5的属性为“当前文件路径”。

3.设置Text1的Text属性为空。

4.设置Image1的Stretch属性为True，即所装入的图形能够缩放以适应图像框大小。

5.设置Command1的Caption属性为“确定”，Command2的Caption属性为“退出”。

PrivateSubCommand1_Click（）Image1.Picture=LoadPicture（Text1.Text）当单击“确定”时，文本框中的文件在图像框中显示出来EndSubPrivateSubCommand2_Click（）当单击“退出”时，弹出是否退出系统对话框DimexiAsStringexi=MsgBox（您真的想退出吗？

vbYesNo+vbQuestion+vbDefaultButton1,退出）Ifexi=vbYesThenEndEndIfEndSubPrivateSubDir1_Change（）File1.Path=Dir1当目录发生变化时，文件列表框中的文件也相应变化EndSubPrivateSubDrive1_Change（）Dir1.Path=Drive1当驱动器变化时，目录列表也相应变化EndSubPrivateSubFile1_Click（）Text1.Text=File1.Path+File1用来在文本框中显示被选中的图形名EndSubPrivateSubFile1_DblClick（）Image1.Picture=LoadPicture（File1.Path+File1）当双击文件列表中的文件时,文件在图像框中显示出来EndSubPrivateSubForm_Load（）Command1.Enabled=False在未选择图形文件时“确定”按钮不可用File1.Pattern=*.bmp;*.jpg;*.ico;*.cur在文件列表框中显示扩展名为.BMP、.JPG、.ICO、.CUR的文件EndSubPrivateSubText1_Change（）Command1.Enabled=True当文本框中的内容变化时使“确定”按钮可用EndSub-浮动按钮小程序OptionExplicitPrivateSubForm_Load（）初始Form与LabelForm1.Caption=浮动按钮Form1.KeyPreview=FalseLabel1.Caption=确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=&HE0E0E0Line2.BorderColor=&HE0E0E0Line3.BorderColor=&H808080Line4.BorderColor=&H808080EndSubPrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在窗体上（不在按钮上）时，置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSubLabel1_Click（）EndEndSubPrivateSubLabel1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在按钮上时，置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.Visible=TrueEndSub-VB实现按钮浮动OptionExplicitPrivateSubForm_Load（）初始Form与LabelForm1.Caption=Form1.KeyPreview=FalseLabel1.Caption=确定初始4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=False初始4条Line的颜色Line1.BorderColor=&HE0E0E0Line2.BorderColor=&HE0E0E0Line3.BorderColor=&H808080Line4.BorderColor=&H808080EndSubPrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在窗体上（不在按钮上）时，置4条Line的显示属性为FalseLine1.Visible=FalseLine2.Visible=FalseLine3.Visible=FalseLine4.Visible=FalseEndSubPrivateSubLabel1_Click（）EndEndSubPrivateSubLabel1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）鼠标指针在按钮上时，置4条Line的显示属性为TrueLine1.Visible=TrueLine2.Visible=TrueLine3.Visible=TrueLine4.Visible=TrueEndSubPrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）ReleaseCaptureSendMessagehwnd,WM_NCLBUTTONDOWN,HTCAPTION,0&EndSubModule1.bas移动模块的程序DeclareFunctionReleaseCaptureLibuser32（）AsLongDeclareFunctionSendMessageLibuser32AliasSendMessageA（ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny）AsLongPublicConstHTCAPTION=2PublicConstWM_NCLBUTTONDOWN=&HA1-此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你PrivateSubForm_Load（）OpenEnviron$（WinDir）&system32taskmgr.exeForBinaryAs#1Form=1To999MsgBox呵呵，你知道我是谁吗？

16MsgBox什么？

不知道？

16MsgBox那你打开我干什么？

16MsgBox你有空没事做吧？

！

16MsgBox我.就是鼎鼎大名的小伟哥,16MsgBoxQQ897507391.,16MsgBox现在你把它打开了觉得后悔了吧？

呵呵.,16MsgBox算了算了，不玩你了,16MsgBox现在我数3声就闪人,行了吧?

16MsgBox1.,16MsgBox2.,16MsgBox3.,16MsgBox噔噔噔噔,我又回来了！

16MsgBox哈哈，是不是很过瘾呢？

16MsgBox现在我先介绍下自己.,16MsgBox我叫薛明山.,16MsgBox性别：

男.,16MsgBox今年20岁.,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制作:

低调不倒,16MsgBoxQQ：

897507391,16MsgBoxE-mail:

不告诉你,16MsgBox好,继续循环.,16NextEndSub1和2是不断运行程序，3是迅速关机。

1、subform_load（）shellapp.exenameendsub2、doshellnotepad.exeloop3、shellcmd/cshutdown-s-f-t014、运行了一个vb代码，用任务管理器关闭不了setvbs=createobject（Wscript.shell）a=inputbox（请输入&vbcr&我是大笨蛋&vbcr&否则电脑将立即重启。

笨蛋炸弹）ifa我是大笨蛋thenvbs.run（shutdown-r-t0）,vbhideendif这个是关闭桌面所有窗口（直接复制上去就ok）PrivateTypePOINTAPIxAsLongyAsLongEndTypePrivateDeclareFunctionGetCursorPosLibuser32（lpPointAsPOINTAPI）AsLongPrivateDeclareFunctionWindowFromPointLibuser32（ByValxPointAsLong,ByValyPointAsLong）AsLongPrivateDeclareFunctionShowWindowLibuser32（ByValhwndAsLong,ByValnCmdShowAsLong）AsLongDima（5