表白代码vbs不同意无法关闭(vbs表白代码不同意按键会跑)

代码网上很多,我找了两个,再加上一些套路,效果更好。代码1:msgbox”做我女朋友好吗”,vbQuestion,”在吗”msgbox(“房产写你名字”)msgbox(“保大”)msgbox(“我妈会游泳”)dimjdowhilej<1SelectCasemsgbox(“做我女朋友好吗”,68,”请郑重的回答我”)Case6j=1Case7msgbox(“再给你一次机会”)endSelectloopmsgbox(“我就知道你会同意的,哈哈哈哈

大家好,又见面了,我是你们的朋友全栈君。

女朋友生日快乐代码—>>>html生日快乐代码
html表白代码大全—>>>html表白代码大全

代码网上很多,我找了两个,再加上一些套路,效果更好。
我已经做好了两个可执行文件,直接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()# 右侧圆弧

# 画心形直线( 右下方 )

turtle.forward(224)

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

# 点击窗口关闭程序

window = turtle.Screen()

window.exitonclick()

效果2:
在这里插入图片描述
如果电脑没有配置python环境,可以用下面的代码(制作方法和代码1一样)。

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url")
Sub ak47
Set oShellLink=Nothing
seven.Run "notepad",3
WScript.Sleep 500
seven.SendKeys " I "
WScript.Sleep 500
seven.SendKeys "L"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "v"
WScript.Sleep 500
seven.SendKeys "e "
WScript.Sleep 500
seven.SendKeys "Y"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "u Too"
WScript.Sleep 500
seven.SendKeys " "
End Sub
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"
Call ak47
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
Call ak47
Else
MsgBox "唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你! --爱你的人",64,"祝你幸福!!"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
End If
End If

这个同意之后的效果是自动打开记事本,然后自动输入“ILoveYouToo”。
在这里插入图片描述
嫌麻烦可以直接去我的资源下载。下载完直接发给她就行。
我已经做好了两个可执行文件,直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

女朋友生日快乐代码—>>>html生日快乐代码
html表白代码大全—>>>html表白代码大全

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/126404.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • r语言求平均值_r语言计算中位数

    r语言求平均值_r语言计算中位数R中的统计分析通过使用许多内置函数来执行的,这些函数大部分是R基础包的一部分,并且它们将R向量与参数一起作为输入,并在执行计算后给出结果。先来看如何求平均值。平均值是通过取数值的总和并除以数据序列中的值的数量来计算,函数mean()用于在R中计算平均值,语法如下:mean(x,trim=0,na.rm=FALSE,…)参数描述如下:x-是输入向量。 t…

  • python 的IDEA激活码_通用破解码

    python 的IDEA激活码_通用破解码,https://javaforall.cn/100143.html。详细ieda激活码不妨到全栈程序员必看教程网一起来了解一下吧!

  • NVIDIA Jetson TX1介绍(一)

    NVIDIA Jetson TX1介绍(一)NVIDIAJetsonTX1概述NVIDIAJetsonTX1是计算机视觉系统的SoM(system-on-module)解决方案。它组合了最新的NVIDIAMaxwellGPU架构,其具有ARMCortex-A57MPCore(Quad-Core)CPU族,实现性能与电源功耗的最大优化,满足下一代产品的工业视觉计算的要求。JetsonTX1SoM设计满足低功耗环境…

  • python元组下标_python获取数组下标

    python元组下标_python获取数组下标广告关闭腾讯云11.11云上盛惠,精选热门产品助力上云,云服务器首年88元起,买的越多返的越多,最高返5000元!也不是所有的高级程序语言都是如此,比如python数组下标就支持负数。原因一:历史原因语言出现顺序从早到晚c、java、javascript。c语言数组下标是从0开始->java也是->javascript也是。降低额外的学习和理解成本。原因二:减少cpu指令运算…

  • 线程池参数到底要怎么配?这可能是最好的答案[通俗易懂]

    线程池参数到底要怎么配?这可能是最好的答案[通俗易懂]文章目录1线程池快速回顾2现有设置参数的方法及不足3如何设置核心线程数(corePoolSize)4如何设置最大线程数(maxPoolSize)5如何改变等待队列长度????Java学习:Java从入门到精通总结????Spring系列推荐:Spring源码解析????最近更新:2022年1月8日????个人简介:通信工程本硕????、阿里新晋猿同学????。我的故事充满机遇、挑战与翻盘,欢迎关注作者来共饮一杯鸡汤????点赞????收藏⭐留言????都是我

  • navicat15激活码mac(JetBrains全家桶)

    (navicat15激活码mac)这是一篇idea技术相关文章,由全栈君为大家提供,主要知识点是关于2021JetBrains全家桶永久激活码的内容IntelliJ2021最新激活注册码,破解教程可免费永久激活,亲测有效,下面是详细链接哦~https://javaforall.cn/100143.html1STL5S9V8F-eyJsaWN…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号