1个回复

必须说“我是猪”才能登陆qq的方法

楼层直达

酷新

ZxID：8180422

等级: 准尉

★年轻人★

举报只看楼主使用道具楼主发表于: 2009-08-08 0

1.先把QQ下了.. 把下面代码复制保存为VBS脚本文件.

2.找QQ安装目录 C:\Program Files\QQ\NewSkins\QQ:2008 根据自己的安装路径去找

然后把那个VBS脚本出来直接粘贴到↑这个目录下.....

3.完成了... 去登陆QQ试试吧..

只要是这台机器上登陆任何QQ 必须输入“我是猪”才能让你登陆的.. 当然也可以更改其内容了

也是很简单的比如说改成“我爱你”“XXX我爱你”呵呵是不是挺有意思的....

要是有人不会改的话跟帖说一下就可以了...

复制从下面开始
dim a
const pass="我是猪"
do
a=inputbox("快说我是猪，不说不能上！快说“我是猪”")
if a=pass then
msgbox("真听话")
exit do
end if
loop

Dim UserNum
Dim UserStatus
Dim Path
Dim strQQMailTip
Dim ShowStatus
Dim foldbottom
Dim bMsgInside
Dim CurrentWidth
Dim CurrentHeight
Dim PlugMngHeight
Dim PlugCloseState
Dim PetState
Dim ntopdistance
Dim nYellowBanner
Dim nSearchBanner
Dim bShowDNA
Dim strTenpayTip
Dim bShowSoso
'注释

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "[离线]"
Path = "NewSkins\\2006\\"
ShowStatus = 1
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum + UserStatus
End If
strQQMailTip = ""
bMsginside = 0
PlugCloseState = 0
PetState = 1
bShowDNA = 0
bShowSoso = 0
strTenpayTip = ""
ImSearchPlugin.bInside = FALSE
End Sub

Sub AdjustStatuePanelSize()
QZoneMsgCenterButton.width = 16 + QZoneMsgCenterButton.textlength + 6

MailButton.left = QZoneMsgCenterButton.left + QZoneMsgCenterButton.width
MailButton.width = 16 + MailButton.textlength + 6

PaymentButton.left = MailButton.left + MailButton.width
If PaymentButton.textlength > 0 Then
PaymentButton.width = 16 + PaymentButton.textlength + 6
else
PaymentButton.width = 16 + 12
End If

SosoButton.left = PaymentButton.left + PaymentButton.width
If SosoButton.textlength > 0 Then
SosoButton.width = 16 + SosoButton.textlength + 6
else
SosoButton.width = 16 + 12
End If
End Sub

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

BackgroundRB.left = cx - 12
BackgroundRB.top = cy - 110
BackgroundLB.top = cy - 110
BackgroundRT.left = cx - 79
BackgroundRT2.left = cx - 115
BackgroundL1.height = cy - 141 - 146
BackgroundL2.top = BackgroundL1.top + BackgroundL1.height
BackgroundL2.height = 146
BackgroundR.left = cx - 35
BackgroundR.height = cy - 64
BackgroundT.width = cx - 143
BackgroundT2.width = cx - 173
BackgroundB.top = cy - 110
BackgroundB.width = cx - 35
BackgroundC.width = cx - 19
BackgroundC.height = cy - 141

GameButton.left = MobileMsgButton.left + 27
TTButton.left = GameButton.left + 27
ChatRoomButton.left = TTButton.left + 27
petOpenBtn.left = ChatRoomButton.left + 27
QQMusic.left = petOpenBtn.left + 27
QQTV.left = QQMusic.left + 27

foldbottom = 62
PlugMngHeight = 6

ntopdistance = 0
nYellowBanner = 0
QQPushMsgPlug.AdjustHeight(cx - 4)

If nYellowBanner > 0 Then
QQPushMsgPlug.width = cx - 4
QQPushMsgPlug.Height = nYellowBanner
QQPushMsgPic.width = cx - 6
QQPushMsgPic.Visible = TRUE
ntopdistance = nYellowBanner
Else
QQPushMsgPic.Visible = FALSE
End If

