首页 > 分享 > 无法拒绝的道歉表白神器（更新版）

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

花匠小妙招
2024-12-08 04:56

道歉表白神器

界面展示：
首先双击打开，显示界面：
在这里插入图片描述
点击确定或则关闭按钮：

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

按照提示点击：

继续：

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~" 12345678910111213

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

注意修改编码格式！！！

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

最后附赠一个语音代码：

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

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

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

代码如下：

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

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

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 12345678

刷屏教程：
视频地址：
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！

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

在这里插入图片描述