用InterDev抓到的QQ2003的VBScript

Question

sub TencentServerBar_onClick()
 Window.LockPaint
 'CornerHeight = 43*2
 'corner.top = BarBtns.Top + CornerHeight
 FriendBar.disabled = False
     TencentServerBar.disabled = True
     MobileBar.disabled = False
     BQQBar.disabled = False
     ContentBar.disabled = False
     CustomBar.disabled = False
 Window.ExeCommand 2,1
 Window.UnLockPaint()
end subsub MobileBar_onClick()
 Window.LockPaint
 'CornerHeight = 43*3
 'corner.top = BarBtns.Top + CornerHeight
 FriendBar.disabled = False
     TencentServerBar.disabled = False
     MobileBar.disabled = True
     BQQBar.disabled = False
     ContentBar.disabled = False
     CustomBar.disabled = False
 Window.ExeCommand 2,2
 Window.UnLockPaint()
end subsub BQQBar_onClick()
 Window.LockPaint
 'CornerHeight = 43*4
 'corner.top = BarBtns.Top + CornerHeight
 FriendBar.disabled = False
     TencentServerBar.disabled = False
     MobileBar.disabled = False
     BQQBar.disabled = True
     ContentBar.disabled = False
     CustomBar.disabled = False
 Window.ExeCommand 2,3
 Window.UnLockPaint()
end Subsub ContentBar_onClick()
 Window.LockPaint
 'CornerHeight = 43*4
 'corner.top = BarBtns.Top + CornerHeight
 FriendBar.disabled = False
     TencentServerBar.disabled = False
     MobileBar.disabled = False
     BQQBar.disabled = False
     ContentBar.disabled = True
     CustomBar.disabled = False
 Window.ExeCommand 2,4
 Window.UnLockPaint()
end subsub CustomBar_onClick()
 Window.LockPaint
 'CornerHeight = 43*4
 'corner.top = BarBtns.Top + CornerHeight
 FriendBar.disabled = False
     TencentServerBar.disabled = False
     MobileBar.disabled = False
     BQQBar.disabled = False
     ContentBar.disabled = False
     CustomBar.disabled = True
 Window.ExeCommand 2,5
 Window.UnLockPaint()
end sub
'上面的那个球球
sub QQBall_onClick()
 Window.ExeCommand 3,1
end sub'下面的按钮组
sub ChatBtn_onClick()
 Window.ExeCommand 4,1
end subsub PhoneBtn_onClick()
 Window.ExeCommand 4,2
end subsub searchBtn_onClick()
 Window.ExeCommand 4,3
end subsub TeBtn_onClick()
 Window.ExeCommand 4,4
end subsub GameBtn_onClick()
 Window.ExeCommand 4,5
end subsub SysMsgBtn_onClick()
 Window.ExeCommand 4,6
end subsub QQMain_onClick()
 s = CStr(QQMain.Left)&"."&CStr(QQMain.Top)
 Window.ExeCommand 5,s
end subsub StatusBtn_onClick()
 s = CStr(StatusBtn.Left)&"."&CStr(StatusBtn.Top)
 Window.ExeCommand 6,s
end SubSub QQMailTip_onClick()
 Window.ExeCommand 7,1
End Subsub DisableBarBtn1_onClick() Window.LockPaint()
 showbar = False
 QQ.image = Path&"qq2003_1.bmp"
 QQ.width = 45    DisableBarBtn1.visible = False
 DisableBarBtn2.visible = True
 TitleR1.visible = true
 TitleBtns1.visible = true
        Celltopcorner1.visible = true Window.minWidth = 104
 Window.width = Window.width - 10
 Window.UnLockPaint()
end subsub DisableBarBtn2_onClick()
 Window.LockPaint()
 showbar = True
 QQ.image = Path&"qq2003.bmp"
 QQ.width = 54
 QQ1.image = Path&"2003.bmp"
 QQ1.width = 18
    DisableBarBtn1.visible = True
 DisableBarBtn2.visible = False
 TitleR1.visible = True
 TitleBtns1.visible = True cx = Window.width
        Celltopcorner1.visible = False
 Window.minWidth = 114
 Window.width = cx + 10
 Window.UnLockPaint()
end Sub'处理QQ程序发来的事件
Sub Window_OnNotify(code ,var)
 if code = 1 then
  '设置当前的Uin
  UseNum = var
  MyQQNum.value = UseNum
  'MyQQNum.width = BarFrame.width - 9  'MaxWidth = BarFrame.width - 9
  'offset = MyQQNum.width - MaxWidth  'if offset>0 then
   'MyQQNum.width = MyQQNum.width - offset
  'end if
 elseif code = 2 then
  '闪系统消息按钮 var 为1是开始闪。为2是停止
  if(var = 1) then
   SysMsgBtn.StopFlash
   SysMsgBtn.Flash 30
  else
   SysMsgBtn.StopFlash
  end if
 elseif code = 3 then
  '闪状态按钮 var 为0,1,2,3是对应的ico。为4表示停止
  if var = 0 then
   StatusBtn.ico = "Online.ico"
  elseif var = 1 then
   StatusBtn.ico = "na.ico"
  elseif var = 2 then
   StatusBtn.ico = "invisible.ico"
  elseif var = 3 then
   StatusBtn.ico = "Offline.ico"
  elseif var = 4 then
   StatusBtn.ico = StatusIcon
  end if
 elseif code = 4 then
  '设置那个Bar在最前
  if var = 0 then
   FriendBar_onClick()
  elseif var = 1 then
   TencentServerBar_onClick()
  elseif var = 2 then
   MobileBar_onClick()
  elseif var = 3 then
   BQQBar_onClick()
  elseif var = 4 then
   ContentBar_onClick()
  elseif var = 5 then
   CustomBar_onClick()
  end if
 elseif code = 5 then
  '设置当前的状态。
  if var = 10 Then
   UseStatus = "在线"
   StatusIcon = "Online.ico"
  elseif var = 20 Then
   UseStatus = "离线"
   StatusIcon = "Offline.ico"
  elseif var = 30 Then
   UseStatus = "离开"
   StatusIcon = "na.ico"
  elseif var = 40 Then
   UseStatus = "隐身"
   StatusIcon = "invisible.ico"
  end if
  StatusBtn.ico = StatusIcon
  If 60 > StatusBtn.width Then
   StatusBtn.Label = ""
  Else
   StatusBtn.Label = UseStatus
  End If
  'MyQQStatus.value = UseStatus
 elseif code  = 6 then
  '设置Skin的起始路径
  Path = Var
 ElseIf code = 7 Then
  '改变QQMail的提示，没有邮件
  strQQMailTip = Var
  QQMailTip.label = strQQMailTip
 ElseIf code = 8 Then
  '改变QQMail的提示，有新邮件
  strQQMailTip = Var
  QQMailTip.label = strQQMailTip
 end if
end sub