你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