lionkid2中的VBScript Script File

最新推荐文章于 2022-12-31 22:19:24 发布

原创最新推荐文章于 2022-12-31 22:19:24 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #path #file #qq

qq皮膚专栏收录该内容

4 篇文章

订阅专栏

此博客展示了用VBScript编写的代码，用于处理QQ程序相关事件。代码中定义了用户编号、状态、路径等变量，包含窗口初始化、大小改变、按钮点击等事件处理，还能根据QQ程序发来的不同代码执行相应操作，如设置用户状态、改变提示信息等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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