精易论坛

标题: 修改屏保路径 [打印本页]

---

作者: 小风明SS    时间: 2022-10-19 20:12
标题: 修改屏保路径

  

子程序名	返回值类型	公开	备 注
ChangeScreenSaverFolderOfPictures	逻辑型
参数名	类 型	参考	可空	数组	备 注
path	文本型

变量名	类 型	静态	数组	备 注
scPath	文本型
pidl	整数型

' Path ＝ 取文本注册项 (3, “SOFTWARE\Microsoft\Windows Photo Viewer\Slideshow\Screensaver\EncryptedPIDL”, )
pidl ＝ ILCreateFromPath (编码_Ansi到Unicode (path))
scPath ＝ 编码_BASE64编码 (指针到字节集 (pidl, ILGetSize (pidl)))
scPath ＝ 子文本替换 (scPath, “ ”, “+”, , , 真)
CoTaskMemFree (pidl)
返回 (写注册项 (3, “SOFTWARE\Microsoft\Windows Photo Viewer\Slideshow\Screensaver\EncryptedPIDL”, scPath))

.版本 2<br /> <br /> .子程序 ChangeScreenSaverFolderOfPictures, 逻辑型, 公开<br /> .参数 path, 文本型<br /> .局部变量 scPath, 文本型<br /> .局部变量 pidl, 整数型<br /> <br /> ' Path ＝ 取文本注册项 (3, “SOFTWARE\Microsoft\Windows Photo Viewer\Slideshow\Screensaver\EncryptedPIDL”, )<br /> <br /> pidl ＝ ILCreateFromPath (编码_Ansi到Unicode (path))<br /> <br /> scPath ＝ 编码_BASE64编码 (指针到字节集 (pidl, ILGetSize (pidl)))<br /> scPath ＝ 子文本替换 (scPath, “ ”, “+”, , , 真)<br /> <br /> CoTaskMemFree (pidl)<br /> <br /> 返回 (写注册项 (3, “SOFTWARE\Microsoft\Windows Photo Viewer\Slideshow\Screensaver\EncryptedPIDL”, scPath))

价值500块钱

修改屏保图片路径，即

HBOWASS8VY8BWJU6FIB.png (17.77 KB, 下载次数: 0)

下载附件

2022-10-19 20:12 上传

---

作者: l1334733933    时间: 2022-10-19 21:19

---

作者: 廿六    时间: 2022-10-19 21:37
还真有人去折腾这玩意

---

作者: q1512960733    时间: 2022-10-20 09:26
看一下怎么样

---

作者: sinewtec    时间: 2022-10-20 17:21
看一下怎么样

---

作者: 醉卧美人膝    时间: 2022-10-21 10:13
路过围观一下，顺便帮顶

---

作者: 已注销571294    时间: 2022-11-4 09:43
提示: 作者被禁止或删除 内容自动屏蔽

---

作者: ha2474    时间: 2022-11-16 20:24
学习一下

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4