End Sub
以聊天室为例:
Sub ChatRoomButton_onClick()
Window.ExeCommand 4,1
End Sub
onClick 的意思就是当鼠标点击的时候所做的动作
, 这里执行的是 Window.ExeCommand 动作。你也可以定义其他动作。
Window.ExeCommand具体含义如下:
1,1 皮肤菜单
1,2 最小化
1,3 关闭
4,1 聊天室
4,2 发送手机短信
4,3 查找
4,4 腾讯浏览器
4,5
QQ游戏
4,6 信息管理器
4,7 颜色
4,8 个人帐户
4,9 面板选择
4,10 Mail相关
50,1 显示信息
60,2 个人设置
7,1 QQ邮件
15,1 QQ小秘书
再以IP升级器为例:
sub IPButton_onClick()
tmp="showip.exe"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(tmp)) Then
Set objShell = CreateObject("Wscript.Shell")
objShell.Run tmp
else
msgbox "发现错误啦!" & chr(10) & "找不到
QQ安装目录下的showip.exe文件",,"错误提示"
end if
End Sub
说明一点:IP升级器即使定义了功能按钮
,点击的时候仍然没有反映。这是因为IP升级器调用了外部程序(showip.exe),而QQ自带的vbscript.dll文件并不支持这一点,所以要对vbscript.dll文件进行修改。这也是为什么用我修改的QQ皮肤还要覆盖原版QQ中的vbscript.dll文件的原因。
三、删除组件
对于原版皮肤或别人发布的皮肤,皮肤中的每一个组件我们不可能都使用,我们完全可以删除自己不需要的组件,DIY出完全属于自己的个性皮肤。
删除多余组件的步骤是:
第一步,用记事本打开config.xml文件,找到多余组件所对应的代码(具体怎么找,在第一部分末尾讲得很清楚,不再罗嗦),并记下该组件所对应的id;
第二步,将config.xml文件中该组件对应的代码删除,保存修改;
第三步,用记事本打开VBScript文件,以该组件的id去掉后面的Button等字样(若有的话)为关键字进行搜索,就会在VBScript文件中查找到与该组件相关的代码,将其删除,保存修改;
第四步,将QQ皮肤目录下与该组件有关的图标删除(如果不知道删除哪个图标,这一步完全可以省去,不影响修改效果);
第五步,重新加载皮肤,效果就会生效。
======全球免费中心版权声明(本站从09-4-29开始加强免费资源版权管理)=========
不管出于何目的转载本文,请注明版权信息(包括来源和作者),否则一经发现将逐个处理。
若本站转了您的信息而未标明或标错或未找到出处而没标明的,请联系我们,2天内处理。