If ImSearchPlugin.bInside Then
nSearchBanner = 0
ImSearchPlugin.AdjustHeight(cx)
ImSearchPlugin.left = 0
ImSearchPlugin.width = cx
ImSearchPlugin.Height = nSearchBanner
If (nYellowBanner > 0) Then
ImSearchPlugin.top = 89 + ntopdistance
Else
ImSearchPlugin.top = 88 + ntopdistance
End If
ntopdistance = ntopdistance + nSearchBanner
Else
ImSearchPlugin.left = 0
ImSearchPlugin.width = 0
ImSearchPlugin.Height = 0
ImSearchPlugin.top = 88 + ntopdistance
End If
If (nYellowBanner > 0) Then
FolderBackgroundLT.top = 90 + ntopdistance
FolderBackgroundRT.top = 90 + ntopdistance
FolderBackgroundT.top = 89 + ntopdistance
Else
FolderBackgroundLT.top = 88 + ntopdistance
FolderBackgroundRT.top = 88 + ntopdistance
FolderBackgroundT.top = 88 + ntopdistance
End If

If (nYellowBanner > 0) Then
FolderBackgroundL.top = 91 + ntopdistance
FolderBackgroundR.top = 91 + ntopdistance
FolderBackgroundC.top = 91 + ntopdistance
Else
FolderBackgroundL.top = 89 + ntopdistance
FolderBackgroundR.top = 89 + ntopdistance
FolderBackgroundC.top = 89 + ntopdistance
End If

If (nYellowBanner > 0) Then
NewPanels.top = 89 + ntopdistance
Else
NewPanels.top = 88 + ntopdistance
End If

NewPanels.width = 35

If (nYellowBanner > 0) Then
Bar1.top = 91 + ntopdistance
Else
Bar1.top = 90 + ntopdistance
End If

StatusWeather.left = cx - 43
Container_Up.top = 25
Container_Up.left = StatusButton.left + StatusButton.width
Container_Up.width = cx - Container_Up.left - StatusWeather.width - 10
Container_Up.height = 68

Container_Down.top = cy - 65
Container_Down.left = 0
Container_Down.width = cx
Container_Down.height = 65

If(cx < QQTV.left + QQTV.width) Then
QQTV.Visible = False
Else
QQTV.Visible = True
End If

If(PetState = 1) Then
petOpenBtn.Visible = TRUE
petCloseBtn.Visible = FALSE
Else
petCloseBtn.Visible = TRUE
petOpenBtn.Visible = FALSE
End If

If(PlugCloseState = 0) Then
FolderBackgroundRB.left = cx - 5
FolderBackgroundRB.top = cy - foldbottom - PlugMngHeight
FolderBackgroundLB.top = cy - foldbottom - PlugMngHeight
FolderBackgroundRT.left = cx - 5
If (ntopdistance > 0) Then
FolderBackgroundL.height = cy - 132 - ntopdistance - PlugMngHeight
Else
FolderBackgroundL.height = cy - 130 - ntopdistance - PlugMngHeight
End If
FolderBackgroundR.left = cx - 5
If (ntopdistance > 0) Then
FolderBackgroundR.height = cy - 141 - ntopdistance - PlugMngHeight
Else
FolderBackgroundR.height = cy - 139 - ntopdistance - PlugMngHeight
End If
FolderBackgroundT.width = cx - 35
FolderBackgroundB.top = cy - foldbottom -PlugMngHeight
FolderBackgroundB.width = cx - 35
FolderBackgroundC.width = cx - 40
If (ntopdistance > 0) Then
FolderBackgroundC.height = cy - 142 - ntopdistance - PlugMngHeight
Else
FolderBackgroundC.height = cy - 140 - ntopdistance - PlugMngHeight
End If
Else'全部关闭
FolderBackgroundRB.left = cx - 5
FolderBackgroundRB.top = cy - foldbottom
FolderBackgroundLB.top = cy - foldbottom
FolderBackgroundRT.left = cx - 5
If (ntopdistance > 0) Then
FolderBackgroundL.height = cy - 132 - ntopdistance
Else
FolderBackgroundL.height = cy - 130 - ntopdistance
End If
FolderBackgroundR.left = cx - 5
If (ntopdistance > 0) Then
FolderBackgroundR.height = cy - 141 - ntopdistance
Else
FolderBackgroundR.height = cy - 139 - ntopdistance
End If
FolderBackgroundT.width = cx - 35
FolderBackgroundB.top = cy - foldbottom
FolderBackgroundB.width = cx - 35
FolderBackgroundC.width = cx - 40
If (ntopdistance > 0) Then
FolderBackgroundC.height = cy - 157 - ntopdistance
Else
FolderBackgroundC.height = cy - 155 - ntopdistance
End If
End If

