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

您所在的位置：网站首页 › 取消关机的代码 › 表白代码vbs不同意无法关闭(vbs表白代码不同意按键会跑)

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

2023-03-27 01:36| 来源: 网络整理| 查看: 265

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

代码网上很多，我找了两个，再加上一些套路，效果更好。我已经做好了两个可执行文件，直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

QQ发给她的效果（微信也可以发哦）：代码1效果：

代码1效果视频展示

代码2效果：不同意的话，会关闭他的电脑。（当然是套路一波，后面会取消注销计划的。）

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

代码2效果视频展示

代码1：

msgbox "做我女朋友好吗",vbQuestion,"在吗" msgbox ("房产写你名字") msgbox ("保大") msgbox ("我妈会游泳") dim j do while j另存为>编码改为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表白代码大全

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/126404.html原文链接：https://javaforall.cn

【本文地址】

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

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

今日新闻

推荐新闻