本帖最后由 暗夜硝烟 于 2024-8-26 02:17 编辑
运行界面
点击按钮 随机更换壁纸，勾选自动换壁纸，实际为（输入的时间）循环点击"全部"按钮。
这个是编译好的程序
御风随机壁纸1.1.rar
(336.8 KB, 下载次数: 80)
易语言 源码 下载
随机壁纸.rar
(35.36 KB, 下载次数: 49)
有好的随机壁纸站可以替换哈，
图片数据 ＝ 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, 下载次数: 43)
| 
发表于 2024-8-24 16:50
