关不掉的窗口代码vbs(那种表白的窗口，就是点不同意或❌都无法退出，只有同意了才可以。怎么制作)

1、打开记事本，复制粘贴以下内容。
2、doa=msgbox("嫁给我，是否同意？",36,"我爱你")loop?until?a?=?vbYesmsgbox?"我爱你宝贝"点击文件，另存为，文件名输入“love.vbs”（不含隐含），保存类型选所有文件。
3、保存即可。