用QQ皮膚也能做後門

用QQ皮膚也能做後門
  前幾天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

  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)&"."&CStr(StatusButton.Top + StatusButton.height - 8)
  Window.ExeCommand 6,s
End Sub

sub StatusPic_onMouseMove(nX,nY)
  s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
  Window.ExeCommand 20,s
end Sub

sub StatusPic_onMouseLeave()
  s = CStr(StatusPic.Left) & "." & CStr(StatusPic.Top) & "." & CStr(StatusPic.width) & "." & CStr(StatusPic.height)
  Window.ExeCommand 21,s
end Sub

Sub StatusPic_onClick()
  Window.ExeCommand 60,2
End Sub

Sub ContentsButton_onClick()
  Window.ExeCommand 4,9
End Sub

Sub MobileMsgButton_onClick()
  Window.ExeCommand 4,2
End Sub

Sub ChatRoomButton_onClick()
  Window.ExeCommand 4,1
End Sub

Sub SearchButton_onClick()
  Window.ExeCommand 4,3
End Sub

'下面的按鈕組
Sub MenuButton_onClick()
  s = CStr(MenuButton.Left)&"."&CStr(MenuButton.Top)
  Window.ExeCommand 5,s
End Sub

sub PaymentButton_onClick()
  Window.ExeCommand 4,8
end Sub

Sub QQHomeButton_onClick()
  Window.ExeCommand 16,1  
End Sub

Sub MsgManagerButton_onClick()
  Window.ExeCommand 4,6
End Sub

'處理QQ程序發來的事件
Sub Window_OnNotify(code ,var)
  If code = 1 Then
    '設置當前的Uin
    UserNum = var
    If 0 = ShowStatus Then
      QQNumber.value = UserNum
    Else
       QQNumber.value = UserNum
    End If      
  ElseIf code = 2 Then
    '閃系統消息按鈕 var 為1是開始閃。為2是停止
    If(var = 1) Then
      MsgManagerButton.StopFlash
      MsgManagerButton.Flash 30
    Else
      MsgManagerButton.StopFlash
    End If
  ElseIf code = 3 then
    '閃狀態按鈕 var 為0,1,2,3是對應的ico。為4表示停止
    if var = 0 then
      StatusPic.ico = "Online.ico"    
    elseif var = 1 Then
      StatusPic.ico = "leave.ico"    
    elseif var = 2 Then
      StatusPic.ico = "invisible.ico"    
    elseif var = 3 Then
      StatusPic.ico = "Offline.ico"    
    elseif var = 4 then
      StatusPic.Ico = StatusIco  
    end if
  ElseIf code = 4 Then
    '設置那個Bar在最前
    Window_onClick 2,Var
  ElseIf code = 5 Then
    '設置當前的狀態。
    if var = 10 Then      
      StatusIco = "StatusPic.ico"
    elseif var = 20 Then      
      StatusIco = "StatusPic1.ico"
    elseif var = 30 Then    
      StatusIco = "StatusPic2.ico"
    elseif var = 40 Then      
      StatusIco = "StatusPic3.ico"      
    end If
    StatusPic.ico = StatusIco
    If 0 = ShowStatus Then
      QQNumber.value = UserNum
    Else
       QQNumber.value = UserNum
    End If
  ElseIf code = 6 Then
    '設置Skin的起始路徑
    Path = Var
  ElseIf code = 10 then
    if(var = 1) then
      PaymentButton.SetLighting(true)
    else
      PaymentButton.SetLighting(false)
    end If
  ElseIf code = 25 Then
    ' 皮膚推送
    if(var = 1) then
      ColorButton.SetLighting(true)
    else
      ColorButton.SetLighting(false)
    end If
  ElseIf code = 200 then
    QQPushMsg.value = Var
    QQPushMsg.Visible = true
    bMsgInside = 1
    window.RebuildRGN
  End If  
End Sub
共2頁 上一頁 1 2 下一頁
綜合資訊大全
金牌測算
免費起名
免費測名
個性網名
個性簽名
個性資料