Opera 自娱自乐

从一款QQ皮肤中提取出来，在QQ2007精简皮肤上实验成功，改了下颜色。
时间显示是动态的，皮肤使用后就开始计时。

一、 在VBScript.vbs中添加：

'时间
Dim startDate
Dim startHour
Dim startMinute
Dim startSecond
Dim endDate
Dim endHour
Dim endMinute
Dim endSecond

'计时
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 

Sub xntime_onStopRun()

       '-----Time.visible = "true"
        xntime.Start  
        endDate = Date
        endHour = Hour(Now)
        endtMinute = Minute(Now)
        endSecond = Second(Now)
        Time.value ="" &  CStr(TimeDiff(startHour,startMinute,startSecond,startDate,endHour,endtMinute,endSecond,endDate))
        
End Sub

然后在“'初始化
Sub Window_OnInit()”区段中找个地方添加：

 xntime.start'时间
        startDate = Date
        startHour = Hour(Now)
        startMinute = Minute(Now)
        startSecond = Second(Now)

二、 在Config.xml中添加：

 <Text id="Time" left="20" top="55" width="150" height="15" zIndex="32" value=""  color="#DC143C" hoverColor="#000000" fontFamily="MS Sans Serif" fontSize="12" fontStyle="" fontWeight="600" active="false" visible="true" link="false"/>
              <GifPicture id="xntime"  left = "0" top = "0" width = "1" height = "1" zIndex="1" image = "xntime.gif"  visible="false" />

注意left="20" top="55"根据自己皮肤定义位置。

三、 显示图像的image = "xntime.gif"不要忽略了，添加在皮肤文件中。否则皮肤无法正常显示时间且出错。
其实是一个空白的图像。xntime.rar

四、 附上我修改的QQ皮肤如上图所示。另说明“网络硬盘”与“QQ好友面板”切换按钮隐藏在皮肤顶端的“QQ2007”处；“修改个人资料”按钮隐藏在QQ号码的开始处；“更改状态”按钮隐藏在QQ号码后的（在线）处。
QQ2007清爽.rar