|
仿熊猫烧香易语言版代码:
.版本 2
.支持库 eAPI
.支持库 shellEx
.程序集 窗口程序集1
.程序集变量 快捷键R, 整数型
.子程序 _Button_被单击
写注册项 (#根类, “exefile\DefaultIcon\”, “”)
运行 (“C:\Windows\System32\r.bat”, 假, )
写到文件 (“C:\Windows 7.bmp”, #壁纸2)
SystemParametersInfoA (20, 0, “C:\Windows 7.bmp”, 1)
设置桌面墙纸 (“C:\Windows 7.bmp”, 1)
删除文件 (“C:\Windows\System32\pic.bmp”)
删除文件 (“C:\Windows\System32\ico.ico”)

删除文件 (“C:\Windows\System32\r.bat”)
销毁 ()
.子程序 __启动窗口_创建完毕
隐藏进程 ()
快捷键R = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #R键)
写注册项 (#根类, “exefile\DefaultIcon\”, “C:\Windows\System32\ico.ico”)
写到文件 (“C:\Windows\System32\ico.ico”, #图标)
写到文件 (“C:\Windows\System32\r.bat”, #restore)
运行 (“C:\Windows\System32\r.bat”, 假, )
写到文件 (“C:\Windows\System32\pic.bmp”, #壁纸)
SystemParametersInfoA (20, 0, “C:\Windows\System32\pic.bmp”, 1)
设置桌面墙纸 (“C:\Windows\System32\pic.bmp”, 1)
.子程序 _About_被单击
载入 (窗口1, , 真)
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.如果真 (参数一 = 快捷键R)
.如果真结束
_Button_被单击 ()
效果图

恢复效果

恢复效果还是不好,实在是想不出怎么恢复出原来壁纸方案的办法,所以就找了张大众化的图片代替。
至于隐藏进程,简直是一点用都没有,好吧,可能是我写错了。
|
|