VB代碼整人,實用幾個有趣的希望有幫助!!

1、使用方法：新建一個txt文本文檔。然后把拓展名改成“.vbs的格式。然后右鍵編輯，把代碼復(fù)制進去，ok! ! !1.整死你??！ ！ ！此代碼鎖定了任務(wù)管理器，想關(guān)閉只有重新啟動電腦，惡搞你的好友，或者騷擾你Private Sub Form_Load()Open Environ$(WinDir) & system32taskmgr.exe For Binary As #1For m = 1 To 999MsgBox 呵呵，你知道我是誰嗎？, 16MsgBox什么？不知道?, 16MsgBox 那你翻開我干什么？, 16MsgBox 你有空沒事做吧？ ！, 16MsgBox 我.就是鼎鼎大

2、名的987876198, 16MsgBox 987876198., 16MsgBox 現(xiàn)在你把它翻開了覺得懊悔了吧？呵呵.,16MsgBox 算了算了，不玩你了, 16MsgBox 現(xiàn)在我數(shù)3聲就閃人，行了吧？，16MsgBox 1., 16MsgBox 2., 16MsgBox 3., 16MsgBox 噎噎噎噎，我又回來了！, 16MsgBox 哈哈，是不是很過癮呢？, 16MsgBox 現(xiàn)在我先介紹下自己.,16MsgBox 我叫王得地.,16MsgBox 性別：男.,16MsgBox 今年35歲.,16MsgBox 不好意思噢，我好似說多了.，16MsgBox 不要這樣喇，聽我說完先好

3、不？, 16MsgBox 來來來，開始喇.,16MsgBox 我叫王得地.,16MsgBox 家中有屋又有田.,16MsgBox 生活樂無邊.,16MsgBox好似我又說多了.，16MsgBox 不要生氣嘛，你認真看下去我就放你走.，16MsgBox好，開始喇.，16MsgBox從前有座山.,16MsgBox 山里有個座廟.,16MsgBox廟里有個和尚.,16MsgBox 哈哈，想哭嗎？, 16MsgBox 被騙的感覺不爽吧？, 16MsgBox喂喂喂！別別.千萬別重啟電腦,16MsgBox 我告訴你怎么關(guān)吧,16MsgBox 先翻開任務(wù)管理器,16MsgBox 忘了告訴你了，任務(wù)管理器打不

4、開了, 16MsgBox別恨我啊你不小心,16MsgBox 電腦重新啟動吧,16MsgBox 相信我吧，你知道我是不會騙人的,16MsgBox如果你還想繼續(xù)點的話，你就別聽我的,16MsgBox呵呵，我又沒有說這個東西沒有,16MsgBox我只想說桌面沒有罷了., 16MsgBox 嘻嘻，爽不爽日丫?, 16MsgBox對著電腦屏幕大聲說低調(diào)大好人,16MsgBox 不然，我就沒方法的咯,16MsgBox 因為我把循環(huán)設(shè)置成99了, 16MsgBox 想保存電腦數(shù)據(jù)只有繼續(xù)點了, 16MsgBox絕對會出到去的,16MsgBox好了，廢話不多說了，祝你好運.,16MsgBox 制作：低調(diào)不倒,

5、16MsgBox QQ : 987876198, 16MsgBox E-mail:不告訴你，16MsgBox好，繼續(xù)循環(huán).,16NextEnd Sub2.滿屏小雪花這是我以前寫的小程序 讓整個屏幕雪花飄飄 的改良，本程序是一個模擬下雪的小程序： 大小不同隨風飄蕩的雪花從屏幕上方不斷落下，飄滿整個屏幕。雪花可在任何窗口上飄蕩， 包括任務(wù)欄、開始菜單、彈出菜單等地方。本程序與原程序的主要改良之處是：落下的雪花不會消失，會在屏幕底部不斷堆積，雙擊屏幕底部的積雪可使積雪消失。本程序編譯成exe文件運行后，只能通過系統(tǒng)任務(wù)管理器才能終止運行。程序運行效 果截圖如下：本程序包含兩個窗體，F(xiàn)orm1和For

6、m2 ,其中Form1是啟動窗體。代碼在在VB6調(diào)試通過：下面是Form1窗體代碼:=注意：在屬性窗口將窗體的BorderStyle屬性設(shè)置為0,即窗體是無邊框窗體在窗體上放置一個控件：Timer1,不必設(shè)置任何屬性Private Declare Function SetWindowPos Lib user32 (ByVal hWnd As Long, ByVal hWndl nsertAfter AsLong, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Lon g, ByVal wFlags As Long

7、)As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long,ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal h Wnd As Long,ByVal nIndex As Long) As LongPrivate Declare

8、 Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal h Wnd As Long,ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As Long Private Type tySnow 定義表示雪花的數(shù)據(jù)類型X As Single: xV As Single xY As Single: yV As Single ySe As Long: Size As Sing

9、le EndTypePrivate Sub Form_Load()ctSnowS = 200 300ctSeChange = 30 雪花顏色的變化范圍最大化窗口。注意：不要用在屬性窗口設(shè)置WindowState屬性的方式，也不使用Me.WindowState = 2代碼。否那么，在用戶調(diào)整任務(wù)欄狀態(tài)的時候，會造成積雪的位置錯位。Me.WindowState = 0Me.Move 0, 0, Screen.Width, Screen.HeightReDim ctSnow(1 To ctSnowS)Me.Caption =雪花飄飄Me.AutoRedraw = True: Me.ScaleMode