If MainSearchDlg.bInside = True Then
FolderBackgroundRB.top = FolderBackgroundRB.top - MainSearchDlg.height
FolderBackgroundLB.top = FolderBackgroundLB.top - MainSearchDlg.height
FolderBackgroundB.top = FolderBackgroundB.top - MainSearchDlg.height
FolderBackgroundL.height = FolderBackgroundL.height - MainSearchDlg.height
FolderBackgroundR.height = FolderBackgroundR.height - MainSearchDlg.height
FolderBackgroundC.height = FolderBackgroundC.height - MainSearchDlg.height
End if

ToolBarBackgroundC.top = cy - 68
ToolBarBackgroundC.width = cx - 30
ToolBarBackgroundL.top = ToolBarBackgroundC.top
ToolBarBackgroundR.left = cx - 68
ToolBarBackgroundR.top = ToolBarBackgroundC.top

PlugMngButton_Down.left = 0
PlugMngButton_Up.left = 0
PlugMngButton_Down.width = cx
PlugMngButton_Up.width = cx

If PlugMngButton_Down.Visible = TRUE Then
PlugMngButton_Down.top = FolderBackgroundB.top
PlugMngButton_Down.height = 6
ArrowHead_Down.top = PlugMngButton_Down.top
ArrowHead_Down.left = (cx -6)/2
End If
if PlugMngButton_Up.Visible = TRUE Then
PlugMngButton_Up.top = FolderBackgroundB.top
PlugMngButton_Up.height = 6
ArrowHead_Up.top = PlugMngButton_Up.top
ArrowHead_Up.left = (cx-6)/2
End If

CloseButton.left = cx - 35

MinButton.left = cx - 96

QQCaption.width = MinButton.left - QQCaption.left - 2
ColorButton.left = cx - 66

AdjustStatuePanelSize()
MobileMsgButton.top = cy - 55
GameButton.top = cy - 55
TTButton.top = cy - 55
ChatRoomButton.top = cy - 55
petCloseBtn.top = cy - 55
petOpenBtn.top = cy - 55
QQTV.top = cy - 55
QQMusic.top = cy - 55

MenuButton.top = cy - 34

MsgManagerButton.top = cy - 26

SearchButton.top = cy - 26

PrivilegeButton.top = cy - 27
CalcStatusPos cx, cy

Bar1.width = cx - 43

Bar1.LockPaint()
MainSearchDlg.LockPaint()

If PlugCloseState = 1 Then
If (ntopdistance > 0) Then
Bar1.height = cy - 159 - ntopdistance
Else
Bar1.height = cy - 157 - ntopdistance
End If
Else
If (ntopdistance > 0) Then
Bar1.height = cy - 157 - ntopdistance - PlugMngHeight
Else
Bar1.height = cy - 155 - ntopdistance - PlugMngHeight
End If
End If

If MainSearchDlg.bInside = True Then
Bar1.height = Bar1.height - MainSearchDlg.height
If PlugCloseState = 1 Then
MainSearchDlg.top = FolderBackgroundB.top + FolderBackgroundB.height+1
Else
MainSearchDlg.top = FolderBackgroundB.top + PlugMngHeight
End If
MainSearchDlg.width = cx
End if

NewPanels.height = Bar1.height

Bar1.UnLockPaint()
MainSearchDlg.UnLockPaint()

MailButton.label = strQQMailTip
Window.UnLockPaint()
End Sub

Sub CalcStatusPos(cx, cy)
StatusEdit.Left = QQNumber.left - 2
IF bShowDNA = 1 Then
DNAButton.visible = True
QQNumber.left = 82
QQNumber.width = QQNumber.textlength
QQStatusText.Left = QQNumber.Left + QQNumber.width + 3
QQStatusText.width = QQStatusText.textlength
Else
DNAButton.visible = False
If SecurityLevelButton.visible = False Then
QQNumber.left = SecurityLevelButton.left
Else
QQNumber.left = 82
End If
QQNumber.width = QQNumber.textlength
QQStatusText.Left = QQNumber.Left + QQNumber.width + 3
QQStatusText.width = QQStatusText.textlength
End If

