你QQ所在地方\qq\NewSkins\QQ2005\VBScript.vbs
第 10 行

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "(离线)"
Path = "NewSkins\\2005新春版\\"
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