|
发表于 2007 年 5 月 16 日 20:22:53
|
显示全部楼层
几个常用的QQ皮肤修改方法
(适用于sc0328的milk iChat for QQ2004II β3)
milk iChat SC 侧栏在右边的:
milk iChat SC 侧栏在左边的:
默认不打开侧栏,拉伸时不会”蹦出“侧栏,默认图像为pic1
以sc0328的milk iChat for QQ2004II β3为例。
友情提醒:当你找不到某一行时,请用搜索
(注意:可能不适应于其它风格的皮肤)
1、打开QQ时,默认头像显示为pic1的修改方法
<vbscript.vbs>
--------------------------------------------------
'更换头像
pic1.visible = true '原来是false
pic2.visible = false
...
pic10.visible = false
StatusPic.visible = false '原来是true
sub pic10_onClick()
Window.LockPaint()
pic10.visible = false
pic9.visible = false
...
pic1.visible = false
StatusPic.visible = true '添加上这一行
Window.UnLockPaint()
end sub
---------------------------------------------------
2、打开QQ时,默认隐藏侧栏,且在拉伸时不显示侧栏的修改方法
(侧栏仍可以用,在有侧栏时,拉伸也显示侧栏)
<vbscript.vbs>
---------------------------------------------------
Dim UseNum
...
Dim CurrentWidth
Dim barflag '添加上这一行
sub Window_OnInit()
Window.GetScriptVersion "1.0"
...
UseNumWidth = MyQQNum.width
barflag = 0 '添加上这一行
End sub
IF barflag = 1 THEN '
Bar1.width = BarFrame.width - 30 '这里原来是Bar1.width = BarFrame.width - 30,请用这五行替换之
ELSE '
Bar1.width = BarFrame.width '
END IF '
Bar1.height = BarFrame.height - 4
sub DisableBarBtn_onClick()
Window.LockPaint()
barflag = 0 '添加这一行
...
end sub
sub ShowBarBtn_onClick()
Window.LockPaint()
barflag = 1 '添加这一行
...
end sub
'设置那个Bar在最前
'Window_onClick 2,Var '去掉这一行
------------------------------------------------------------
3、彻底去掉侧栏的方法(再也见不到侧栏了)
<vbscript.vbs>
------------------------------------------------------------
Bar1.width = BarFrame.width '- 30 '去掉-30...
Bar1.width = BarFrame.width '- 30 '去掉-30...
'Window_onClick 2,Var '去掉这一行
------------------------------------------------------------
4、经常问到的一个问题,其实最简单,修改默认的最小宽度和高度
<config.xml>
------------------------------------------------------------
<Window minWidth="160" maxWidth="280" minHeight="334" maxHeight="600" clippingColor="#00FF00">
修改minWidth和minHeight的值
-----------------------------------------------------------------
暂时只想到这么多,还有什么问题欢迎探讨。 |
|