一个开机自动全屏显示鸡汤文字的的软件，会自动更新鸡汤

似水流年2015 · 发表于 2021-8-7 20:25

本帖最后由似水流年2015 于 2021-8-12 10:53 编辑

先来看看开机效果：
只要点了确定，才跳到电脑桌面，它的优先级在电脑桌面前面。

是我在网上找的脚本，修改注册表实现每次开机显示文字的，但是每次开机的文字是固定的，这很不爽，于是用易语言写了一个联网某个网站，每次开机，会联网更新一次鸡汤，写到注册表，这个鸡汤就会成为下次开机的文字。

脚本网上找的，配合自己写的软件，能自动更新每次的开机鸡汤，不知道这样属不属于原创，不属于的话，麻烦管理移到一下版块，谢谢。

下面附件是自己写的软件，下载后，随便扔到某个盘或文件夹，然后创一个快捷方式，把快捷方式扔到电脑自启目录(win10直接在命令提示符上输入shell:startup回车就会弹出自启文件夹了)，鸡汤就会每次开机自动更新了。里面的VBS脚本不用管，你可以删除，只留下我写的软件就行，因为软件每次开机会重新写出一个VBS脚本。

新建文件夹.7z (315.52 KB, 下载次数: 37)
没币的请点：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\下的内容就行了。

唯爱卿颜 · 发表于 2021-8-7 20:37

似水流年2015 发表于 2021-8-7 20:30
看个人吧，有些喜欢装逼的，可以用，哈哈，我是用得有点烦了

我恨不得按完开机就见桌面，你还上个鸡汤文

wdz2018 · 发表于 2021-8-7 22:13

已经没有什么鸡汤能滋养我的心灵

Xyokcn · 发表于 2021-8-16 12:48

还是以前的水族馆待机屏好看，屏幕尺寸大的显示器还能观赏

aimlhui · 发表于 2021-8-13 17:19

似水流年2015 发表于 2021-8-7 20:30
看个人吧，有些喜欢装逼的，可以用，哈哈，我是用得有点烦了

可能已经过了这个年龄了，哎，老了老了

freeqd · 发表于 2021-8-9 09:41

似水流年2015 发表于 2021-8-7 20:30
看个人吧，有些喜欢装逼的，可以用，哈哈，我是用得有点烦了

你这个签名是波涛汹涌啊

shangxian555 · 发表于 2021-8-7 21:41

可以用了麻痹自己(开机就说:我是最棒的)，感谢楼主

aimlhui · 发表于 2021-8-7 20:28

这玩意是不是有点儿鸡肋了哈，哈哈哈

似水流年2015 · 发表于 2021-8-7 20:30

aimlhui 发表于 2021-8-7 20:28
这玩意是不是有点儿鸡肋了哈，哈哈哈

看个人吧，有些喜欢装逼的，可以用，哈哈，我是用得有点烦了

jiahui8 · 发表于 2021-8-7 21:10

支持一下楼主，谢谢分享

kesai · 发表于 2021-8-7 21:28

我用雨滴写了个名人名言显示在桌面

erui · 发表于 2021-8-7 21:45

楼主，你这样做还不如加到桌面背景里面，或者加到壁纸里面。
开机进入系统，进入桌面，对很多人来说，要求是一气呵成，没有停顿的。

chiker · 发表于 2021-8-7 21:48

能不能搞个昨天的工作回顾，今天的待完成，明天的工作计划

帐号		自动登录	找回密码
密码			注册[Register]

[原创工具] 一个开机自动全屏显示鸡汤文字的的软件，会自动更新鸡汤

免费评分

个人中心