首页 > 个性签名 正文
【qq留言代码爱情】黑客教你|撩妹,表白VBS脚本语言代码集合,快来学习

时间:2023-02-07 14:07:15 阅读: 评论: 作者:佚名

Vbs是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,也不需要配置环境。只能使用windows特定的记事本开发。

右键单击新建文本文档-粘贴代码-另存为“XXX . VBS”-保存-双击以运行。

下面是代码。

1.代码中最简单的一行

MsgBox你这个猪头!’

当然可以多写几行其他有趣的文字。程序逐行运行。

2.四环素恶搞

最后一个代码点“确认”结束后,执行结束,不管是想要整个人还是不够,我们都可以添加死循环。按下确认和关闭按钮后,再次弹出窗口,这样循环就不会正确关闭了。

Msgbox你这个猪头!’

循环(音乐)

那么,如何关闭呢?只有“打开作业管理器”(快捷键Ctrl Alt Delete)才能在w进程冰上右键找到并结束作业。Windows7系统w位于“过程”中,而windows10系统w位于“详细信息”中。

w流程结束

3.武汉大学英语保守从1到武汉大学,封闭方法如上

set s=CreateObject(')。

I=0

S.speak i .

I=i 1

循环(音乐)

4.无限制刷新(小心使用!)刷新很难打开任务管理器,可以强制退出

set ws=createobject(' w;)。

Ws.sendkeys '{f5} '

循环(音乐)

5.QQ为了骚扰朋友,一直发信息。

打开QQ,正确地写下朋友的注释。代码中的“料理鸡”被你的朋友注释代替,数字“30”被你想发送的次数代替,复制你要发送的信息,双击VBS执行。

On Error Goto 0

Dim wsh、ye

set wsh=create object(' w;)。

For I=1到30

W 100

w(“蔬菜鸡”)

W ' v '

W '%s '

next

w

骚扰 QQ朋友

6.告白代码

其中使用了定时终止,但以后会取消。

set Seven=ws CRI(' ws CRI;)。

str desktop=seven . special folders(' all users desktop ')

set oshellink=seven . create shortcut(str desktop ' \ seven . URL ')

操作系统

Se_key=(MsgBox('我喜欢你很久了,可以做我女朋友吗?是=同意否=拒绝”,4、“不是开玩笑!”))

If se_key=6 Then

MsgBox '谢谢你给我这个机会,I Love You '64,' Love You '

Else

-s-t 600’

Agn=(MsgBox('我真的很喜欢你!拜托,别拒绝我,好吗?是=同意否=拒绝”,4、“不要拒绝我,好吗?”))

If agn=6 Then

-a '

MsgBox '谢谢你给我这个机会,I love you 'love you '

WScri 500

Else

' MsgBox '唉,希望你能找到喜欢的人。回头看,记住我在你后面等你!“爱你的人”,64,“祝你幸福!”

-a '

“MsgBox”其实你拒绝了我,我也不会关掉你的电脑!因为你是我最重要的人,我不会取笑你!' 64,'我想等你!' '

End If

End If

关闭延迟

7.妹妹密码

只有重新回答设定的名称,循环才会结束

Const title='爱情测试'

Const yourname='小y '

' Const question='你最喜欢的人是谁?请在下面的框中输入他(她)的名字。' '

' Const info='你在说谎!别跑,实话实说。' '

Const scend='如果你说了你的心,就向他告白。'

Dim youranswer

Youranswer=inputbox (question,title)

if your answer your name then msgbox info、VB information vbokonly和title

Loop until youranswer=yourname

Msgbox scend、VB information vbokonly和title

这些都是编程的初级小程序,是不是很有趣?

来源网络,删除侵权联系人

  • 评论列表

发表评论: