怎么在QQ皮肤上添加在线计时

如果你喜欢的皮肤没有在线计时功能，你可以自己动手加上。

修改前先备份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

找到

[url=javascript:][/url]
Sub Window_OnInit()

下面的

[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”（距离左边的距离）。

照上面的方法弄了下果然可以,
上面的说太麻烦了,我给我自己刚做好了的传上来了,可以给我做好了的直接覆盖原文件就可以了
建议大家在用的时候先给原文件备份下

补充下:大家弄好了给鼠标放在自己的QQ头像上就可以显示时间了