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()