先来看看开机效果：
只要点了确定，才跳到电脑桌面，它的优先级在电脑桌面前面。
是我在网上找的脚本，修改注册表实现每次开机显示文字的，但是每次开机的文字是固定的，这很不爽，于是用易语言写了一个联网某个网站，每次开机，会联网更新一次鸡汤，写到注册表，这个鸡汤就会成为下次开机的文字。
脚本网上找的，配合自己写的软件，能自动更新每次的开机鸡汤，不知道这样属不属于原创，不属于的话，麻烦管理移到一下版块，谢谢。
下面附件是自己写的软件，下载后，随便扔到某个盘或文件夹，然后创一个快捷方式，把快捷方式扔到 电脑自启目录(win10直接在命令提示符上输入shell:startup回车就会弹出自启文件夹了)，鸡汤就会每次开机自动更新了。里面的VBS脚本不用管，你可以删除，只留下我写的软件就行，因为软件每次开机会重新写出一个VBS脚本。
没币的请点：https://wwx.lanzoui.com/iaHVXsci9eb
win7应该不能用此VBS脚本 ，请自测，以前我遇到过某些win10系统运行此VBS脚本会报错，我不懂解决，当时重装一下系统又好了，望站里的VBS大神解决一下。
大概原理：
应网友要求，放一下源码：
[Asm] 纯文本查看 复制代码
.版本 2
.支持库 eAPI
.支持库 shell
.程序集 窗口程序集_启动窗口
.程序集变量 鸡汤, 文本型
.程序集变量 鸡汤字节, 字节集
.程序集变量 在哪, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
在哪 ＝ 取运行目录 ()
.判断循环首 (真)
.判断开始 (是否与互联网连接 () ＝ 真)
鸡汤 ＝ 编码_URL解码_快速 (网页_访问S (“[url=https://chp.shadiao.app/api.php]https://chp.shadiao.app/api.php[/url]”, 0, , , , , , , , , , , , , , , , , , , ), 真, )
编辑框1.内容 ＝ 子文本替换 (鸡汤, #换行符, “,”, , , 真)
编辑框1.内容 ＝ 子文本替换 (鸡汤, “ ”, “”, , , 真)
输出调试文本 (鸡汤)
鸡汤字节 ＝ 到字节集 (子文本替换 (#常量1, “[标题]”, 鸡汤, , , 真))
写到文件 (在哪 ＋ “\开机自动更新提示语.vbs”, 鸡汤字节)
程序_延时 (1000, 0)
执行 (4, 在哪 ＋ “\开机自动更新提示语.vbs”, , , 1)
运行 (在哪 ＋ “\开机最大提示语.vbs”, 假, 2)
输出调试文本 (在哪 ＋ “\开机自动更新提示语.vbs”)
跳出循环 ()
.默认
程序_延时 (2000, )
i ＝ i ＋ 1
.判断结束
.如果真 (i ＞ 10)
跳出循环 ()
.如果真结束
.判断循环尾 ()
结束 ()
.子程序 _按钮1_被单击
在哪 ＝ 取运行目录 ()
鸡汤 ＝ 编码_URL解码_快速 (网页_访问S (“[url=https://chp.shadiao.app/api.php]https://chp.shadiao.app/api.php[/url]”, 0, , , , , , , , , , , , , , , , , , , ), 真, )
编辑框1.内容 ＝ 鸡汤
鸡汤字节 ＝ 到字节集 (子文本替换 (#常量1, “[标题]”, 鸡汤, , , 真))
写到文件 (在哪 ＋ “\开机自动更新提示语.vbs”, 鸡汤字节)
程序_延时 (1000, 0)
执行 (4, 在哪 ＋ “\开机自动更新提示语.vbs”, , , 1)
另外要建一个常量
[Asm] 纯文本查看 复制代码
Set WshShell = WScript.CreateObject("WScript.Shell")
regKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\"
Title ="[标题]" & VbCrLf & " " & VbCrLf &"勿 因 未 候 日 光 暖 ，擅 自 轻 言 世 间 寒!" & VbCrLf & "" & VbCrLf & "记住，看 日 出 必 须 守 到 拂 晓!"
Text ="."
WshShell.RegWrite regKey & "LegalNoticeCaption", Title, "REG_SZ"
WshShell.RegWrite regKey & "LegalNoticeText", Text, "REG_SZ"
要精易模块的
另外说一下如何卸载：
删除下载的软件和自启文件夹的快捷方式，另外删除一下注册表，在cmd命令窗口，输入命令regedit回车进入到注册表，删除HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\下的内容就行了。