If QQStatusText.Left > cx - 35 Then
QQStatusText.Left = cx - 35
QQStatusText.width = 0
QQStatusText.visible = False
ElseIf QQStatusText.Left + QQStatusText.width > cx - 35 Then
QQStatusText.visible = true
QQStatusText.width = cx - 35 - QQStatusText.Left
Else
QQStatusText.visible = True
End If

StatusButton.left = QQNumber.Left - 2
StatusButton.width = QQNumber.width + QQStatusText.width + 25

StatusEdit.width = cx - StatusEdit.left - 5
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 PlugMngButton_Down_onClick()
Window.ExeCommand 3,1
PlugMngButton_Down.Visible = False
PlugMngButton_Up.Visible = True
ArrowHead_Down.Visible = False
ArrowHead_Up.Visible = True
MainSearchDlg.Hide()
End Sub

Sub PlugMngButton_Up_onClick()
Window.ExeCommand 3,2
PlugMngButton_Down.Visible = True
PlugMngButton_Up.Visible = False
ArrowHead_Down.Visible = True
ArrowHead_Up.Visible = False
MainSearchDlg.Show()
End Sub

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

'顶部的按钮组
'Sub QQStatus_onClick()
' s = QQStatus.left
' Window.ExeCommand 63,s
'End Sub
Sub SecurityLevelButton_onClick()
Window.ExeCommand 69,0
End Sub

Sub StatusButton_onClick()
s = CStr(StatusButton.Left)&"."&CStr(StatusButton.Top + StatusButton.height)
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 StatusWeather_onMouseMove(nX,nY)
s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
Window.ExeCommand 31,s
end Sub

sub StatusWeather_onMouseLeave()
s = CStr(StatusWeather.Left) & "." & CStr(StatusWeather.Top) & "." & CStr(StatusWeather.width) & "." & CStr(StatusWeather.height)
Window.ExeCommand 30,s
end Sub

Sub StatusWeather_onClick()
Window.ExeCommand 61,0
End Sub

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

Sub QZoneMsgCenterButton_onClick()
QZoneMsgCenterButton.label = "0"
Window.ExeCommand 66,0
End Sub
Sub MailButton_onClick()
Window.ExeCommand 7,1
End Sub

Sub DNAButton_onClick()
Window.ExeCommand 27,1
End Sub
Sub SosoButton_onClick()
Window.ExeCommand 4,14
End Sub
'Sub HostingButton_onClick()
' Window.ExeCommand 15,1
'End Sub

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

