你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