home *** CD-ROM | disk | FTP | other *** search
/ ftp2.mweb.co.za / ftp2.mweb.co.za.tar / ftp2.mweb.co.za / bin / qq / QQ.exe / VBScript.vbs < prev    next >
Text File  |  2004-05-07  |  10KB  |  416 lines
  1. Dim BottomHeight
  2. Dim CornerHeight
  3. Dim UseNum
  4. Dim UseStatus
  5. Dim StatusIcon
  6. Dim showbar
  7. Dim Path
  8. Dim strQQMailTip
  9. BottomHeight = 61
  10.  
  11. '×¢ÊÍ
  12.  
  13. sub Window_OnInit()
  14.     FriendBar.disabled = True
  15.     TencentServerBar.disabled = False
  16.        MobileBar.disabled = False
  17.           ContentBar.disabled = False
  18.       StatusIcon = "Offline.ico"
  19.     UseStatus = "Offline"
  20.     Path = "skins\\Sanook! QQ\\"
  21.     UseNum = "0"
  22.     strQQMailTip = "0·âδÊÕ"
  23.     showbar = true
  24. end sub
  25.  
  26. sub Window_OnSize(cx,cy)
  27.     
  28.     Window.LockPaint()
  29.     BG.width = cx -49
  30.     BG.Height = cy    
  31.     title.width = cx
  32.         BGline.height = cy - 3 
  33.         BGlinewhite.height = cy - 5
  34.  
  35.     if showbar = True then
  36.         BarBtns.visible = True
  37.         Tencent.visible = True
  38.         BarFrame.left = BarBtns.left + BarBtns.width
  39.         QQMain.left =44
  40.     else
  41.         BarBtns.visible = False
  42.         Tencent.visible = False
  43.         BarFrame.left = 28
  44.         QQMain.left = 30
  45.     end if
  46.         
  47.     BGleft.height=cy
  48.     BGright.height=cy
  49.     BGright.left=cx-24
  50.     QQBG.left = QQ.width
  51.     QQBG.width = cx - QQ.width - TitleBtns1.width
  52.         
  53.     TitleR1.left = cx - TitleR1.width - 24
  54.     TitleBtns1.left = TitleR1.left
  55.  
  56.  
  57.     'QQ1.left = cx - TitleBtns1.width - QQ1.width
  58.  
  59.         sysbottom.top = cy - 3
  60.         sysbottom1.top = sysbottom.top
  61.         sysbottom1.left = cx - 27
  62.         sysbottom2.top = cy - 1
  63.         sysbottom2.width = cx - 52    
  64.     
  65.     DisableBarBtn1.left = BarBtns.left 
  66.     DisableBarBtn1.top = cy - 26
  67.     DisableBarBtn2.left = BarBtns.left +2
  68.     DisableBarBtn2.top = cy - 22
  69.  
  70.         Tencent.top = cy - 234
  71.         flower.top=cy-233
  72.         flower1.left=cx-24
  73.  
  74.  
  75.  
  76.     '±ß¿ò
  77.     
  78.     BarFrame.top = title.height + 3
  79.     BarFrame.width = cx - 3 - BarFrame.left -25
  80.     BarFrame.height = cy - bottomheight - BarFrame.top - 6
  81.  
  82.         CellBG.width = BarFrame.width - 3
  83.         CellBG.height = BarFrame.height - 2
  84.         CellRight.left = BarFrame.width - 2
  85.         CellRight.height = CellBG.height
  86.         Cellleft.height = CellBG.height
  87.     
  88.     'QQBall.left = BarFrame.width - 22
  89.     Celltopcorner.left = BarFrame.width - 4
  90.     CellRightcorner.left = Celltopcorner.left
  91.     CellRightcorner.top = BarFrame.height - 6
  92.     Cellleftcorner.top = BarFrame.height - 6    
  93.  
  94.     MyQQStatus.value = ""    'UseStatus      
  95.     MyQQNum.value = UseNum
  96.     'MyQQNum.width = BarFrame.width - 9
  97.     
  98.     'QQMailTip.label = strQQMailTip
  99.     If 60 > StatusBtn.width Then
  100.         StatusBtn.Label = ""
  101.     Else
  102.         StatusBtn.Label = UseStatus
  103.     End If
  104.  
  105.     'MaxWidth = BarFrame.width - 9
  106.     'offset = MyQQNum.width - MaxWidth
  107.  
  108.     'if offset>0 then
  109.         'MyQQNum.width = MyQQNum.width - offset        
  110.     'end if
  111.  
  112.     Bar1.width = BarFrame.width - 6
  113.     Bar1.height = BarFrame.height - 37 
  114.     Bar2.width = Bar1.width
  115.     Bar2.height = Bar1.height
  116.     Bar3.width = Bar1.width
  117.     Bar3.height = Bar1.height
  118.     Bar4.width = Bar1.width
  119.     Bar4.height = Bar1.height
  120.     
  121.     'µÚÒ»ÅÅ°´Å¥
  122.         BtnBG1_Left.top = BarFrame.top + BarFrame.height - 1
  123.         BtnBG1_Left.left = BarFrame.left
  124.     BtnBG1_Middle.top = BtnBG1_Left.top
  125.     BtnBG1_Middle.width = BarFrame.width - 48
  126.         BtnBG1_Middle.left = BtnBG1_Left.left + 19
  127.     BtnBG1_Right.top = BtnBG1_Left.top 
  128.     BtnBG1_Right.left = cx - 57
  129.  
  130.     ChatBtn.top =  BtnBG1_Middle.top +4
  131.     ChatBtn.Left =  BtnBG1_left.Left +2
  132.     PhoneBtn.top = ChatBtn.top - 2
  133.     PhoneBtn.Left = ChatBtn.Left +  ChatBtn.width
  134.     searchBtn.Top = ChatBtn.top - 2
  135.     searchBtn.Left = PhoneBtn.Left + PhoneBtn.width 
  136.     searchBtn.width = BtnBG1_Middle.width - (searchBtn.Left - BtnBG1_Middle.Left) + 43
  137.  
  138.     'µÚ¶þÅÅ°´Å¥
  139.     BtnBG2_Left.top = BtnBG1_Left.top + 22
  140.         BtnBG2_Left.left = BarFrame.left
  141.     BtnBG2_Middle.top = BtnBG2_Left.top
  142.     BtnBG2_Middle.width = BtnBG1_Middle.width
  143.         BtnBG2_Middle.left = BtnBG2_Left.left + 19
  144.     BtnBG2_Right.top = BtnBG2_Left.top
  145.     BtnBG2_Right.left = cx - 57
  146.      
  147.     TeBtn.top =  BtnBG2_Middle.top +3
  148.     TeBtn.Left =  BtnBG2_left.Left+2
  149.     GameBtn.top = TeBtn.top-1
  150.     GameBtn.left = TeBtn.Left +  TeBtn.width 
  151.     SysMsgBtn.top = TeBtn.top -1
  152.     SysMsgBtn.Left = GameBtn.Left + GameBtn.width+1
  153.     SysMsgBtn.width = BtnBG2_Middle.width - (SysMsgBtn.Left - BtnBG2_Middle.Left) + 43
  154.  
  155.     'µÚÈýÅÅ°´Å¥
  156.     QQMain.top = BtnBG2_Left.top + 22
  157.     QQMain.left = DisableBarBtn1.left + DisableBarBtn1.width + 6
  158.     BtnBG3_Left.Left = QQMain.left + QQMain.Width + 2
  159.     BtnBG3_Left.top = BtnBG2_Left.top + 22
  160.     BtnBG3_Right.top = BtnBG3_Left.top
  161.     BtnBG3_Right.left = cx - 42
  162.     BtnBG3_Middle.top = BtnBG3_Left.top
  163.     BtnBG3_Middle.Left = BtnBG3_Left.Left + 11
  164.     BtnBG3_Middle.width = BtnBG3_Right.left - BtnBG3_Left.Left - BtnBG3_Left.width
  165.     StatusBtn.left = BtnBG3_Left.Left + 8
  166.     StatusBtn.top = BtnBG3_Right.top + 1
  167.  
  168.     StatusBtn.width = BtnBG3_Middle.width +12
  169.     
  170.     If 60 > StatusBtn.width Then
  171.         StatusBtn.Label = ""
  172.     Else
  173.         StatusBtn.Label = UseStatus
  174.     End If
  175.  
  176.     Window.UnLockPaint()
  177.      
  178. end sub
  179.  
  180. 'ÉÏÃæµÄÈý¸ö°´Å¥
  181.  
  182. sub min1_onClick()
  183.     Window.ExeCommand 1,2
  184. end sub
  185.  
  186. sub close1_onClick()
  187.     Window.ExeCommand 1,3
  188. end sub
  189.  
  190. sub min2_onClick()
  191.     Window.ExeCommand 1,2
  192. end sub
  193.  
  194. sub close2_onClick()
  195.     Window.ExeCommand 1,3
  196. end sub
  197.  
  198. 'ËĸöBar°´Å¥
  199. sub FriendBar_onClick()
  200.     Window.LockPaint
  201.     'CornerHeight = 43
  202.     'corner.top = BarBtns.Top + CornerHeight
  203.     FriendBar.disabled = True
  204.         TencentServerBar.disabled = False
  205.         MobileBar.disabled = False
  206.            ContentBar.disabled = False
  207.         Window.ExeCommand 2,0
  208.     Window.UnLockPaint()
  209. end sub
  210.  
  211. sub TencentServerBar_onClick()
  212.     Window.LockPaint
  213.     'CornerHeight = 43*2
  214.     'corner.top = BarBtns.Top + CornerHeight
  215.     FriendBar.disabled = False
  216.         TencentServerBar.disabled = True
  217.         MobileBar.disabled = False
  218.           ContentBar.disabled = False
  219.         Window.ExeCommand 2,3
  220.     Window.UnLockPaint()
  221. end sub
  222.  
  223. sub MobileBar_onClick()
  224.     Window.LockPaint
  225.     'CornerHeight = 43*3
  226.     'corner.top = BarBtns.Top + CornerHeight
  227.     FriendBar.disabled = False
  228.         TencentServerBar.disabled = False
  229.         MobileBar.disabled = True
  230.           ContentBar.disabled = False
  231.        Window.ExeCommand 2,1
  232.     Window.UnLockPaint()
  233. end sub
  234.  
  235.  
  236. sub ContentBar_onClick()
  237.     Window.LockPaint
  238.     'CornerHeight = 43*4
  239.     'corner.top = BarBtns.Top + CornerHeight
  240.     FriendBar.disabled = False
  241.         TencentServerBar.disabled = False
  242.         MobileBar.disabled = False
  243.           ContentBar.disabled = True
  244.         Window.ExeCommand 2,2
  245.     Window.UnLockPaint()
  246. end sub
  247.  
  248.  
  249. 'ÉÏÃæµÄÄǸöÇòÇò
  250. sub QQBall_onClick()
  251.     Window.ExeCommand 3,1
  252. end sub
  253.  
  254. 'ÏÂÃæµÄ°´Å¥×é 
  255. sub ChatBtn_onClick()
  256.     Window.ExeCommand 4,1
  257. end sub
  258.  
  259. sub PhoneBtn_onClick()
  260.     Window.ExeCommand 4,2
  261. end sub
  262.  
  263. sub searchBtn_onClick()
  264.     Window.ExeCommand 4,3
  265. end sub
  266.  
  267. sub TeBtn_onClick()
  268.     Window.ExeCommand 4,4
  269. end sub
  270.  
  271. sub GameBtn_onClick()
  272.     Window.ExeCommand 4,5
  273. end sub
  274.  
  275. sub SysMsgBtn_onClick()
  276.     Window.ExeCommand 4,6
  277. end sub
  278.  
  279. sub QQMain_onClick()
  280.     s = CStr(QQMain.Left)&"."&CStr(QQMain.Top)
  281.     Window.ExeCommand 5,s
  282. end sub
  283.  
  284. sub StatusBtn_onClick()
  285.     s = CStr(StatusBtn.Left)&"."&CStr(StatusBtn.Top)
  286.     Window.ExeCommand 6,s
  287. end Sub
  288.  
  289. 'Sub QQMailTip_onClick()
  290. '    Window.ExeCommand 7,1    
  291. 'End Sub
  292.  
  293. sub DisableBarBtn1_onClick()
  294.  
  295.     Window.LockPaint()
  296.     showbar = False
  297.     QQ.image = Path&"qq2003_1.bmp"
  298.     QQ.width = 45
  299.         flower.visible="false"
  300.         flower1.visible="false"
  301.         tencent.visible="false"
  302.     BGlinewhite.visible="false"
  303.         DisableBarBtn1.visible = False
  304.     DisableBarBtn2.visible = True
  305.     TitleR1.visible = true
  306.     TitleBtns1.visible = true
  307.     Celltopcorner1.left =28
  308.     Window.minWidth = 104
  309.     Window.width = Window.width - 10
  310.     StatusBtn.left = QQMain.left +QQMain.width + 5
  311.     Window.UnLockPaint()
  312. end sub
  313.  
  314. sub DisableBarBtn2_onClick()
  315.     Window.LockPaint()
  316.     showbar = True
  317.     QQ.image = Path&"qq2003.bmp"
  318.     QQ.width = 54
  319.     'QQ1.image = Path&"2003.bmp"
  320.     'QQ1.width = 18
  321.     flower.visible="true"
  322.     flower1.visible="true"
  323.     tencent.visible="true"
  324.     BGlinewhite.visible="true"
  325.     DisableBarBtn1.visible = True
  326.     DisableBarBtn2.visible = False
  327.     TitleR1.visible = True
  328.     TitleBtns1.visible = True
  329.     cx = Window.width
  330.     Celltopcorner1.left =55
  331.     Window.minWidth = 161
  332.     Window.width = cx + 10
  333.     Window.UnLockPaint()
  334. end Sub
  335.  
  336. '´¦ÀíQQ³ÌÐò·¢À´µÄʼþ
  337. Sub Window_OnNotify(code ,var)
  338.     if code = 1 then
  339.         'ÉèÖõ±Ç°µÄUin
  340.         UseNum = var
  341.         MyQQNum.value = UseNum
  342.         'MyQQNum.width = BarFrame.width - 9
  343.  
  344.         'MaxWidth = BarFrame.width - 9
  345.         'offset = MyQQNum.width - MaxWidth
  346.  
  347.         'if offset>0 then
  348.             'MyQQNum.width = MyQQNum.width - offset        
  349.         'end if    
  350.     elseif code = 2 then
  351.         'ÉÁϵͳÏûÏ¢°´Å¥ var Îª1ÊÇ¿ªÊ¼ÉÁ¡£Îª2ÊÇÍ£Ö¹
  352.         if(var = 1) then
  353.             SysMsgBtn.StopFlash
  354.             SysMsgBtn.Flash 30
  355.         else
  356.             SysMsgBtn.StopFlash
  357.         end if
  358.     elseif code = 3 then
  359.         'ÉÁ״̬°´Å¥ var Îª0,1,2,3ÊǶÔÓ¦µÄico¡£Îª4±íʾֹͣ
  360.         if var = 0 then
  361.             StatusBtn.ico = "Online.ico"
  362.         elseif var = 1 then
  363.             StatusBtn.ico = "na.ico"
  364.         elseif var = 2 then
  365.             StatusBtn.ico = "invisible.ico"
  366.         elseif var = 3 then
  367.             StatusBtn.ico = "Offline.ico"
  368.         elseif var = 4 then
  369.             StatusBtn.ico = StatusIcon
  370.         end if
  371.     elseif code = 4 then
  372.         'ÉèÖÃÄǸöBarÔÚ×îÇ°
  373.         if var = 0 then
  374.             FriendBar_onClick()
  375.         elseif var = 1 then
  376.             MobileBar_onClick()
  377.         elseif var = 2 then
  378.             ContentBar_onClick()
  379.         elseif var = 3 then
  380.             TencentServerBar_onClick()
  381.         end if
  382.     elseif code = 5 then
  383.         'ÉèÖõ±Ç°µÄ״̬¡£
  384.         if var = 10 Then            
  385.             UseStatus = "Online"
  386.             StatusIcon = "Online.ico"
  387.         elseif var = 20 Then            
  388.             UseStatus = "Offline"
  389.             StatusIcon = "Offline.ico"
  390.         elseif var = 30 Then            
  391.             UseStatus = "N/A"
  392.             StatusIcon = "na.ico"
  393.         elseif var = 40 Then            
  394.             UseStatus = "Invisible"
  395.             StatusIcon = "invisible.ico"            
  396.         end if
  397.         StatusBtn.ico = StatusIcon        
  398.         If 60 > StatusBtn.width Then
  399.             StatusBtn.Label = ""
  400.         Else
  401.             StatusBtn.Label = UseStatus
  402.         End If
  403.         'MyQQStatus.value = UseStatus 
  404.     elseif code  = 6 then
  405.         'ÉèÖÃSkinµÄÆðʼ·¾¶
  406.         Path = Var
  407.     ElseIf code = 7 Then
  408.         '¸Ä±äQQMailµÄÌáʾ£¬Ã»ÓÐÓʼþ
  409.         strQQMailTip = Var
  410.         'QQMailTip.label = strQQMailTip                
  411.     ElseIf code = 8 Then
  412.         '¸Ä±äQQMailµÄÌáʾ£¬ÓÐÐÂÓʼþ
  413.         strQQMailTip = Var
  414.         'QQMailTip.label = strQQMailTip        
  415.     end if
  416. end sub