vbs无法拒绝的表白代码

我已经做好了两个可执行文件,直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

QQ发给她的效果(微信也可以发哦):

代码1效果:

在这里插入图片描述

代码1效果视频展示

代码2效果:

不同意的话,会关闭他的电脑。(当然是套路一波,后面会取消注销计划的。)

在这里插入图片描述

同意的话,会自动打开记事本,自动写上我也爱你。

在这里插入图片描述

代码2效果视频展示

代码1:

msgbox “做我女朋友好吗”,vbQuestion,“在吗”

msgbox (“房产写你名字”)

msgbox (“保大”)

msgbox (“我妈会游泳”)

dim j

do while j<1

Select Case msgbox(“做我女朋友好吗”,68,“请郑重的回答我”)

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()# 右侧圆弧
自我介绍一下,小编13年上海交大毕业,曾经在小公司待过,也去过华为、OPPO等大厂,18年进入阿里一直到现在。

深知大多数前端工程师,想要提升技能,往往是自己摸索成长或者是报班学习,但对于培训机构动则几千的学费,着实压力不小。自己不成体系的自学效果低效又漫长,而且极易碰到天花板技术停滞不前!

因此收集整理了一份《2024年Web前端开发全套学习资料》,初衷也很简单,就是希望能够帮助到想自学提升又不知道该从何学起的朋友,同时减轻大家的负担。

img

既有适合小白学习的零基础资料,也有适合3年以上经验的小伙伴深入学习提升的进阶课程,基本涵盖了95%以上前端开发知识点,真正体系化!

由于文件比较大,这里只是将部分目录截图出来,每个节点里面都包含大厂面经、学习笔记、源码讲义、实战项目、讲解视频,并且会持续更新!

如果你觉得这些内容对你有帮助,可以扫码获取!!(备注:前端)

最后

今天的文章可谓是积蓄了我这几年来的应聘和面试经历总结出来的经验,干货满满呀!如果你能够一直坚持看到这儿,那么首先我还是十分佩服你的毅力的。不过光是看完而不去付出行动,或者直接进入你的收藏夹里吃灰,那么我写这篇文章就没多大意义了。所以看完之后,还是多多行动起来吧!

可以非常负责地说,如果你能够坚持把我上面列举的内容都一个不拉地看完并且全部消化为自己的知识的话,那么你就至少已经达到了中级开发工程师以上的水平,进入大厂技术这块是基本没有什么问题的了。

最后

今天的文章可谓是积蓄了我这几年来的应聘和面试经历总结出来的经验,干货满满呀!如果你能够一直坚持看到这儿,那么首先我还是十分佩服你的毅力的。不过光是看完而不去付出行动,或者直接进入你的收藏夹里吃灰,那么我写这篇文章就没多大意义了。所以看完之后,还是多多行动起来吧!

可以非常负责地说,如果你能够坚持把我上面列举的内容都一个不拉地看完并且全部消化为自己的知识的话,那么你就至少已经达到了中级开发工程师以上的水平,进入大厂技术这块是基本没有什么问题的了。

资料领取方式:戳这里前往获取

  • 4
    点赞
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值