10、 = 3Me.BackColor = RGB(235 - ctSeChange * 2, 235 - ctSeChange * 2, 255)Call TransWin(Me.hWnd, Me.BackColor) 將窗口背景色設(shè)置為透明的Form2.AutoRedraw = True: Form2.ScaleMode = 3Form2.BackColor = Me.BackColorForm2.Move Forml.Left, Forml.Top, Forml.Width, Forml.HeightCall TransWin(Form2.hWnd, Form2.BackColor)將窗口背景

11、色設(shè)置為透明的Form2.ShowTimerl.Enabled = True: Timerl.lnterval = 20End SubPrivate Sub Timer1_Timer()坐標、水平移動速度坐標、垂直移動速度雪花顏色、大小雪花數(shù)量Dim I As Long, V As Single, H1 As Single, IsDown As Boolean, Se As LongV = 8修改此數(shù)字，可改變雪花整體飄蕩的速度Randomize初始化隨機發(fā)生器WinInTop Me.hWnd, True 使雪花(窗口)顯示在最前，包括顯示到任務(wù)欄上面WinInTop Form2.hWnd,

12、TrueMe.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Me.BackColor, BFFor I = 1 To ctSnowSctSnow(I).X = ctSnow (I) .X + ctSnow(I).xV * VctSnow(I).Y = ctSnow (I) .Y + ctSnow(I).yV * VIf Rnd * 20 Me.ScaleHeight Then Call SnowInit(I)未初始化，或超出下邊界ctSnow (I) .Size = 2 *調(diào)試代碼ShowStr Me, I 畫一朵雪花Me.Font.Size = c

13、tSnow (I) .SizeH1 = Me.TextHeight(*) * 0.5 半個字符高度If ctSnow(I).X Me.ScaleWidth Then ctSnow(I).X = -H1 超出右邊界,最下層積雪位置IsDown = ctSnow(I).Y Me.ScaleHeight - H1If IsDown Then ctSnow(I).Y = Me.ScaleHeight - H1積雪密度:Y坐標后H1*0.9數(shù)值越小密度越大數(shù)值過大，如H1*1.5,會使積雪堆積成柱狀或造成空隙。數(shù)值過小，如H1*0.5,會使積雪堆積速度緩慢。Se = Form2.Point(ctSnow

14、 (I).X + H1 * 0.5, ctSnow(I).Y + H1 * 0.9)If Se -1 And Se Form2.BackColor Then IsDown = True已落到最下面，在Form2的相同位置繪制積雪If IsDown ThenShowStr Form2, ICall SnowInit(I)If ctSnow (I).Y Me.ScaleHeight * 0.9 ThenForm2.Font.Size = 12Form2.CurrentX = (Me.ScaleWidth - 8 * Me.TextHeight(12) * 0.5Form2.CurrentY = M

15、e.ScaleHeight * 0.92Form2.ForeColor = RGB(0, 0, 255)Form2.Print 雙擊此處消除積雪End IfEnd IfNextEnd SubPrivate Sub ShowStr(Kj, I As Long),畫一朵雪花Dim H1 As SingleKj.Font.Size = ctSnow(I).SizeKj.CurrentX = ctSnow(I).XKj.CurrentY = ctSnow(I).YKj.ForeColor = ctSnow (I) .SeIf ctSnow(I).Size 4.2 ThenKj.Print *ElseI

16、f ctSnow(I).Size 3 Then Kj.DrawWidth = 2 Else Kj.DrawWidth = 1H1 = Kj.TextHeight(*) * 0.5Kj.PSet (ctSnow (I).X + H1 * 0.5, ctSnow(I).Y + H1 - 1)End IfEnd SubPrivate Sub SnowInit(I As Long),初始化一朵雪花Dim S As SinglectSnow(I).X = Rnd * Me.ScaleWidthctSnow(I).xV = Rnd - 0.5ctSnow (I) .yV = Rnd * 0.5 + 0.1

17、S = 2 + Rnd * 9 字體最大11號If ctSnow(I).Size = 0 ThenctSnow(I).Y = Rnd * Me.ScaleHeightElseMe.Font.Size = SctSnow(I).Y = -Me.TextHeight(*)End IfctSnow(I).Size = SS = 235 - ctSeChange * 2 + Int(Rnd * ctSeChange * 2)ctSnow(I).Se = RGB(S, S, 255),雪花略帶藍色，否那么在白背景時將看不見End SubPrivate Sub TransWin(hWnd As Long,

18、 TransColor As Long)將窗口顏色TransColor設(shè)置為透明的Dim ExsTyle As LongConst WS_EX_LAYERED = &H80000, GWL_ExsTyle = -20ExsTyle = WS_EX_LAYERED Or GetWindowLong(hWnd, GWL_ExsTyle)SetWindowLong hWnd, GWL_ExsTyle, ExsTyleSetLayeredWindowAttributes hWnd, TransColor, 0, 1End SubPrivate Sub WinInTop(nWnd As Long, Optional InTop As Boolean)窗口保持最前Const HWND_NoTopMost = -2 取消在最前Const HWND_TopMost = -1 最上Const SWP_NoSize = &H1 wFlags參