一个托盘听FM的小例子

mzky

例子里的频道比较少，需要的自己添加上就可以了

1. import win.ui;
   
2. import win.ui.menu;
   
3. import com.flash;
   
4. import win.util.tray;
   
5. /*DSG{{*/
   
6. var winform = win.form(text="FM";left=0;top=0;right=62;bottom=19;border="none";exmode="none";mode="popup";parent=...;topmost=1)
   
7. winform.add(
   
8. flashBox={cls="custom";left=0;top=0;right=420;bottom=45;edge=1;hide=1;z=1}
   
9. )
   
10. /*}}*/
    
11. 
    
12. winform.show(false); //隐藏窗口
    
13. 
    
14. var flash = com.flash( winform.flashBox );
    
15. flash.movie = "http://www.cnr.cn/images2015/livePlayer_black_2014.swf?liveDataURL=http://www.cnr.cn/player2013/liveData1014.xml&defaultID=10&isAutoPlay=true"
    
16. flash.play()
    
17.                
    
18. var tray = win.util.tray(winform)
    
19. tray.message = 0xACCF/*_WM_TRAYMESSAGE*/
    
20. tray.tip = "FM" //设置鼠标提示
    
21. 
    
22. winform.wndproc = {
    
23.         [0xACCF/*_WM_TRAYMESSAGE*/ ] = function(hwnd,message,wParam,lParam){
    
24.                 if( lParam = 0x205/*_WM_RBUTTONUP*/ ){
    
25.                     var pt = ::POINT();
    
26.                         ::User32.GetCursorPos(pt);
    
27.                    
    
28.                     //弹出托盘菜单以前,一定要前置主窗口中,不然不点击菜单不会消失
    
29.                     win.setForeground(winform.hwnd)
    
30.                     winform.popmenu.popup(pt.x,pt.y,true )
    
31.             }       
    
32.         }
    
33. }
    
34. 
    
35. winform.popmenu = win.ui.popmenu(winform);//创建弹出菜单
    
36. winform.popmenu.add(
    
37.     text = '文艺之声—CNR';
    
38.         bitmapCheckd = "\res\1.bmp";
    
39.         proc = function(id){
    
40.                 flash.movie = "http://www.cnr.cn/images2015/livePlayer_black_2014.swf?liveDataURL=http://www.cnr.cn/player2013/liveData1014.xml&defaultID=10&isAutoPlay=true"
    
41.                 flash.play()
    
42.                 for(i=1;winform.popmenu.count();1){
    
43.                                 winform.popmenu.check(i,false)//关闭除所有checked图标       
    
44.                         }
    
45.                 winform.popmenu.check(id-4999);//默认id从5000开始，winform.popmenu.check参数从1开始，所以5000-1
    
46. });
    
47. winform.popmenu.add(
    
48.     text = '文艺之声—蜻蜓';
    
49.         bitmapCheckd = "\res\1.bmp";
    
50.         proc = function(id){
    
51.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf?vurl=http://lhttp.qingting.fm/live/395/64k.mp3&autoPlay=true&showBarTime=99999999"
    
52.                 flash.play()       
    
53.                 for(i=1;winform.popmenu.count();1){
    
54.                                 winform.popmenu.check(i,false)//关闭除所有checked图标
    
55.                         }
    
56.                 winform.popmenu.check(id-4999);//默认id从5000开始，winform.popmenu.check参数从1开始，所以5000-1
    
57. });
    
58. winform.popmenu.add();//分隔线
    
59. winform.popmenu.add(
    
60.         text = '相声小品—CNR';
    
61.         bitmapCheckd = "\res\1.bmp";
    
62.         proc = function(id){
    
63.                 flash.movie = "http://www.cnr.cn/images2015/livePlayer_black_2014.swf?liveDataURL=http://www.cnr.cn/player2013/liveData1014.xml&defaultID=19&isAutoPlay=true"
    
64.                 flash.play()
    
65.                 for(i=1;winform.popmenu.count();1){
    
66.                                 winform.popmenu.check(i,false)//关闭除所有checked图标       
    
67.                         }
    
68.                 winform.popmenu.check(id-4998);        //默认id从5000开始，但因分隔线也算一个id，所以需要根据实际情况-2
    
69. });
    
70. winform.popmenu.add(
    
71.         text = '相声小品—蜻蜓';
    
72.         bitmapCheckd = "\res\1.bmp";
    
73.         proc = function(id){
    
74.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf?vurl=http://lhttp.qingting.fm/live/4990/64k.mp3&autoPlay=true&showBarTime=99999999"
    
75.                 flash.play()
    
76.                 for(i=1;winform.popmenu.count();1){
    
77.                                 winform.popmenu.check(i,false)//关闭除所有checked图标       
    
78.                         }
    
79.                 winform.popmenu.check(id-4998);        //默认id从5000开始，但因分隔线也算一个id，所以需要根据实际情况-2
    
80. });
    
81. winform.popmenu.add();//分隔线
    
