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

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("我就知道你会同意的，哈哈哈哈")

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

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

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