搜索
查看: 17343|回复: 20

[web] 百度音乐盒[29日更新]

    [复制链接]

12

主题

679

帖子

4008

积分

荣誉会员

子非魚、安知魚之樂

Rank: 8Rank: 8

积分
4008
发表于 2010-12-27 23:27:55 | 显示全部楼层 |阅读模式
本帖最后由 xauto 于 2010-12-29 21:24 编辑

import win.ui;
import win.ui.menu;
import win.util.tray;
/*DSG{{*/
var winform = win.form(parent=...; right=497;scroll=1;bottom=500;max=false;text="百度音乐盒";border="dialog frame" )
winform.add(
static={ bottom=581;right=856;left=-11;top=-70;font=LOGFONT( name="宋体";h=-12 );transparent=1;notify=1;text="";z=3;cls="static" };
btnAdd={ flat=1;bottom=497;color=0;right=203;left=149;top=475;font=LOGFONT( name="宋体";h=-12;out=3;family=2;clip=2;quality=1 );z=2;text="添加歌曲";transparent=1;cls="button" };
edit={ bottom=497;right=133;left=5;top=475;font=LOGFONT( name="宋体";h=-12 );z=1;text="";edge=1;cls="edit" }
)
/*}}*/

winform.wndproc = function(hwnd,message,wparam,lparam){
    select(message) {//判断消息类型
        case  0x10/*_WM_CLOSE*/{
            fadeHide();
            win.quitMessage();
        };
        case( 0x400+9981/*_WM_TRAYMESSAGE*/ ) { //托盘图标消息


            if( lparam = 0x205/*_WM_RBUTTONUP*/ ){
                    import mouse;
                    x,y = mouse.getPos();


                    //弹出托盘菜单以前,一定要前置主窗口中,不然不点击菜单不会消失
                    win.setForeground(winform.hwnd)
                    winform.popmenu.popup( x,y,true )
            }


             if(lparam = 0x203/*_WM_LBUTTONDBLCLK)*/){
                winform.show(true);
                winform.popmenu.setString(1,"隐藏");
            }


        }
        case( 0x112/*_WM_SYSCOMMAND*/ ){ //系统命令消息
            if( wparam == 0xF020/*_SC_MINIMIZE*/ ){ //用户点击了最小化按钮
                winform.show(false); //隐藏窗口
                winform.popmenu.setString(1,"显示")
                return true;//阻击默认消息传递,取消最小化过程
              }
        }



     }


        //无返回值则继续调用默认回调函数
}//endproc
import web.form;

//创建web窗体
var wb = web.form( winform.static
    ,//可输入_UIFLAG_ 前缀的常量自定义外观
    ,0x40000000/*_DLCTL_SILENT*/
    ,//"USER AGENT"
    );


fadeHide = function(){
    winform.static.setPos( , ,-3000,0);
    for(i=17;1;-1){
        winform.transparent( i * 15);
        x,y,cx,cy = winform.getPos();
        winform.setPos(x-1,y-1,cx+2,cy+2);
        win.delay(5);
    };  
}


//打开目标网站
wb.go("http://box.zhangmen.baidu.com")
//显示窗体
wb.wait("");//等待指定网址,可以使用模式匹配语法

winform.show()

winform.btnAdd.oncommand = function(id,event){
    //win.msgbox( winform.btnAdd.text );
    wb.getEle("kw").value = winform.edit.text;
    wb.getEle("as").click()
    winform.edit.text = "";


}

winform.popmenu = win.ui.popmenu(winform);//创建弹出菜单

winform.popmenu.add("隐藏",function(id){
    //在下面输入菜单响应代码
    //fadeShow();
    str = winform.popmenu.getString(1);
    select(str) {
        case "隐藏" {
            winform.show(false);
            winform.popmenu.setString(1,"显示")
        }
        case "显示" {
            winform.show(true);
            winform.popmenu.setString(1,"隐藏")
        }
    }
});

winform.popmenu.add();//分隔线
winform.popmenu.add('退出',function(id){ winform.close() })

tray = win.util.tray(winform) //创建托盘图标
tray.message = 0x400+9981/*_WM_TRAYMESSAGE*/
tray.tip = "百度音乐盒" //设置鼠标提示

//进入消息循环
win.loopMessage();
return winform,wb;

baidu.jpg

更新记录:
  • 1.增加了添加歌曲的功能 - -
  • 2.添加了个关闭的效果.
  • 3.增加了系统托盘,和 显示隐藏菜单

