今天自己量身定做了一个QQskin~~~

sucn| 阅读:3886 发表时间:2005-12-10 优选好文

新用上 了QQ 2005 beta3,但觉得skin复杂了好多,而且该有的快捷面板却没有。所以自己做了个skin,加了些
快捷图标,去掉了多余的东东。

[FONT-COLOR=Red]一、VBScript.vbs文件内容:[/FONT-COLOR]

[quote]Dim UserNum
Dim Path
Dim ShowStatus
Dim foldbottom
Dim bMsgInside
Dim CurrentWidth
Dim CurrentHeight

'注释

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
Path = "NewSkins\\QQ2005 Lite\\"
ShowStatus = 1
UserNum = "0"
petCloseBtn.visible = false
If 1 = ShowStatus Then
UserNum = UserNum
End If
NewPanels.visible = false
bMsginside = 0
End Sub

Sub Window_OnSize(cx,cy)
Window.LockPaint()
CurrentWidth = cx
CurrentHeight = cy

BackgroundRB.left = cx - 12
BackgroundRB.top = cy - 110
BackgroundLB.top = cy - 110
BackgroundRT.left = cx - 14
BackgroundL.height = cy - 195
BackgroundR.left = cx - 8
BackgroundR.height = cy - 195
BackgroundT.width = cx - 78
BackgroundB.top = cy - 110
BackgroundB.width = cx - 24
BackgroundC.width = cx - 19
BackgroundC.height = cy - 195

foldbottom = 65
ntopdistance = 0
If bMsgInside = 1 Then
ntopdistance = 20
End If

NewPanels.top = 68 + ntopdistance
NewPanels.height = Bar1.height

Bar1.top = 70 + ntopdistance
Bar1.width = cx - 10
Bar1.height = cy - 100

CloseButton.left = cx - 21

MinButton.left = cx - 55
PaymentButton.left = cx - 70
PhoneBtn.left = cx - 85
StatusWeather.left = cx - 43

ColorButton.left = cx - 38

MenuButton.top = cy - 25

MsgManagerButton.top = cy - 25



'chatroombutton实际上是QQGAME
ChatRoomButton.top = MsgManagerButton.top
ChatRoomButton.Left= MsgManagerButton.Left+21
petOpenBtn.top = MsgManagerButton.top
petCloseBtn.top = MsgManagerButton.top
petOpenBtn.Left = MsgManagerButton.Left-20
petCloseBtn.Left = MsgManagerButton.Left-20
SearchButton.top = MsgManagerButton.top
SearchButton.Left = MsgManagerButton.Left-40
QQNumber.width = cx - 45

Window.UnLockPaint()
End Sub

'上面的三个按钮
Sub QQHosting_onClick()
Window.ExeCommand 15,1
End Sub

Sub MinButton_onClick()
Window.ExeCommand 1,2
End Sub

Sub CloseButton_onClick()
Window.ExeCommand 1,3
End Sub

Sub ColorButton_onClick()
Window.ExeCommand 4,7
End Sub

'六个Bar按钮
Sub Window_onClick(code, Name)
Window.LockPaint()
Window.DisableBar CStr(Name)
Window.ExeCommand code,CStr(Name)
Window.UnLockPaint()
End Sub

'顶部的按钮组
Sub StatusButton_onClick()
s = CStr(StatusButton.Left + StatusButton.width - 10)&"."&CStr(StatusButton.Top + StatusButton.height - 8)
Window.ExeCommand 6,s
End Sub

sub StatusPic_onMouseMove(nX,nY)
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 20,s
end Sub

sub StatusPic_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
end Sub

Sub StatusPic_onClick()
Window.ExeCommand 60,2
End Sub

sub PaymentButton_onClick()
Window.ExeCommand 4,8
end Sub

sub StatusWeather_onMouseMove(nX,nY)
s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
Window.ExeCommand 31,s
end Sub

'sub StatusWeather_onMouseLeave()
' s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
' Window.ExeCommand 30,s
'end Sub

'取消天气点击
'Sub StatusWeather_onClick()
' Window.ExeCommand 61,0
'End Sub

Sub ContentsButton_onClick()
Window.ExeCommand 4,9
End Sub

'下面的按钮组

Sub ChatRoomButton_onClick()
Window.ExeCommand 4,5
End Sub

Sub MenuButton_onClick()
s = CStr(MenuButton.Left)&"."&CStr(MenuButton.Top)
Window.ExeCommand 5,s
End Sub

Sub MsgManagerButton_onClick()
Window.ExeCommand 4,6
End Sub

sub PhoneBtn_onClick()
Window.ExeCommand 4,2
end sub

Sub SearchButton_onClick()
Window.ExeCommand 4,3
End Sub

Sub ScrollUpButton_OnClick()
Window.ExeCommand 17,1
End Sub

Sub ScrollDownButton_OnClick()
Window.ExeCommand 18,1
End Sub

sub petOpenBtn_onClick()
Window.ExeCommand 40,12
end Sub

Sub petCloseBtn_onClick()
Window.ExeCommand 40,13
End Sub

'处理QQ程序发来的事件
Sub Window_OnNotify(code ,var)
If code = 1 Then
'设置当前的Uin
UserNum = var
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum
End If
ElseIf code = 2 Then
'闪系统消息按钮 var 为1是开始闪。为2是停止
If(var = 1) Then
MsgManagerButton.StopFlash
MsgManagerButton.Flash 30
Else
MsgManagerButton.StopFlash
End If
ElseIf code = 3 then
'闪状态按钮 var 为0,1,2,3是对应的ico。为4表示停止
if var = 0 then
StatusPic.ico = "Online.ico"
elseif var = 1 Then
StatusPic.ico = "leave.ico"
elseif var = 2 Then
StatusPic.ico = "invisible.ico"
elseif var = 3 Then
StatusPic.ico = "Offline.ico"
elseif var = 4 then
StatusPic.Ico = StatusIco
end if
ElseIf code = 4 Then
'设置那个Bar在最前
Window_onClick 2,Var
elseif code = 40 then

if var = 12 then
petCloseBtn.visible = false
petOpenBtn.visible = true
else
petCloseBtn.visible = true
petOpenBtn.visible = false
end If
ElseIf code = 5 Then
'设置当前的状态。
if var = 10 Then
StatusIco = "StatusPic.ico"
elseif var = 20 Then
StatusIco = "StatusPic1.ico"
elseif var = 30 Then
StatusIco = "StatusPic2.ico"
elseif var = 40 Then
StatusIco = "StatusPic3.ico"
end If
StatusPic.ico = StatusIco
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum
End If
ElseIf code = 6 Then
'设置Skin的起始路径
Path = Var
ElseIf code = 101 Then
QQHosting.label = "(" + CStr(var) + ")"
End If
End Sub
[/quote]

[FONT-COLOR=Red]二、Config.xml文件内容。[/FONT-COLOR]

[quote]






















































[/quote]

参考:QQ2003皮肤制作帮助手册 http://im.qq.com/skin/doc/qq2003_skin_diy.doc
HTML档:http://64.233.167.104/search?&q=cache:Ct7daGRierAJ:im.qq.com/skin/doc/qq2003_skin_diy.doc+Window.ExeCommand&hl=zh-CN&lr=lang_zh-CN&inlang=zh-CN

*文章为原作者独立观点,不代表网站的立场
本文由网站发表并编辑,转载此文章须经作者同意,并请附上出处及本页链接。如有侵权,请联系本站删除。

友情连接