记事本制作弹窗病毒
记事本制作弹窗"病毒"
⼤家好，我叫xiaoxin，第⼀次写⽂章，有点⼩紧张，今天下午有空，我就随⼿写了个关于Visual Basic制作的⼩程序，本程序没有任何破坏性，纯属娱乐。
0x00
html自动弹出公告代码
准备
1.需要准备⼀台电脑
2.有虚拟机的话建议⽤虚拟机运⾏
0x01
我们就开始制作
1）.制作⼀个弹窗，最后另存为1.bat
代码作⽤介绍
第⼀⾏代码： “@echo off” ⽤于隐藏代码。
第⼆⾏代码：设置弹窗的标题和内容，标题为 "马总 "，内容为 “Are you OK?”，这⾥的显⽰的内容都是可以⾃⾏修改的。
@echo off
start mshta vbscript:msgbox("Are you OK?",0,"马总：")(window.close)&&exit
(window.close)&&exit
2）制作后台运⾏⽂件，制作完成后另存为为a.vbs
代码作⽤介绍
第⼀⾏代码：wscript是⼀个脚本宿主⽂件，提供了解析以上语句的功能，也叫脚本解析引擎。这⾥的作⽤是打开命令提⽰窗⼝
第⼆⾏代码：运⾏我们刚才的1.bat
set ws=WScript.CreateObject("WScript.shell")
ws.Run "1.bat",0
3）最后⼀步，制作我们运⾏时的⽂件，完成后另存为xx.vbs。
代码作⽤介绍
第⼀⾏：⽤于关闭回显
第⼆到第四⾏：后台运⾏，⽤于隐藏命令窗⼝
第五⾏.这⾥是对应着下⾯的goto 1，可以把他们看出⼀个括号，这⾥就代表着开始。
第六⾏：打开我们之前制作的a.vbs
第七⾏：相当于每秒PING⼀次本机，-n后⾯就是所⽤的时间，设置的数字越⼩，频率越⾼。
第⼋⾏：⽤于结束所有弹窗，/f 表⽰强制终⽌，/im 表⽰指定进程名称。是⼀个超⽂本标记性语⾔。
第九⾏：循环，goto 1相当于运⾏到这⾥⼜会从 :1开始执⾏。
@echo off
if"%1"=="h" goto 1
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit
(windows.close)&&exit
:1
start a.vbs
ping -n 1 127.1>nul
taskkill /f /
goto 1
0x02
我们现在已经制作完成，3个分别为1.bat、a.vbs、xx.bat，把他们放在⼀个⽂件夹。另外，这些⽂件名制作时都是可以修改的，但记得⼀定要对应。
先不急着打开，我们需要弹多个窗⼝，所以，我们在xx.vbs要多复制粘贴第六⾏和第七⾏代码，他们的数量决定了弹窗的次数
如果是在本机运⾏的话，最好把后⾯的goto 1 删除掉，不然就会⼀直重复弹窗，如果电脑性能不好会导致死机，接着我们就把它删除掉了。
这个程序运⾏完毕后会关闭弹窗，如果想让它运⾏结束不关闭所有弹窗，就把 taskkill /f / 这⼀⾏代码删除掉
我们开始运⾏，我这⾥重复了⼏⼗次，这⾥我们没有删除掉关闭弹窗的命令，运⾏完毕就⾃动关闭弹窗，效果如下。
我们还可以玩⼀些好玩的，我们删掉关闭弹窗命令，在后⾯加上我之前所说的goto 1，这⾥我⽤的是虚拟机，如果是本机，千万不要模仿这个步骤。
运⾏，整个屏幕都亮了，最终电脑死机。
程序也能够在win10系统上运⾏
嘻嘻嘻，今天就介绍到这⾥了，本程序仅限于娱乐，对电脑没有任何破坏性。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。