|
发表于 2011-11-12 22:21:34
|
显示全部楼层
江苏省无锡市
一下是我写的一段代码。其实原理都是一样的,也能回答你的问题
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
播放音乐 (#我愿意为你, 真)
_资源皮肤 (#_中国风)
内存优化 ()
图片框1.图片 = #莫离
' 编辑框2.内容 = 取文本注册项 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\3\TypePath”, )
.子程序 _按钮1_被单击
图片框1.图片 = #仿会员
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Misc\LoginPanel\LogoFile\2052\Logining.gif”, #会员)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮2_被单击
图片框1.图片 = #标题效果
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Misc\LoginPanel\Main_Title.png”, #标题)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮3_被单击
.如果 (编辑框1.内容 = “”)
信息框 (“请先输入您的QQ号!”, 0, “莫离说”)
.否则
删除目录 (到文本 (编辑框2.内容) + “\Users\” + 到文本 (编辑框1.内容))
信息框 (“删除成功咯”, 0, “莫离说”)
.如果结束
.如果 (编辑框1.内容 = “莫离”)
载入 (窗口1, , 真)
.否则
.如果结束
.子程序 _按钮4_被单击
图片框1.图片 = #分组_mylove
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #mylove)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮5_被单击
图片框1.图片 = #分组_sorry
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #sorry)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮6_被单击
图片框1.图片 = #分组_红心
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #红心)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮7_被单击
图片框1.图片 = #分组_小红心
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #小红心)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮8_被单击
图片框1.图片 = #透明皮肤
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Res.rdb”, #res)
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Data.rdb”, #data)
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #Default)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮9_被单击
图片框1.图片 = #彩色分组效果
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #彩色分组)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮10_被单击
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\BaseStringBundle.xml”, #BaseStringBundle)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\CustomFaceShortcut.xml”, #CustomFaceShortcut)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\StringBundle.xml”, #StringBundle)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\AFPreLoadStringBundle.xml”, #AFPreLoadStringBundle)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\LocList.xml”, #LocList)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\AFPreLoadStringBundle.xml”, #AFPreLoadStringBundle)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\PreLoadStringBundle.xml”, #PreLoadStringBundle)
写到文件 (到文本 (编辑框2.内容) + “\Misc\LoginPanel\LogoFile\2052\Logining.gif”, #会员1)
写到文件 (到文本 (编辑框2.内容) + “\Misc\LoginPanel\Main_Title.png”, #标题1)
写到文件 (到文本 (编辑框2.内容) + “\Misc\LoginPanel\LoginPanel_window_windowBkg.png”, #过渡框1)
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Res.rdb”, #原版res)
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Data.rdb”, #原版data)
写到文件 (到文本 (编辑框2.内容) + “\Resource.1.70.2654\Themes\Default.rdb”, #原版Default)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮11_被单击
图片框1.图片 = #表情备注
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\CustomFaceShortcut.xml”, #CustomFaceShortcut1)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _按钮12_被单击
图片框1.图片 = #登陆窗口
.如果 (进程是否存在 (“QQ.exe”))
信息框 (“请先退出您的QQ,再进行修改”, 0, “莫离说”)
.否则
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\AFPreLoadStringBundle.xml”, #AFPreLoadStringBundle1)
写到文件 (到文本 (编辑框2.内容) + “\I18N\2052\PreLoadStringBundle.xml”, #PreLoadStringBundle1)
信息框 (“修改完毕”, 0, “莫离说”)
.如果结束
.子程序 _时钟1_周期事件
_漂浮变色标题 (到字节集 (“QQ2011Beta4莫离修改器”), 取窗口句柄 (), , 真) |
|