搜索
查看: 6315|回复: 3

[自动化] QQ音乐(2012版本)自动换歌小工具

[复制链接]

56

主题

475

帖子

3808

积分

荣誉会员

Rank: 8Rank: 8

积分
3808
发表于 2012-2-13 21:39:53 | 显示全部楼层 |阅读模式

上班一直开着 ”QQ音乐“  听,有些不喜欢听的就用这个工具来切换掉!






import win.ui;
/*DSG{{*/
var winform = win.form(parent=...; bottom=334;max=false;text="QQ音乐(2012版本)自动换歌小工具";right=378 )
winform.add(
button2={ ah=1;bottom=50;color=0;right=364;left=278;top=20;font=LOGFONT( h=-16 );z=6;text=
"开始";aw=1;cls="button" };
edit={ ah=1;bottom=66;color=0;right=158;left=20;top=35;font=LOGFONT( h=-14 );z=3;aw=1;edge=1;cls=
"edit" };
static={ transparent=1;notify=1;align=
"center";text="本程序用“aardio”开发 , 点击进入 “aardio” 主站";left=34;top=312;z=10;bottom=332;color=255;right=337;cls="static" };
button3={ ah=1;disabled=1;bottom=93;color=0;text=
"停止";left=278;top=63;font=LOGFONT( h=-16 );aw=1;right=364;z=7;cls="button" };
button5={ ah=1;bottom=137;color=0;right=364;left=278;top=107;font=LOGFONT( h=-16 );z=8;text=
"保存列表";aw=1;cls="button" };
button4={ ah=1;bottom=181;color=0;right=364;left=278;top=151;font=LOGFONT( h=-16 );z=9;text=
"清空列表";aw=1;cls="button" };
groupbox2={ ah=1;bottom=306;text=
"跳过列表  --  双击删除";left=9;top=87;aw=1;right=246;z=1;edge=1;cls="groupbox" };
button={ ah=1;bottom=65;text=
"添加";left=167;top=34;aw=1;right=239;z=4;cls="button" };
picturebox={ notify=1;right=373;border=1;top=195;z=11;bottom=304;left=256;cls=
"picturebox" };
listbox={ ah=1;bgcolor=16777215;bottom=299;color=0;right=234;left=15;
items={  };font=LOGFONT( h=-14 );aw=1;top=105;z=5;edge=1;cls=
"listbox" };
groupbox={ ah=1;bottom=80;text=
"添加跳过的 歌曲或歌手";left=9;top=11;aw=1;right=245;z=2;edge=1;cls="groupbox" }
)
/*}}*/

import process
import win.ui.menu;
import winex.mouse
import key

if(io.exist("\配置.txt")){
   
for line in io.lines("\配置.txt") {
        
if(#line>0){
            winform.listbox.add(string.lower(line))
        }
    }
}

winform.picturebox.oncommand =
function(id,event){
    win.msgbox(
"如果更新不能用,联系QQ:116815","提示")
}

winform.static.oncommand =
function(id,event){
   
    process.
execute("http://bbs.aardio.com")
}
//清空列表
winform.button4.oncommand = function(id,event){
    winform.listbox.clear()
}

//保存配置
winform.button5.oncommand = function(id,event){
   
var t={}
   
for(i=1;winform.listbox.count;1){
        table.push(t,winform.listbox.getItemText(i))
    }
    string.save(
"/配置.txt",string.join(t,'\r\n'))
}

//双击删除
winform.listbox.oncommand = function(id,event){
   
if( event == 0x2/*_LBN_DBLCLK*/ ){
        winform.listbox.delete()
    }
}

//开关
winform.button3.oncommand = function(id,event){
    winform.button2.disabled=0
    winform.button3.disabled=1
    kg=
false
}

//添加列表
winform.button.oncommand = function(id,event){
   
if(#winform.edit.text<1)
        
return ;
    winform.listbox.add(string.lower(winform.edit.text))
    winform.edit.text=
""
}

//开始
winform.button2.oncommand = function(id,event){
    kg=
true
    winform.button2.disabled=1
    winform.button3.disabled=0
   
while(win.delay(1)){
        win.delay(200)
        
var 句柄 =win.find("ATL:004BD4E8")
        
if(!kg){return ;}
        
if(!句柄){
            win.msgbox(
"查找窗口失败,QQ音乐要最新版本","提示")
            winform.button2.disabled=0
            winform.button3.disabled=1
            
return ;
        }
        文本=win.getText(句柄)
        文本=string.lower(文本)
        
for(i=1;winform.listbox.count;1){
            
if(!kg){return ; }
            win.delay(10)
            
var str=winform.listbox.getItemText(i)
            
if(#str>1 and string.find(文本,"<@"+str+"@>")){
                key.combine(
"CTRL","ALT","RIGHT")
                win.delay(300)  
            }   
        }
    }
}

winform.wndproc =
function(hwnd,message,wParam,lParam){
   
select(message) {//判断消息类型
        case( 0x112/*_WM_SYSCOMMAND*/ ){ //系统命令消息
            if( wParam == 0xF020/*_SC_MINIMIZE*/ ){ //用户点击了最小化按钮
                import win.util.tray;
                tray = win.util.tray(winform)
//创建托盘图标
                winform.show(false); //隐藏窗口
                return true;//阻击默认消息传递,取消最小化过程
            }
        }
        
case(0x10/*_WM_CLOSE*/){
            
if(winform.button3.disabled=0){
                win.msgbox(
"先停止","提示")
               
return true;
            }
        }
    }
}

winform.wndproc =
function(hwnd,message,wparam,lparam){
   
select(message) {
        
case (0x400+9981/*_WM_TRAYMESSAGE*/){
            
if(lparam=0x0202){
                winform.show(
true)
                tray.delete()
            }
        }
    }
}

winform.show()
win.loopMessage();
return winform;






QQ音乐(2012版本)自动换歌小工具.rar (2.64 KB, 下载次数: 68)
回复

使用道具 举报

56

主题

475

帖子

3808

积分

荣誉会员

Rank: 8Rank: 8

积分
3808
 楼主| 发表于 2012-2-13 21:40:54 | 显示全部楼层

[attach]1626[/attach]

psb.jpg
回复

使用道具 举报

51

主题

266

帖子

1553

积分

四级会员

Rank: 6Rank: 6

积分
1553
发表于 2012-2-14 09:16:48 | 显示全部楼层

感谢分享

感谢分享
回复

使用道具 举报

0

主题

4

帖子

22

积分

新手入门

Rank: 1

积分
22
发表于 2012-3-6 23:38:18 | 显示全部楼层

我试试{:3_59:}

我试试
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-4-23 00:34 , Processed in 0.062502 second(s), 22 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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