|
|
仿熊貓燒香易語言版代碼：
.版本 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_被單擊 ()
效果圖
恢復效果
恢復效果還是不好，實在是想不出怎么恢復出原來壁紙方案的辦法，所以就找了張大眾化的圖片代替。
至于隱藏進程，簡直是一點用都沒有，好吧，可能是我寫錯了。
|
|
