本文作者:DurkBlue

几个撩妹的vbs脚本语言推荐

DurkBlue 2个月前 ( 01-07 ) 111 抢沙发
几个撩妹的vbs脚本语言摘要: VBS是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,更不需要配置环境,只用windows自带的记事本就可以进行开发,简单粗暴。右键新建“文本文档”->...

VBS是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,更不需要配置环境,只用windows自带的记事本就可以进行开发,简单粗暴。

右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。

接下来就是代码了:

1.最简单的一行代码
msgbox "你个猪头!"


几个撩妹的vbs脚本语言  第1张


几个撩妹的vbs脚本语言  第2张




当然你还可以多写几行其他有趣的文字,程序将会一行一行运行。

2.死循环恶搞

上个代码点完“确定”就运行结束了,想要整人还是不够,那我们可以加一个死循环,点击确定和关闭按钮之后,会再一次弹出窗口,如此循环,无法正常关闭。
do
msgbox "你个猪头!"
loop

那怎么才能关闭呢?只有打开任务管理器(快捷键Ctrl+Alt+Delete)找到wscript.exe进程冰右键结束任务。windows7系统wscript.exe在”进程“中,windows10系统wscript.exe在”详细信息“中。


几个撩妹的vbs脚本语言  第3张


几个撩妹的vbs脚本语言  第4张


结束wscript.exe进程


3.无限英文报数从1到无穷大,关闭方法同上
Set s = CreateObject("sapi.spvoice")
i=0
do
 s.speak i
 i=i+1
loop

4.无限刷新(慎用!!!)刷新难以打开任务管理器,只能强行关机
set ws=createobject("wscript.shell")
do
 ws.sendkeys "{f5}"
loop

5.QQ连续发送信息骚扰好友

打开QQ,准确记下好友的备注,代码里的”菜鸡“替换为你的好友备注,数字”30“替换为你想要发送的次数,复制好你准备发送的消息,双击运行vbs。
On Error Goto 0
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100
wsh.AppActivate("菜鸡")
wsh.sendKeys "^v"
wsh.sendKeys "%s"
next
wscript.quit

几个撩妹的vbs脚本语言  第5张

QQ骚扰好友


6.表白代码

其中用到了定时关机,但是后面会取消的。
Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会,I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你!--爱你的人",64,"祝你幸福!!"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
End If
End If


几个撩妹的vbs脚本语言  第6张


延时关机


7.撩妹代码

只有再回答出设定好的名字是,循环才会结束
const title = "爱情测试"
const yourname = "小Y"
const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。"
const info = "你在说谎!不要逃避,实话实说。"
const scend = "你说出了你的心扉,那就向他(她)表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title


几个撩妹的vbs脚本语言  第7张


此篇文章由DurkBlue博主亲自发布,转载请注明来处哟
文章投稿或转载声明

来源:DurkBlue版权归原作者所有,转载请保留出处。本站文章发布于 2个月前 ( 01-07 )
温馨提示:文章内容系作者个人观点,不代表DurkBlue博客对其观点赞同或支持。

赞(1

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

阅读
分享

发表评论取消回复

快捷回复:
AddoilApplauseBadlaughBombCoffeeFabulousFacepalmFecesFrownHeyhaInsidiousKeepFightingNoProbPigHeadShockedSinistersmileSlapSocialSweatTolaughWatermelonWittyWowYeahYellowdog

评论列表 (暂无评论,111人围观)参与讨论

还没有评论,来说两句吧...