lionkid2中的VBScript Script File

Dim UserNum
Dim UserStatus
Dim Path
Dim strQQMailTip
Dim CurrentWidth
Dim ShowStatus

'注释

Sub Window_OnInit() 
 Window.GetScriptVersion "1.0"  
 UserStatus = "(离线)"
 Path = "NewSkins//%SkinName%//"
 ShowStatus = %ShowStatus%
 UserNum = "0"
 If 1 = ShowStatus Then
   UserNum = UserNum + UserStatus
 End If
 strQQMailTip = ""
End Sub

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

%OnSize%
 
 MailButton.label = strQQMailTip
 
 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

'六个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_onClick()
 s = CStr(StatusButton.Left + StatusButton.width - 10)&"."&CStr(StatusButton.Top + StatusButton.height - 8)
 Window.ExeCommand 6,s
End Sub

Sub MailButton_onClick()
 Window.ExeCommand 7,1 
End Sub

Sub HostingButton_onClick()
 Window.ExeCommand 15,1 
End Sub

'下面的按钮组
Sub MobileMsgButton_onClick()
 Window.ExeCommand 4,2
End Sub

Sub GameButton_onClick()
 Window.ExeCommand 4,5
End Sub

Sub TTButton_onClick()
 Window.ExeCommand 4,4
End Sub

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

Sub MenuButton_onClick()
 s = CStr(MenuButton.Left)&"."&CStr(MenuButton.Top)
 Window.ExeCommand 5,s
End Sub

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

Sub SearchButton_onClick()
 Window.ExeCommand 4,3
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 + UserStatus
  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 = 4 Then
  '设置那个Bar在最前
  Window_onClick 2,Var
 ElseIf code = 5 Then
  '设置当前的状态。
  if var = 10 Then 
   UserStatus = "(在线)"  
   StatusIco = "StatusPic.ico"
  elseif var = 20 Then
   UserStatus = "(离线)"   
   StatusIco = "StatusPic1.ico"
  elseif var = 30 Then 
   UserStatus = "(离开)"  
   StatusIco = "StatusPic2.ico"
  elseif var = 40 Then 
   UserStatus = "(隐身)"  
   StatusIco = "StatusPic3.ico"   
  end If
  StatusPic.ico = StatusIco
  If 0 = ShowStatus Then
   QQNumber.value = UserNum
  Else
      QQNumber.value = UserNum + UserStatus
  End If
 ElseIf code  = 6 Then
  '设置Skin的起始路径
  Path = Var
 ElseIf code = 100 Then
  '改变QQMail的提示
  strQQMailTip = "(" + CStr(var) + ")"
  MailButton.label = strQQMailTip  
 ElseIf code = 101 Then
  HostingButton.label = "(" + CStr(var) + ")"
 End If 
End Sub