如果你喜欢的皮肤没有在线计时功能，你可以自己动手加上。
修改前先备份QQ皮肤目录中的 Config.xml 和 VBScript.vbs 文件
打开皮肤文件夹里的VBScript.vbs，找到
[url=javascript:][/url]
Sub Window_OnInit()
在上面添加
[url=javascript:][/url]
Dim startDate,startHour,startMinute,startSecond,endDate,endHour,endMinute,endSecond此信息来自:永久免费网（http://www.farfree.com）转载请保留信息正确性,谢谢！
找到
[url=javascript:][/url]
Sub Window_OnInit()此信息来自:永久免费网（http://www.farfree.com）转载请保留信息正确性,谢谢！
下面的
[url=javascript:][/url]
strTenpayTip = ""
和
[url=javascript:][/url]
ImSearchPlugin.bInside = FALSE
在中间添加
[url=javascript:][/url]
startDate = Date
startHour = Hour(Now)
startMinute = Minute(Now)
startSecond = Second(Now)
找到
[url=javascript:][/url]
Sub CalcStatusPos(cx, cy)
在上面添加
[url=javascript:][/url]
Function TimeDiff(ByVal sBegin_Hour,ByVal sBegin_Minute,ByVal sBegin_Second,ByVal sBegin_Date,ByVal sEnd_Hour,ByVal sEnd_Minute,ByVal sEnd_Second,ByVal sEnd_Date)
Dim iHourB,iMinuteB,iSecondB
Dim iHourE,iMinuteE,iSecondE
Dim dTimeB,dTimeE,dTimeDiff
Dim iHour,iMinute,iSecond
Dim Diff
iHourB = clng(sBegin_Hour)
iMinuteB = clng(sBegin_Minute)
iSecondB = clng(sBegin_Second)
iHourE = clng(sEnd_Hour)
iMinuteE = clng(sEnd_Minute)
iSecondE = clng(sEnd_Second)
Diff = DateDiff("d",sBegin_Date,sEnd_Date)
iHourE = iHourE + 24 * Diff
dTimeB = iHourB * 3600 + iMinuteB * 60 + iSecondB
dTimeE = iHourE * 3600 + iMinuteE * 60 + iSecondE
dTimeDiff = dTimeE - dTimeB
iHour = Int(dTimeDiff / 3600)
dTimeDiff = dTimeDiff - iHour * 3600
iMinute = Int(dTimeDiff / 60)
dTimeDiff = dTimeDiff - iMinute * 60
iSecond = Int(dTimeDiff)
dTimeDiff = dTimeDiff - Int(dTimeDiff)
iMiniSecond = dTimeDiff
TimeDiff = iHour & "时" & iMinute & "分" & iSecond & "秒"
End Function
找到
[url=javascript:][/url]
sub StatusPic_onMouseMove(nX,nY)
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 20,s
end Sub
改成
[url=javascript:][/url]
sub StatusPic_onMouseMove(nX,nY)
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 20,s
endDate = Date
endHour = Hour(Now)
endtMinute = Minute(Now)
endSecond = Second(Now)
OnlineTime.value = "在线计时 " & CStr(TimeDiff(startHour,startMinute,startSecond,startDate,endHour,endtMinute,endSecond,endDate))
QZoneMsgCenterButton.visible=false
MailButton.visible=false
PaymentButton.visible=false
SosoButton.visible=false
OnlineTime.visible=true
end Sub
找到
[url=javascript:][/url]
sub StatusPic_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
end Sub
改成
[url=javascript:][/url]
sub StatusPic_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
OnlineTime.visible=false
QZoneMsgCenterButton.visible=true
MailButton.visible=true
PaymentButton.visible=true
SosoButton.visible=true
end Sub
再打开Config.xml，找到
[url=javascript:][/url]
<Text id="QQCaption" left="65" top="5" width="109" height="13" zIndex="26" value="" color="#0b5b98" hoverColor="#0b5b98" bgMode = "clarity" borderShow = "FALSE" ellipsis="TRUE" f f f active="false" visible="true" link="false"/>
在上一行添加下面代码
[url=javascript:][/url]
<Text id="OnlineTime" left="65" top="59" width="150" height="17" zIndex="50" value="" color="#1b4f74" hoverColor="#FFFFFF" f f f f active="false" visible="false" link="false"/>
你的皮肤文件中，代码可能有些出入，修改方法大同小异。如果位置有些不太合适，适当修改上面代码中的top="59" 中的59（距离上边的距离）和left="65"中的“65”（距离左边的距离）。