Sub MyQQButton_onClick()
Window.ExeCommand 4,13
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()
'Dim a As Integer
'a = MenuButton.Left - 3
's = CStr(Left)&"."&CStr(MenuButton.Top)
s = CStr(Int(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

Sub PrivilegeButton_onClick()
Window.ExeCommand 4,15
End Sub
'Sub QQHome_onClick()
' Window.ExeCommand 16,1
'End Sub

Sub ScrollUpButton_OnClick()
Window.ExeCommand 17,1
End Sub

Sub ScrollDownButton_OnClick()
Window.ExeCommand 18,1
End Sub
Sub PanelMngButton_OnClick()
Window.ExeCommand 19,1
End Sub
Sub QQMusic_OnClick()
Window.ExeCommand 25,1
End Sub
Sub QQTV_onClick()
Window.ExeCommand 26,1
End Sub

sub petOpenBtn_onClick()
Window.ExeCommand 40,12
end Sub

Sub petCloseBtn_onClick()
Window.ExeCommand 40,13
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
QQStatusText.value = UserStatus
' QQStatus.label = UserStatus
End If
CalcStatusPos CurrentWidth, CurrentHeight
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
UserStatus = "[在线]"
StatusIco = "online.ico"
ElseIf var = 20 Then
UserStatus = "[离线]"
StatusIco = "exit.ico"
ElseIf var = 30 Then
UserStatus = "[离开]"
StatusIco = "leave.ico"
ElseIf var = 40 Then
UserStatus = "[隐身]"
StatusIco = "hide.ico"
ElseIf var = 50 Then
UserStatus = "[忙碌]"
StatusIco = "busy.ico"
ElseIf var = 60 Then
UserStatus = "[Q我吧]"
StatusIco = "qme.ico"
ElseIf var = 70 Then
UserStatus = "[静音]"
StatusIco = "nobother.ico"
End If
' StatusButton.ico = StatusIco
If 0 = ShowStatus Then
QQNumber.value = UserNum
Else
QQNumber.value = UserNum
QQStatusText.value = UserStatus
' QQStatus.label = UserStatus
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 = 15 Then
If(Var = 1) Then
SecurityButton.SetLighting(true)
Else
SecurityButton.SetLighting(false)
End If
ElseIf code = 17 Then
If(Var = 1) Then
SecurityButton.ico = "security_alert.ico"
ElseIf (Var = 2) Then
SecurityButton.ico = "security_import.ico"
ElseIf (Var = 3) Then
SecurityButton.ico = "security_infor.ico"
ElseIf (Var = 4) Then
SecurityButton.ico = "security_help.ico"
ElseIf (Var = 5) Then
SecurityButton.ico = "security_normal.ico"
Else
SecurityButton.ico = "security_normal.ico"
End If
ElseIf code = 19 Then
If(Var = 1) Then
SecurityButton.visible = true
'MyQQButton.visible = false
ElseIf(Var = 0)Then
SecurityButton.visible = false
'MyQQButton.visible = false
ElseIf(Var = 2)Then
SecurityButton.visible = false
'MyQQButton.visible = true
End If
ElseIf code = 20 Then
If(Var = 1) Then
bShowDNA = 1
ElseIf(Var = 0) Then
bShowDNA = 0
End If
CalcStatusPos CurrentWidth, CurrentHeight
ElseIf code = 25 Then
' 皮肤推送
if(var = 1) then
ColorButton.SetLighting(true)
else
ColorButton.SetLighting(false)
end If
ElseIf code = 31 then
if(var = 1) then
MainSearchDlg.bInside = TRUE
else
MainSearchDlg.bInside = FALSE
end If
ElseIf code = 33 then
if(var = 1) then
PlugMngButton_Down.Visible = TRUE
PlugMngButton_Up.Visible = FALSE
ArrowHead_Down.Visible = TRUE
ArrowHead_Up.Visible = FALSE
elseif var = 2 then
PlugMngButton_Down.Visible = FALSE
PlugMngButton_Up.Visible = TRUE
ArrowHead_Down.Visible = FALSE
ArrowHead_Up.Visible = TRUE

else
PlugMngButton_Down.Visible = FALSE
PlugMngButton_Up.Visible = FALSE
ArrowHead_Down.Visible = FALSE
ArrowHead_Up.Visible = FALSE
End If
ElseIf code = 34 then
if(var =1 ) then
'MsgBox "所有的插件都关闭了"
PlugCloseState = 1'所有的插件都关闭了
else
PlugCloseState = 0'有插件打开了
End If
ElseIf code = 40 then
if var = 12 then
PetState = 1
petCloseBtn.visible = false
petOpenBtn.visible = true
else
PetState = 0
petCloseBtn.visible = true
petOpenBtn.visible = false
end If

ElseIf code = 51 Then
StrCaption = var
QQCaption.value = StrCaption
'改变QQMail的提示,旧版本皮肤的逻辑，QQ:2007Beta2后使用102
' ElseIf code = 100 Then
' If( var = 0 ) Then
' strQQMailTip = "(" + "0" + ")"
' Else
' strQQMailTip = "(" + CStr(var) + ")"
' End If
' MailButton.label = strQQMailTip
' ElseIf code = 101 Then
' If( var = 0 ) Then
' HostingButton.label = "(" + "0" + ")"
' Else
' HostingButton.label = "(" + CStr(var) + ")"
' End If
ElseIf code = 102 Then
'改变QQMail的提示，QQ:2007Beta2后使用102
strQQMailTip = CStr(var)
MailButton.label = strQQMailTip
AdjustStatuePanelSize()
ElseIf code = 103 then
if(var > 0) then
MailButton.StartGif(var)
Else
MailButton.EndGif()
End If
ElseIf code = 104 Then
If(Var = 1) Then
MailButton.ico = "MailButtonGray.ico"
Else
MailButton.ico = "MailButton.ico"
End If
ElseIf code = 105 Then
MailButton.toolTip = CStr(var)
ElseIf code = 106 Then
if (var = -1) then
PaymentButton.label = 0
PaymentButton.width = 18
PaymentButton.toolTip = "进入我的钱包"
ElseIf (var = 0) then
PaymentButton.label = 0
PaymentButton.width = 43
PaymentButton.toolTip = "进入我的钱包"
else
PaymentButton.width = 43
PaymentButton.label = CStr(var)
PaymentButton.toolTip = "您有" + CStr(var) + "笔进行中的交易"
end if
AdjustStatuePanelSize()
ElseIf code = 107 Then
UserStatus = "[" + CStr(var) + "]"
QQStatusText.value = UserStatus
' QQStatus.label = UserStatus
CalcStatusPos CurrentWidth, CurrentHeight
ElseIf code = 108 then
if(var = 1) then
StatusEdit.bInside = TRUE
else
StatusEdit.bInside = FALSE
end If
ElseIf code = 500 Then
nYellowBanner = Var
ElseIf code = 109 Then
pos = QQStatusText.left - QQNumber.left
if(var = 0) then
Window.ExeCommand 65,pos
Else
Window.ExeCommand 64,pos
end If
ElseIf code = 110 Then
SosoButton.toolTip = CStr(var)
ElseIf code = 111 Then
if(var = 0) then
MsgManagerButton.left = 69
SearchButton.left = 95
PrivilegeButton.visible = "false"
elseif(var = 1) Then
PrivilegeButton.ToolTip="会员俱乐部"
PrivilegeButton.left = MenuButton.left + MenuButton.width + 9
MsgManagerButton.left = PrivilegeButton.left + PrivilegeButton.width + 7
SearchButton.left = MsgManagerButton.left + MsgManagerButton.width + 7
PrivilegeButton.visible = "true"
elseif(var = 2) Then
PrivilegeButton.ToolTip="免费体验QQ高级功能"
PrivilegeButton.left = MenuButton.left + MenuButton.width + 9
MsgManagerButton.left = PrivilegeButton.left + PrivilegeButton.width + 7
SearchButton.left = MsgManagerButton.left + MsgManagerButton.width + 7
PrivilegeButton.visible = "true"
end If
ElseIf code = 112 then
If (var = -1) Then
SosoButton.width = 18
SosoButton.label = ""
SosoButton.toolTip = "进入问问首页"
ElseIf(var = 0)Then
SosoButton.visible = "true"
SosoButton.width = 43
SosoButton.label = CStr(var)
SosoButton.toolTip = "进入问问首页"
Else
SosoButton.visible = "true"
SosoButton.width = 43
SosoButton.label = CStr(var)
end if
AdjustStatuePanelSize()
ElseIf code = 113 then
If (var = 0) then
SosoButton.visible = "false"
Else
SosoButton.visible = "true"
end if
AdjustStatuePanelSize()
ElseIf code = 114 Then
If (var = 1) Then
ImSearchPlugin.bInside = TRUE
Else
ImSearchPlugin.bInside = FALSE
End If
ElseIf code = 115 Then
nSearchBanner = var
ElseIf code = 116 then
If (var = -1) Then
QZoneMsgCenterButton.label = ""
Else
QZoneMsgCenterButton.label = CStr(var)
end If
AdjustStatuePanelSize()
ElseIf code = 117 Then
MailButton.toolTip = ""
ElseIf code = 118 Then
If(Var = 1) Then
SecurityLevelButton.visible = True
SecurityLevelButton.ico = "Security_0.ico"
ElseIf (Var = 2) Then
SecurityLevelButton.visible = True
SecurityLevelButton.ico = "Security_1.ico"
ElseIf (Var = 3) Then
SecurityLevelButton.visible = True
SecurityLevelButton.ico = "Security_2.ico"
Else
SecurityLevelButton.visible = False
SecurityLevelButton.ico = ""
End If
CalcStatusPos CurrentWidth, CurrentHeight
ElseIf code = 119 Then
SecurityLevelButton.toolTip = CStr(var)
ElseIf code = 120 Then
If(Var = 1) Then
StatusButton.image = "StatusButton_Normal.bmp"
ElseIf(Var = 2) Then
StatusButton.image = "StatusButton_Down.bmp"
End If
End If
End Sub

Sub MailButton_onGifStop()
Window.ExeCommand 62,0
End Sub

Sub MailButton_onMouseMove(nX,nY)
s = CStr(MailButton.Left) & "." & CStr(MailButton.Top) & "." & CStr(MailButton.width) & "." & CStr(MailButton.height)
Window.ExeCommand 67,s
End Sub
Sub MailButton_onMouseLeave()
Window.ExeCommand 68,0
End Sub