82. winform.popmenu.add(
    
83.         text = '静音';
    
84.         bitmapCheckd = "\res\1.bmp";
    
85.         proc = function(id){
    
86.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf"
    
87.                 flash.play()
    
88.                 for(i=1;winform.popmenu.count();1){
    
89.                                 winform.popmenu.check(i,false)//关闭除所有checked图标       
    
90.                         }
    
91.                 winform.popmenu.check(id-4997);        //默认id从5000开始，前面两组分割线，所以-3
    
92. });
    
93. winform.popmenu.add();//分隔线
    
94. winform.popmenu.add('&Exit',function(id){  tray.delete();winform.close(); })       
    
95. 
    
96. return win.loopMessage();

复制代码

mzky

做了些改动

1. import win.ui;
   
2. import win.ui.menu;
   
3. import com.flash;
   
4. import win.util.tray;
   
5. /*DSG{{*/
   
6. var winform = win.form(text="FM";left=0;top=0;right=62;bottom=19;border="none";exmode="none";mode="popup";parent=...;topmost=1)
   
7. winform.add(
   
8. flashBox={cls="custom";left=0;top=0;right=420;bottom=45;edge=1;hide=1;z=1}
   
9. )
   
10. /*}}*/
    
11. 
    
12. winform.show(false); //隐藏窗口
    
13. 
    
14. var flash = com.flash( winform.flashBox );
    
15.                
    
16. var tray = win.util.tray(winform)
    
17. tray.message = 0xACCF/*_WM_TRAYMESSAGE*/
    
18. tray.tip = "FM" //设置鼠标提示
    
19. 
    
20. winform.wndproc = {
    
21.         [0xACCF/*_WM_TRAYMESSAGE*/ ] = function(hwnd,message,wParam,lParam){
    
22.                 if( lParam = 0x205/*_WM_RBUTTONUP*/ ){
    
23.                     var pt = ::POINT();
    
24.                         ::User32.GetCursorPos(pt);
    
25.                    
    
26.                     //弹出托盘菜单以前,一定要前置主窗口中,不然不点击菜单不会消失
    
27.                     win.setForeground(winform.hwnd)
    
28.                     winform.popmenu.popup(pt.x,pt.y,true )
    
29.             }       
    
30.         }
    
31. }
    
32. 
    
33. 
    
34. winform.popmenu = win.ui.popmenu(winform);//创建弹出菜单
    
35. 
    
36. var nocheck = function(){
    
37.     for(i=1;winform.popmenu.count();1){
    
38.                 if(winform.popmenu.checked(i)){
    
39.                         winform.popmenu.check(i,false)       
    
40.                 }
    
41.         }
    
42. }
    
43. winform.popmenu.add(
    
44.     text = '文艺之声—CNR';
    
45.         bitmapCheckd = "\res\1.bmp";
    
46.         proc = function(id){
    
47.                 flash.movie = "http://www.cnr.cn/images2015/livePlayer_black_2014.swf?liveDataURL=http://www.cnr.cn/player2013/liveData1014.xml&defaultID=10&isAutoPlay=true"
    
48.                 flash.play()
    
49.                 nocheck()
    
50.                 winform.popmenu.check(id-4999);
    
51. });
    
52. winform.popmenu.add(
    
53.     text = '文艺之声—蜻蜓';
    
54.         bitmapCheckd = "\res\1.bmp";
    
55.         proc = function(id){
    
56.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf?vurl=http://lhttp.qingting.fm/live/395/64k.mp3&autoPlay=true&showBarTime=99999999"
    
57.                 flash.play()       
    
58.                 nocheck()
    
59.                 winform.popmenu.check(id-4999);
    
60. });
    
61. winform.popmenu.add();//分隔线
    
62. winform.popmenu.add(
    
63.         text = '相声小品—CNR';
    
64.         bitmapCheckd = "\res\1.bmp";
    
65.         proc = function(id){
    
66.                 flash.movie = "http://www.cnr.cn/images2015/livePlayer_black_2014.swf?liveDataURL=http://www.cnr.cn/player2013/liveData1014.xml&defaultID=19&isAutoPlay=true"
    
67.                 flash.play()
    
68.                 nocheck()
    
69.                 winform.popmenu.check(id-4998);       
    
70. });
    
71. winform.popmenu.add(
    
72.         text = '相声小品—蜻蜓';
    
73.         bitmapCheckd = "\res\1.bmp";
    
74.         proc = function(id){
    
75.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf?vurl=http://lhttp.qingting.fm/live/4990/64k.mp3&autoPlay=true&showBarTime=99999999"
    
76.                 flash.play()
    
77.                 nocheck()
    
78.                 winform.popmenu.check(id-4998);       
    
79. });
    
80. winform.popmenu.add();//分隔线
    
81. winform.popmenu.add(
    
82.         text = '静音';
    
83.         bitmapCheckd = "\res\1.bmp";
    
84.         proc = function(id){
    
85.                 flash.movie = "http://g.alicdn.com/de/prismplayer-flash/1.2.16/PrismPlayer.swf"
    
86.                 flash.play()
    
87.                 nocheck()
    
88.                 winform.popmenu.check(id-4997);       
    
89. });
    
90. winform.popmenu.add();//分隔线
    
91. winform.popmenu.add('&Exit',function(id){  tray.delete();winform.close(); })       
    
92. 
    
93. winform.popmenu.click(1)
    
94. 
    
95. return win.loopMessage();
    

复制代码