vbs无法拒绝的表白代码

article/2025/9/23 20:16:45

Case 6 j=1

Case 7 msgbox(“再给你一次机会”)

end Select

loop

msgbox(“我就知道你会同意的,哈哈哈哈”)

电脑桌面上新建一个txt文本,代码复制进去后需要修改编码格式(文件>另存为>编码改为ANSI),然后保存。

再右击这个txt文本,重命名文件后缀为vbs。(变成下图这样)

在这里插入图片描述

然后右击选择创建快捷方式。

在这里插入图片描述

接着选择一个ta经常使用的软件,比如QQ。右键QQ,选择属性,点击更改图标,把里面的图标路径复制下来。

在这里插入图片描述

然后右键刚才创建的快捷方式,属性里面找到更改图标,把路径替换即可。

在这里插入图片描述

然后变成了这样:

在这里插入图片描述

最后重命名为腾讯QQ即可。

效果1:

在这里插入图片描述

嫌麻烦可以直接去我的资源下载。下载完直接发给她就行。

可以去我的资源下载—>>>[表白套路可执行程序](()

代码2:

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”

seven.Run “python ai.py”

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

seven.Run “python ai.py”

Else

MsgBox “唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你! --爱你的人”,64,“祝你幸福!!”

seven.Run “shutdown.exe -a”

MsgBox “其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!”,64,“我愿意等你!”

End If

End If

和第一个一样得到vbs文件,另外需要搭建好python环境(没有的话看下文),桌面新建一个ai.py文件画爱心。

在这里插入图片描述

ai.py代码(这是python语言,可以画爱心):

-- coding:utf-8 --

import turtle

import time

画心形圆弧

def hart_arc():

for i in range(200):

turtle.right(1)

turtle.forward(2)

def move_pen_position(x, y):

turtle.hideturtle()# 隐藏画笔

turtle.up()# 提笔

turtle.goto(x, y) # 移动画笔到指定起始坐标(窗口中心为0,0)

turtle.down()# 下笔

turtle.showturtle()# 显示画笔

初始化

turtle.setup(width=800, height=500)# 窗口大小

turtle.color(‘red’, ‘pink’)# 画笔颜色

turtle.pensize(3)# 画笔粗细

turtle.speed(1000)# 描绘速度

初始化画笔起始坐标

move_pen_position(x=0,y=-180)# 移动画笔位置

turtle.left(140)# 向左旋转140度

turtle.begin_fill()# 标记背景填充位置

画心形直线( 左下方 )

turtle.forward(224)# 向前移动画笔,长度为224

画爱心圆弧

hart_arc()# 左侧圆弧

turtle.left(120)# 调整画笔角度

hart_arc()# 右侧圆弧

画心形直线( 右下方 )

turtle.forward(224)

turtle.end_fill()# 标记背景填充结束位置

点击窗口关闭程序

window = turtle.Screen()

window.exitonclick()


http://chatgpt.dhexx.cn/article/EI1tv57i.shtml

相关文章

情人节——vbs的学习(句子、情话)

文章目录 一、藏匿情话二、vbs脚本表白代码代码1:做我女朋友非同意不可代码2:做我女朋友不同意就关机代码3:做我女朋友,即使不同意因为更爱你所以撤销关机代码4:爱情测试代码5:求对象原谅 三、web网页表白程…

VBScript之表白代码(有运行视频)

提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档 文章目录 前言这是一个基于VBScript的表白脚本,有需要请自取! 一、VBS是什么?二、脚本演示三、源代码 前言 这是一个基于VBScript的表白脚…

表白神器(VBS编程)

步骤一、打开记事本,输入以下代码(建议直接复制): msgbox "我有一件事想跟你说",vbQuestion,"在吗" msgbox"自从第一天遇见你,我便对你难以忘怀了!" CreateObject("SA…

vbs表白代码

好玩的循环表白代码 1,右键->新建文本文件 2,右键->编辑 3,粘贴下面代码 MsgBox " 十年相遇" MsgBox " 百年回眸" MsgBox " 千年同船渡" MsgBox " 我愿以万…

表白代码.vbs

具体操作步骤如下: 1、先创建1个弹窗文档: ① 点击鼠标右键,新建一个文本文档 ② 复制粘贴这串代码 msgbox("想说的话") msgbox("想说的话") ③打开文档【另存为】界面,将文件名设置为【常用软件名称】&am…

情人节表白代码

(这是21年写的了,当时只是收集了一些简单的表白代码,很多东西也并非原创,不过从访问量上来看,文章似乎还挺受欢迎的) 经过一年的学习和摸爬滚打,我看到过更多优秀的表白创意,表白代码…

时艳强对话王团长:EOS如果失去社群共识,也就没什么价值了

对话时间:6月21日18:00 对话嘉宾: 王团长 区块链学院创始人 时艳强 布洛克科技创始人 全球高校区块链爱好者联盟主席 开场 时艳强:各位布洛克人,大家晚上好! 欢迎大家来到领先的区块链社群媒体【布洛…

【问链-Eos公开课】第一课 EOS简介

一.Eos简介 EOS(Enterprise Operation System),企业操作系统,是为企业级分布式应用设计的一款区块链操作系统。相比于目前区块链平台性能低、开发难度大以及手续费高等问题,EOS拥有高性能处理能力、易于开发以及用户免…

EOS解读

本文首发于微信公众帐号: 一界码农(The_hard_the_luckier) 无需授权即可转载; 甚至无需保留以上版权声明…… EOS现在是在币圈无人不知无人不晓的明星项目,十个就有九个买了EOS,开玩笑说,“只有10%的人买了比特币&#xff…

生而不凡的EOS区块链技术

序 章 第一章 生而不凡 5 首个能承载百万级用户的公链技术 第二章 创新的共识 8 这是一场伟大的社会实验,我们只是最早的测试用户 入 门 第三章 你忽略的‘好’ 11 残酷的市场总能想方设法让你迷失 第四章 只有EOS配谈生态 15 不是每条公链都有这么强大的生态&…

EOS两周年之际,你给她打几分?

大家好,我是陪伴大家已久的Harvey。我一直以来秉承着“授人以鱼不如授人以渔”的初衷,为大家带来“硬核”技术文章。作为长期主义实践者,我在这里会一直分享我的所知所见,如果你喜欢我,奥不,如果你喜欢我的…

EOS白皮书读后有感

特性参数信息来源备注产块速度0.5秒/块consensus-algorithm-bft-dpos会出现空白块,即在预定时间没生成出对应的块产块原理多人协作顺序产块\The selected producers are scheduled in an order agreed upon by 15 or more producers.产块周期126 / 轮\126 (6 blocks…

EOS的中心化,该中国财团背锅吗?

文 | 芦荟 来源 | Odaily星球日报 EOS 又一次因为节点中心化成为争议焦点。 相比起原来批评总是来自外界,这次 EOS 社区开始「内讧」了。 8 月 22 日,去中心化版维基百科 Everipedia 首席信息官 Larry Sanger 发推特称,EOS 如果被中国财团中心…

eos节点服务器_EOS柚子生态投票的骗局,你以为自己在区块恋革命,其实是在参与CX罢了...

文/币侠bx 最近有粉丝问关于EOS柚子生态投票,之前也听说过EOS的各种ZJP,什么EOS生态,EOS社区,EOS金融等等,这些ZJP都是打着EOS的旗号在招摇撞骗. 首先说一下EOS本身的机制,EOS由于采用DPoS的机制&#xff0…

EOS学习之Docker环境配置 | ScanEOS 是全球首个专注于 EOS 生态的专业EOS区块链浏览器和数据分析平台

ScanEOS 是全球首个专注于 EOS 生态的专业区块链浏览器和数据分析平台。我们坚信 EOS 将会改变这个世界。ScanEOS 希望能为 EOS 生态的壮大贡献自己的一份力量。 我们网站上上线了靓号系统,可以看到一些比较好名字的抢注情况。 同时我们会有一些技术分享和整理&…

「重要」请收藏!EOS大生态常用链接一览

随着近期市场的回暖,在瑞波XRP的带领下,主流币种呈现的此起彼伏的景象,EOS也不甘示弱的紧追其后稳定前5。EOS的关注度较前几个月下降很多但是毕竟是区块链3.0的代表性项目,各个方面也不是普通项目可以比拟的。本篇文章将EOS相关的各个网站团队链接等均一一列出,并且加上中…

1分钟链圈 | EOS生态巨变!今日正式成立基金会

Hi,艾瑞巴蒂! 这里是 8 月 18 日的每日1句话新闻晚报,只需1分钟,看看全球最热、最新的区块链新闻。 实时币价:BTC $6495.70 ETH $309.70 EOS $5.32(数据来源: Bitfinex) 安全 奇虎360团队…

ET钱包1月24日早报|EOS生态实现与BOS的去中心化跨链

围绕EOS打造项目的开发人员是强大的,正在开发出各种各样的有趣项目。EOS赢得大量开发者的青睐,才能最终推出有价值的Dapp。与EOS相反的是,有些区块链项目,仅仅欲求吸引炒币者。 2019.1.24 星期四 EOS价值 ¥16.43(来源Gate.io) ET钱包 每日早报 1.EOS行情&主网数据…

EOS价格震荡起伏,EOS生态数据不断上行

时间一晃而过,端午三天小长假就这样过去了。行情起起伏伏,并没有太大的波澜,一切看起来比较平静,比特币目前在7800美元附近继续震荡,军心不稳的散户在这种震荡中少不了几进几出,进出之间,财富缩…

EOS技术及生态系统介绍

链客,专为开发者而生,有问必答! 此文章来自区块链技术社区,未经允许拒绝转载。 嘉宾介绍 哈胜,现任梦起文化传播有限公司技术总监,西北地区区块链技术发起第一人;一直在致力于将区块链技术推广,现为EOS引力区西北区节点竞选人。 EOS基本介绍 EOS是Block.One公司正在研…