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 - 151 
	BackgroundL.height = cy - 141
	BackgroundR.left  = cx - 35 
	BackgroundR.height = cy - 64
	BackgroundT.width = cx - 143
	BackgroundT2.width = cx - 209 
	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 = 79 + ntopdistance
        Else
              ImSearchPlugin.top = 77 + ntopdistance
        End If
        ntopdistance = ntopdistance + nSearchBanner
    Else
        ImSearchPlugin.left = 0
        ImSearchPlugin.width = 0
        ImSearchPlugin.Height = 0
        ImSearchPlugin.top = 77 + ntopdistance
    End If
	       If (nYellowBanner > 0) Then
		FolderBackgroundLT.top = 79 + ntopdistance
		FolderBackgroundRT.top = 79 + ntopdistance
		FolderBackgroundT.top = 79 + ntopdistance		
	Else
		FolderBackgroundLT.top = 77 + ntopdistance
		FolderBackgroundRT.top = 77 + ntopdistance
		FolderBackgroundT.top = 77 + ntopdistance
	End If
		
	
	If (nYellowBanner > 0) Then
		FolderBackgroundL.top = 80 + ntopdistance
		FolderBackgroundR.top = 80 + ntopdistance
		FolderBackgroundC.top = 80 + ntopdistance		
	Else
		FolderBackgroundL.top = 78 + ntopdistance
		FolderBackgroundR.top = 78 + ntopdistance
		FolderBackgroundC.top = 78 + ntopdistance
	End If
	
	
	    If (nYellowBanner > 0) Then
		NewPanels.top = 79 + ntopdistance
	Else
		NewPanels.top = 77 + ntopdistance
	End If
	
	NewPanels.width = 35
	
	   If (nYellowBanner > 0) Then 
		Bar1.top = 81 + ntopdistance
	Else
		Bar1.top = 79 + 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 - 142 - ntopdistance
		Else
			FolderBackgroundC.height = cy - 140 - 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 - 62 
	ToolBarBackgroundC.width = cx - 30 
	ToolBarBackgroundL.top = ToolBarBackgroundC.top 
	ToolBarBackgroundR.left = cx - 15 
	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 - 21 

	MinButton.left = cx - 55 

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

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


	MsgManagerButton.top = cy - 27 

	SearchButton.top = cy - 27 

  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 - 145 - ntopdistance
		Else
	    	Bar1.height = cy - 143 - ntopdistance
		End If
    Else
		If (ntopdistance > 0) Then
			Bar1.height = cy - 145 - ntopdistance - PlugMngHeight
		Else
			Bar1.height = cy - 143 - 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
	IF bShowDNA = 1 Then
		DNAButton.visible = True
		QQNumber.width = QQNumber.textlength
		DNAButton.Left = QQNumber.Left + QQNumber.width
		QQStatus.Left = DNAButton.Left + DNAButton.width + 1
		QQStatus.width = QQStatusText.textlength + 3
	Else
		DNAButton.visible = False
		QQNumber.width = QQNumber.textlength
		QQStatus.Left = QQNumber.Left + QQNumber.width + 1
		QQStatus.width = QQStatusText.textlength + 3
	End If

	If QQStatus.Left > cx - 15 Then
		QQStatus.Left = cx - 15
		QQStatus.width = 0
		QQStatus.visible = False
	ElseIf QQStatus.Left + QQStatus.width > cx - 15 Then
		QQStatus.visible = true
		QQStatus.width = cx - 15 - QQStatus.Left
	Else
		QQStatus.visible = True
	End If
	
	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 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 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 - 3))&"."&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的提示,旧版本皮肤的逻辑，QQ2007Beta2后使用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的提示，QQ2007Beta2后使用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 = QQStatus.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()

	End If	
End Sub

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