你QQ所在地方qqNewSkinsQQ2005VBScript.vbs
第 10 行左右
Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "(离线)"
Path = "NewSkins2005新春版"
ShowStatus = 1
UserNum = "0"
petCloseBtn.visible = false
If 1 = ShowStatus Then
UserNum = UserNum UserStatus
End If
strQQMailTip = ""
End Sub
Sub Window_OnSize(cx,cy)
Window.LockPaint()
CurrentWidth = cx
BackgroundRB.left = cx - 15
BackgroundRB.top = cy - 55
BackgroundLB.top = cy - 55
BackgroundRT.left = cx - 15
BackgroundL.height = cy - 125
BackgroundR.left = cx - 15
BackgroundR.height = cy - 125
BackgroundT.width = cx - 75
BackgroundB.top = cy - 55
BackgroundB.width = cx - 75
BackgroundC.width = cx - 75
BackgroundC.height = cy - 125
后面加
MusicPlayer.height = 0
MusicPlayer.width = 0
MusicPlayer.bInside = FALSE
【去掉QQ2005音乐条的方法】相关文章：