修改前先备份Config.xml和VBScript.vbs文件
打开皮肤文件夹里的VBScript.vbs找到Sub Window_OnInit()的上一行添加
Dim startDate,startHour,startMinute,startSecond,endDate,endHour,endMinute,endSecond
找到
Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "[离线]"
Path = "NewSkins\\QQ2007\\"
ShowStatus = 1
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum + UserStatus
End If
strQQMailTip = ""
End Sub
改成
Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "[离线]"
Path = "NewSkins\\QQ2007\\"
ShowStatus = 1
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum + UserStatus
End If
strQQMailTip = ""
bMsginside = 0
PlugCloseState = 0
PetState = 1
bShowDNA = 0
strTenpayTip = ""
startDate = Date
startHour = Hour(Now)
startMinute = Minute(Now)
startSecond = Second(Now)
End Sub
找到Sub CalcStatusPos(cx, cy)的上一行添加
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 ColorButton_onClick()
Window.ExeCommand 4,7
End Sub
改成
Sub ColorButton_onClick()
Window.ExeCommand 4,7
endDate = Date
endHour = Hour(Now)
endtMinute = Minute(Now)
endSecond = Second(Now)
OnlineTime.value = "在线计时 " & CStr(TimeDiff(startHour,startMinute,startSecond,startDate,endHour,endtMinute,endSecond,endDate))
MailButton.visible=false
PaymentButton.visible=false
OnlineTime.visible=true
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_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))
MailButton.visible=false
PaymentButton.visible=false
OnlineTime.visible=true
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_onMouseLeave()
s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
Window.ExeCommand 21,s
OnlineTime.visible=false
MailButton.visible=true
PaymentButton.visible=true
end Sub
再找Config.xml文件里找
<Text id="QQCaption" left="65" top="4" width="109" height="13" zIndex="26" value="" color="#FFFFFF" hoverColor="#FFFFFF" bgMode = "clarity" borderShow = "FALSE" ellipsis="TRUE" fontFamily="tahoma" fontSize="9" fontWeight="700" active="false" visible="true" link="false"/>
<PlugItem id="StatusEdit" visible="false" top = "29" left = "63" width = "150" height = "18" itemID ="1004" />上一行添加下面代码
<Text id="OnlineTime" left="52" top="52" width="150" height="17" zIndex="50" value="" color="#4D4DFF" hoverColor="#FFFFFF" fontFamily="MS Sans Serif" fontSize="8" fontStyle="" fontWeight="700" active="false" visible="false" link="false"/>
