无法拒绝的道歉表白神器（更新版）----msgbox代码

道歉表白神器

界面展示：
首先双击打开，显示界面：

点击确定或则关闭按钮：

点击确定，进入下一对话框：

按照提示点击：

继续：

AND：

AND：

ok，成功套路！

低调点，任务管理器的情况就不要说啦，嘿嘿。

最后附上代码：

msgbox"亲爱的不要生气了好不好"
msgbox"我已经深刻的认识到自己的错误了"
msgbox"但请相信我，我并不是有意的"
msgbox"能原谅我吗？亲爱的。"
dim i
do while i<1
Select Case msgbox("如果原谅我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗，我向你保证，以后绝对不会再犯了！"
end Select
loop
msgbox"谢谢亲爱的你原谅我，mua~"

使用方法：
使用记事本写入代码，写完保存后将格式改为vbs，就可以啦！

注意修改编码格式！！！

因为txt文件在C盘默认编码模式是utf-8的，所以直接粘贴后代码是有了，但是需要一些小操作，将编码格式改为ansi接可以啦！
附上图！
首先，在打开原txt文件，然后在编辑栏找到
“文件”–》“另存为”–》“文件名（修改需要的文件名，可以在这里改成vbs文件）”–》“编码”–》“ANSI”–》“保存”
然后直接打开保存好的vbs文件就可以啦。

最后附赠一个语音代码：

使用方法与表白神器相同，但是存在缺点，可更改内容不可以写中文，会出现乱码，所以上面写的语句不要注意语法，因为我追求的是谐音，嘿嘿。

CreateObject("SAPI.SpVoice").Speak"2021年好呀！你个大可爱。"

这个之前出现问题的原因也是编码格式的缘故，只要把格式换成ANSI格式就可以啦！

代码如下：

CreateObject("SAPI.SpVoice").Speak"good evening .You are a big Han Han."

最后，还有一个常见的刷屏代码，由于比较常见就不放教程了，有需要的可以评论。

Set WshShell=WScript.CreateObject("WScript.shell")
WshShell.AppActivate"人物名字"
for i=1 to  10  #（刷屏次数，使用时这句话删掉）
WScript.Sleep 10
WshShell.Sendkeys"^v"
WshShell.SendKeys i
WshShell.Sendkeys"%s"
Next

刷屏教程：
视频地址：
https://www.bilibili.com/video/BV1fL411g7pk?p=1&share_medium=android&share_plat=android&share_session_id=6a89752a-0071-4226-b39b-01ba5aa821b4&share_source=QQ&share_tag=s_i&timestamp=1635231084&unique_k=BUYBse
使用方法：
人物名字即好的备注名，但是我经过查验，发现不用固定用户名，也可以发送，所以修不修改人物名字，根据个人实际情况而定。
复制需要刷屏的文字，双击文件，快速回到需要刷屏的页面即可。

分享结束，OVER！

最后，非常感谢大家的评论留言，由于前段时间很忙，所以并没有留出时间修正这个错误，现在小编将新鲜的表白代码双手奉上，希望可以得到各位原谅！