吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 2971|回复: 65
收起左侧

[原创工具] 易语言随机壁纸+源码

[复制链接]
暗夜硝烟 发表于 2024-8-24 16:50
本帖最后由 暗夜硝烟 于 2024-9-19 22:55 编辑

运行界面

image.png
点击按钮 随机更换壁纸,勾选自动换壁纸,实际为(输入的时间)循环点击"全部"按钮。
这个是编译好的程序 御风随机壁纸1.1.rar (336.8 KB, 下载次数: 125)   这个API失效了,下载下面4K那个





易语言 源码 下载 随机壁纸.rar (35.36 KB, 下载次数: 98)
有好的随机壁纸站可以替换哈,
图片数据 = HTTP读文件 (“随机壁纸API地址”)  ' 获取在线壁纸

[HTML] 纯文本查看 复制代码
.版本 2
.支持库 internet
.支持库 eAPI

.子程序 _全部_被选择
.局部变量 图片数据, 字节集

图片数据 = HTTP读文件 (“https://api.chongss.com/pc.php?category=all”)  ' 获取在线壁纸
写到文件 (“C:\Windows\Web\随机壁纸.jpg”, 图片数据)  ' 保存壁纸到文件
设置桌面墙纸 (“C:\Windows\Web\随机壁纸.jpg”, )  ' 设置保存的文件为桌面壁纸
写注册项 (#现行用户, “Control Panel\Desktop\WallpaperStyle”, “2”)  ' 修改注册表设置壁纸未拉伸
运行 (“rundll32.exe user32.dll,UpdatePerUserSystemParameters”, 真, 0)  ' 因为修改注册表不会立即生效,这是刷新壁纸显示




4k的exe,图库地址有点慢,能用。
随机壁纸 4K.rar (347.21 KB, 下载次数: 102)

免费评分

参与人数 6吾爱币 +12 热心值 +4 收起 理由
866837 + 1 我很赞同!
15235109295 + 1 + 1 热心回复!
tianyi5274110 + 1 东西挺好,只是这个壁纸分辨率一言难尽,2k·4k很遭罪!
WXJYXLWMH + 1 + 1 谢谢@Thanks!
wanfon + 1 + 1 热心回复!
风之暇想 + 7 + 1 感谢发布原创作品,吾爱破解论坛因你更精彩!

查看全部评分

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

xfsmylq 发表于 2024-8-27 09:05
ot1686 发表于 2024-8-26 15:49
鸣谢这位大佬的无私奉献,这份随机壁纸程序简直是我的心头好,不仅界面精美,功能强大,而且还开源,让我这 ...

这小嘴巴巴的,开过光的。哈哈, 抹了香油了
ot1686 发表于 2024-8-26 15:49
鸣谢这位大佬的无私奉献,这份随机壁纸程序简直是我的心头好,不仅界面精美,功能强大,而且还开源,让我这个萌新也能一睹源码风采。再次感谢大佬的分享,祝大佬开发顺利,福泽绵长!
shaokui123 发表于 2024-8-24 19:29
头像被屏蔽
pj666a 发表于 2024-8-24 20:57
提示: 作者被禁止或删除 内容自动屏蔽
phxy7 发表于 2024-8-24 21:46
感谢分享小工具
yejix 发表于 2024-8-24 21:49
是个实用小软件
sona124311 发表于 2024-8-24 23:40
看看能不能接入云图链接
WXJYXLWMH 发表于 2024-8-24 23:55
谢谢分享 楼主辛苦了
1101170728 发表于 2024-8-25 00:10
感谢分享,正好需要
chi634191 发表于 2024-8-25 00:44
谢谢分享点个赞
moyinya 发表于 2024-8-25 07:26
没有管理员权限写不了c盘windows的
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-12-23 07:31

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表