孤三风QQ综合资源站

<<  QQ自动登陆创建器 | 首 页 | 电脑上玩混沌六欲天（电脑上玩手机网游）  >>

• QQ皮肤添加在线计时的方法 - [QQ实用技术]

  2008-10-03

  Tag：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" fontFamily="Tahoma" fontSize="8" fontWeight="400" 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" fontFamily="MS Sans Serif" fontSize="8" fontStyle="" fontWeight="700" active="false" visible="false" link="false"/>
  
  你的皮肤文件中，代码可能有些出入，修改方法大同小异。如果位置有些不太合适，适当修改上面代码中的top="59" 中的59（距离上边的距离）和left="65"中的“65”（距离左边的距离）

  
  
  
  
  
  引用地址：

  孤三风 发表于01:24:01 | 编辑 | 继续话题 | 转发 | 分享　0