当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 24 篇帖子 ]  前往页数 1, 2  下一页
作者 内容
1 楼 
 文章标题 : 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-24 22:36 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
代码:
☛ cat bin/clip.pl
#!/usr/bin/perl

use Gtk2 "-init";
use Encode;
$SIG{CHLD} = 'IGNORE';
$last="";
my $clip = Gtk2::Clipboard -> get(Gtk2::Gdk::Atom -> intern("PRIMARY", 0));
$clip -> signal_connect("owner-change" => \&deal);

Gtk2 -> main;
exit 0;

#----------------------------------
sub deal{
$_= $clip -> wait_for_text,"primary";
@url=m"http://[^\s]*"g;
if($#url<0){print "none url\n";return 1;}
foreach(@url){
my $t;
s/\W+$//;
next if $last eq $_;
$last=$_;
#----------------------------------
if(/v.youku.com/ || /tudou.com\/playlist/ || /v.ku6.com/ || /6.cn\/watch/ || /tv.sohu.com/){
   $t="下载flash资源";
   if(fork()==0){`xterm -e ~/bin/flash-down.pl $_`;exit;}
}
if(m"http://u.115.com/file/\w+"){
   $t="下载115资源";
   if(fork()==0){`xterm -e ~/bin/115_client $&`;exit;}
}
if(/rapidshare.com/ || /hotfile.com.*html/){
   $t="保存slimrat资源";
   if(fork()==0){`xterm -e ~/bin/slimrat $_`;exit;}
}
#----------------------------------
if($t){
print "$t ===> $_\n";
$t=decode("utf8",$t);
`$ENV{HOME}/bin/msg elvis.png  $t $&`;
} else {print "unrecognized url\n"; return 1;}
}
}

准备好你们的xterm(最好有xterm4.pl和xterm的热键隐藏进制)。省得鼠标乱划,开出无数的窗口。


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本
帖子发表于 : 2010-12-24 22:41 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
:em70 SF


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本
帖子发表于 : 2010-12-24 22:44 
头像

注册: 2008-03-25 15:49
帖子: 25878
地址: 谁知道?
送出感谢: 8
接收感谢: 10
:em70 神不搞附件了 知道木人下 :em04


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本
帖子发表于 : 2010-12-24 22:50 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
胡说的药丸。我99%的脚本都是直接贴的。


_________________
● 鸣学


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本
帖子发表于 : 2010-12-24 22:54 
头像

注册: 2008-03-25 15:49
帖子: 25878
地址: 谁知道?
送出感谢: 8
接收感谢: 10
神 今晚要多吃几个 蓝色的药丸 好好干。 :em11


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本
帖子发表于 : 2010-12-25 0:19 
头像

注册: 2008-03-23 0:39
帖子: 770
送出感谢: 0 次
接收感谢: 4
:em11 更新


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-25 11:48 
头像

注册: 2010-10-30 17:52
帖子: 76
送出感谢: 0 次
接收感谢: 0 次
能监视剪贴板?真不错,可惜,不懂Perl,漂过。


_________________
个人博客:http://blog.jtwo.me/
女友淘宝:http://icykiss.taobao.com/
你有什么不开心的事情,说出来让大家开心一下。


页首
 用户资料  
 
8 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-25 13:19 
头像

注册: 2008-06-30 22:32
帖子: 2869
送出感谢: 0 次
接收感谢: 10
:em70


_________________
הללויה
想看看鄙人的新浪微博麽?那就點這吧!


页首
 用户资料  
 
9 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 13:28 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
-@url=m"http://[^\s]*"g;
+@url=m"(?:http|mms|rtsp)://[^\s]*"g;


+if(/^mms/ || /^rtsp/){
+ if(fork()==0){`xterm -e mplayer $_`;exit;}
+}

增加了直接听电台的。


_________________
● 鸣学


页首
 用户资料  
 
10 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 13:30 

注册: 2009-06-20 23:53
帖子: 490
送出感谢: 3
接收感谢: 0 次
要xterm?


页首
 用户资料  
 
11 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 16:06 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
代码:
 $last="";
+$enable=1;
+use File::Basename qw/basename dirname/;
+chdir dirname (-l $0?readlink $0:$0);
 my $clip = Gtk2::Clipboard -> get(Gtk2::Gdk::Atom -> intern("PRIMARY", 0));
 $clip -> signal_connect("owner-change" => \&deal);
 
+my $status_icon = Gtk2::StatusIcon->new;
+$status_icon->signal_connect('button-press-event',\&tray);
+$status_icon->set_from_file("clip0.png");
+$status_icon->set_visible(1);
+
 Gtk2 -> main;
 exit 0;
+#----------------------------------
+sub tray{
+$enable=$enable?0:1;
+$status_icon->set_from_file($enable?"clip0.png":"clip1.png");
+}
 
 #----------------------------------
 sub deal{
+return 0 if ! $enable;
 $_= $clip -> wait_for_text,"primary";

加到tray了。点下可以切换监视与否。


xterm可以自己改成gnome-terminal或者其他的嘛。


附件:
clip.tar [10 KiB]
被下载 29 次
56.png
56.png [ 45.72 KiB | 被浏览 1977 次 ]



_________________
● 鸣学
页首
 用户资料  
 
12 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 16:09 
头像

注册: 2007-02-02 18:14
帖子: 30702
系统: debian sid
送出感谢: 1
接收感谢: 34
神,再努力,弄个迅雷出来 :em11


_________________
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)


页首
 用户资料  
 
13 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 17:42 

注册: 2009-06-20 23:53
帖子: 490
送出感谢: 3
接收感谢: 0 次
问下神,fork后的flash_down.pl在那?还是我理解有问题? :em06


页首
 用户资料  
 
14 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 20:34 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
http://git.ubuntu.org.cn/?a=blob&p=eexp ... sh-down.pl
or
http://code.google.com/p/flash-down/
在论坛有,可咋搜索不到了呢。

改了2个图标。


附件:
clip0.png
clip0.png [ 993 Bytes | 被浏览 1955 次 ]
clip0.png
clip0.png [ 993 Bytes | 被浏览 1955 次 ]
clip10.png
clip10.png [ 1.12 KiB | 被浏览 1955 次 ]
clip1.png
clip1.png [ 239 Bytes | 被浏览 1955 次 ]
clip1.png
clip1.png [ 239 Bytes | 被浏览 1957 次 ]
clip0.png
clip0.png [ 993 Bytes | 被浏览 1957 次 ]


_________________
● 鸣学
页首
 用户资料  
 
15 楼 
 文章标题 : Re: 监视剪贴板,自动下载的脚本。支持很多种flash网站和很多种网盘。
帖子发表于 : 2010-12-27 20:36 
头像

注册: 2007-02-02 18:14
帖子: 30702
系统: debian sid
送出感谢: 1
接收感谢: 34
晕,ee牌奶嘴 :em05


_________________
醉了星星,醉月亮●●●●●The Long Way To Go(*^_^*)


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 24 篇帖子 ]  前往页数 1, 2  下一页

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 3 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译