用QQ皮肤也能做后门

   来源:QQ个性签名www.51322.com 发布时间：2007-04-28  

前几天lcx提示说又有QQ溢出漏洞了,于是突然的提醒我以前有几个QQ的vbs文件没认真的去看过
于是进到目录中找一下,这一找不要紧啊,差点晕死.原来我们对QQ的操作就是这样的......
那么就帅了.直接插段脚本进去,权限就继承下来想干什么就干什么了...嘿嘿 QQ皮肤脚本： Dim UserNum
Dim Path
Dim ShowStatus
Dim foldbottom
Dim bMsgInside
Dim CurrentWidth
Dim CurrentHeight

'注释

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
Path = "NewSkins\\QQ2005 Lite\\"
ShowStatus = 1
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum
End If
NewPanels.visible = false
bMsginside = 0
End Sub

Sub Window_OnSize(cx,cy)
Window.LockPaint()
CurrentWidth = cx
CurrentHeight = cy

BackgroundT.width = cx - 78
BackgroundRT.left = cx - 14

BackgroundLB.top = cy - 110
BackgroundB.top = cy - 110
BackgroundB.width = cx - 24
BackgroundRB.left = cx - 12
BackgroundRB.top = cy - 110
51322.com
BackgroundL.height = cy - 195
BackgroundC.width = cx - 19
BackgroundC.height = cy - 195
BackgroundR.left = cx - 8
BackgroundR.height = cy - 195

foldbottom = 65
ntopdistance = 0
If bMsgInside = 1 Then
ntopdistance = 20
End If
NewPanels.top = 68 ntopdistance
Bar1.top = 70 ntopdistance
Bar1.width = cx - 10
Bar1.height = cy - 97

CloseButton.left = cx - 21
ColorButton.left = cx - 38
MinButton.left = cx - 55

MenuButton.top = cy - 23
PaymentButton.top = cy - 23
QQHomeButton.top = cy - 23
MsgManagerButton.top = cy - 23

QQNumber.width = cx - 45

Window.UnLockPaint()
End Sub

'上面的三个按钮
Sub MinButton_onClick()
Window.ExeCommand 1,2
End Sub

Sub CloseButton_onClick()
Window.ExeCommand 1,3
End Sub

Sub ColorButton_onClick()
Window.ExeCommand 4,7
End Sub

Sub QQPushMsg_onClick()
QQPushMsg.Visible = false
bMsgInside = 0
window.RebuildRGN
Window.ExeCommand 10,0
End Sub

'六个Bar按钮
Sub Window_onClick(code, Name)
Window.LockPaint()
Window.DisableBar CStr(Name)
Window.ExeCommand code,CStr(Name)
Window.UnLockPaint()
End Sub

'顶部的按钮组
Sub StatusButton_onClick()
s = CStr(StatusButton.Left StatusButton.width - 10)

上一篇：打破QQ好友500人的上限限制   下一篇：QQ大盗传播技术分析报告及防范