//菜单也可以根据当前窗口的状态自动改变
winform.popmenu.add("隐藏",function(id){
    //在下面输入菜单响应代码
    stat = win.isVisible(winform.hwnd);
    if(stat){
        winform.show(false);
        winform.popmenu.setString(1,"显示")   
    }else {
        winform.show(true);
        winform.popmenu.setString(1,"隐藏")
    }
});
回复

使用道具 举报

12

主题

679

帖子

4008

积分

荣誉会员

子非魚、安知魚之樂

Rank: 8Rank: 8

积分
4008
 楼主| 发表于 2010-12-27 23:35:56 | 显示全部楼层

没什么技术含量,只是调整下控件{;P} 大家可以是试着把 [color=Red]百度电台[/color] [color=Blue]http://fm.mp3.

没什么技术含量,只是调整下控件
大家可以是试着把 百度电台 http://fm.mp3.baidu.com显示在aardio窗体里面...


我给个图 - -
test.jpg

回复

使用道具 举报

185

主题

2541

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
13973
发表于 2010-12-27 23:44:19 | 显示全部楼层

[b][size=5]网站桌面化,B+C+S 模式。[/size][/b] 这正是aardio倡导的模式、也是aardio的[b][size=6]巨大优势[/

网站桌面化,B+C+S 模式。
这正是aardio倡导的模式、也是aardio的巨大优势




回复

使用道具 举报

39

主题

205

帖子

1351

积分

四级会员

Rank: 6Rank: 6

积分
1351
发表于 2010-12-27 23:46:41 | 显示全部楼层

嗯,很好,cool~

嗯,很好,cool~
回复

使用道具 举报

185

主题

2541

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
13973
发表于 2010-12-27 23:57:21 | 显示全部楼层

不要说简单,简单的才是好东西。给他取个名字,例如“[size=5][color=blue][b]百度音乐盒桌面版[/b][/color][/size]”。 然

不要说简单,简单的才是好东西。给他取个名字,例如“百度音乐盒桌面版”。
然后到各大软件站,软件论坛去发布一下。

点评

同意: 5.0
同意: 5
这个想法很不错...觉得他虽然简单但是很实用...  发表于 2010-12-28 08:07
回复

使用道具 举报

52

主题

1340

帖子

7326

积分

荣誉会员

Rank: 8Rank: 8

积分
7326
发表于 2010-12-28 00:15:05 | 显示全部楼层

[i=s] 本帖最后由 qqmmcc 于 2010-12-28 00:15 编辑 [/i] 试听了,太可爱了,现在才发现百度音乐盒,谢谢分享

本帖最后由 qqmmcc 于 2010-12-28 00:15 编辑

试听了,太可爱了,现在才发现百度音乐盒,谢谢分享
回复

使用道具 举报

0

主题

13

帖子

212

积分

荣誉会员

Rank: 8Rank: 8

积分
212
发表于 2010-12-28 07:55:47 | 显示全部楼层

网站桌面化,方便好用!

网站桌面化,方便好用!
努力学习
回复

使用道具 举报

117

主题

1237

帖子

6592

积分

六级会员

Rank: 9Rank: 9Rank: 9

积分
6592
发表于 2010-12-28 08:07:59 | 显示全部楼层

严重支持一个

严重支持一个
我是菜鸟...
回复

使用道具 举报

65

主题

953

帖子

5036

积分

荣誉会员

Rank: 8Rank: 8

积分
5036
发表于 2010-12-28 10:49:57 | 显示全部楼层

看这里->http://music.google.org.cn/ 有人做了谷歌音乐盒...用的是 谷歌音乐搜索. 很受欢迎的说...{:3_54:}

看这里->http://music.google.org.cn/
有人做了谷歌音乐盒...用的是 谷歌音乐搜索.

很受欢迎的说...

点评

你也做一个谷歌音乐盒吧  发表于 2010-12-28 12:57
aaa
回复

使用道具 举报

5

主题

13

帖子

76

积分

一级会员

Rank: 2

积分
76
发表于 2010-12-28 12:11:32 | 显示全部楼层

赞一个{:3_41:}

赞一个
看一下这个
回复

使用道具 举报

12

主题

679

帖子

4008

积分

荣誉会员

子非魚、安知魚之樂

Rank: 8Rank: 8

积分
4008
 楼主| 发表于 2010-12-28 21:07:52 | 显示全部楼层

[quote][size=2][color=#999999]江南涅槃 发表于 2010-12-28 20:46[/color] [url=forum.php?m

江南涅槃 发表于 2010-12-28 20:46
百度电台 加了最小化到托盘,想托盘双击显示窗口搞了很长时间都弄不好,只会搬代码不会制造代码。哎.....
...


                    
if( lparam = 0x203/*_WM_LBUTTONDBLCLK*/){
                            winform.show(true
);
                    }
回复

使用道具 举报

0

主题

4

帖子

21

积分

新手入门

Rank: 1

积分
21
发表于 2010-12-29 08:25:54 | 显示全部楼层

赞一个{:3_48:}

赞一个
回复

使用道具 举报

1

主题

19

帖子

166

积分

培训班

积分
166
发表于 2010-12-29 12:07:33 | 显示全部楼层

赞一个{:victory:}

赞一个
回复

使用道具 举报

37

主题

184

帖子

1240

积分

四级会员

Rank: 6Rank: 6

积分
1240
发表于 2010-12-31 11:02:13 | 显示全部楼层

[b]回复 [url=forum.php?mod=redirect&goto=findpost&pid=3521&ptid=513][color=Olive]x

回复 xauto 的帖子

添加 按钮 显示的好像有点问题,能不能在加一个屏蔽右键的代码
回复

使用道具 举报

0

主题

1

帖子

3

积分

新手入门

Rank: 1

积分
3
发表于 2011-7-13 10:41:03 | 显示全部楼层

严重支持一个

严重支持一个
回复

使用道具 举报

6

主题

167

帖子

903

积分

荣誉会员

爱生活,爱拉芳。

Rank: 8Rank: 8

积分
903
发表于 2011-9-6 16:53:29 | 显示全部楼层

winform.setPos(x-1,y-1,cx+2,cy+2); 改变宽高,有刷新窗体的行为,闪眼,不如去掉cx+2,cy+2然后增加X,

winform.setPos(x-1,y-1,cx+2,cy+2);
        改变宽高,有刷新窗体的行为,闪眼,不如去掉cx+2,cy+2然后增加X,Y减少的数量,酷酷的。
专注、深入。
回复

使用道具 举报

0

主题

4

帖子

35

积分

新手入门

Rank: 1

积分
35
发表于 2011-9-10 21:55:29 | 显示全部楼层

很强呀..竟然这样来显示 部分网页!学习了.

很强呀..竟然这样来显示 部分网页!学习了.
回复

使用道具 举报

1

主题

14

帖子

116

积分

一级会员

Rank: 2

积分
116
发表于 2015-1-17 20:48:33 | 显示全部楼层

今天仔细地研究了楼主的代码,真心表示感谢,又学到了好多技巧,比如托盘图标、右键菜单、网页在窗体上的显示等,虽然如今百度音乐已经更新改版,但楼主的技巧还是很有意义

今天仔细地研究了楼主的代码,真心表示感谢,又学到了好多技巧,比如托盘图标、右键菜单、网页在窗体上的显示等,虽然如今百度音乐已经更新改版,但楼主的技巧还是很有意义的。
只是对下面这一小段代码有点问题:
  1. winform.btnAdd.oncommand = function(id,event){
  2.     //win.msgbox( winform.btnAdd.text );
  3.     wb.getEle("kw").value = winform.edit.text;
  4.     wb.getEle("as").click()
  5.     winform.edit.text = "";
  6. }
复制代码

不知道上面代码中的“kw"和"as"是什么,我猜是不是html中的某标签的id?
如果哪位大侠路过,还请帮忙解惑一下。
再次感谢楼主!
回复

使用道具 举报

1

主题

14

帖子

116

积分

一级会员

Rank: 2

积分
116
发表于 2015-1-17 20:55:44 | 显示全部楼层

[code][lang=aardio,false]winform.btnAdd.oncommand = function(id,event){ //w

  1. winform.btnAdd.oncommand = function(id,event){
  2.     //win.msgbox( winform.btnAdd.text );
  3.     wb.getEle("kw").value = winform.edit.text;
  4.     wb.getEle("as").click()
  5.     winform.edit.text = "";
  6. }
复制代码


  1. winform.btnAdd.oncommand = function(id,event){
  2.     //win.msgbox( winform.btnAdd.text );
  3.     wb.getEle("kw").value = winform.edit.text;
  4.     wb.getEle("as").click()
  5.     winform.edit.text = "";
  6. }
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

手机版|未经许可严禁引用或转载本站文章|站长邮箱|aardio.com|aardio官方社区 ( 皖ICP备09012014号 )

GMT+8, 2018-10-18 22:45 , Processed in 0.093750 second(s), 32 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表