comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl Tk] DH Player

  • 0 Respuestas
  • 820 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:59:37 pm »
Un feo pero funcional reproductor mp3

Imagen





Código: Perl
  1. #!usr/bin/perl
  2. #DH Player 0.1
  3. #(C) Doddy Hackman 2011
  4. #ppm install http://www.bribes.org/perl/ppm/Win32-MediaPlayer.ppd
  5.  
  6. use Tk;
  7. use Tk::DirTree;
  8. use Win32::MediaPlayer;
  9.  
  10. if ($^O eq 'MSWin32') {
  11. use Win32::Console;
  12. Win32::Console::Free();
  13. }
  14.  
  15. $test = new Win32::MediaPlayer;
  16.  
  17. $new = MainWindow->new(-background=>"black");
  18. $new->geometry("350x420+20+20");
  19. $new->resizable(0,0);
  20. $new->title("DH Player 0.1 (C) Doddy Hackman 2011");
  21. $new->Label(-background=>"black",-foreground=>"yellow",-font=>"Impact",-text=>"Directory : ")->place(-x=>"20",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"20");
  22. my $dir = $new->Entry(-background=>"black",-foreground=>"yellow",-text=>"C:\\Users\\Daniel\\Desktop\\WarFactory\\Perl\\musica")->place(-x=>"100",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"25");
  23. $new->Button(-background=>"black",-foreground=>"yellow",-activebackground=>"yellow",-text=>"Search",-width=>"10",-command=>\&buscar)->place(-x=>"240",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"25");
  24. $new->Label(-background=>"black",-foreground=>"yellow",-text=>"Files Found",-font=>"Impact")->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"95",-x=>"120");
  25. my $lists = $new->Listbox(-background=>"black",-foreground=>"yellow")->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"130",-x=>"100");
  26. $new->Button(-background=>"black",-foreground=>"yellow",-text=>"Play",-width=>"55",-activebackground=>"yellow",-command=>\&play)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"310");
  27. $new->Button(-background=>"black",-foreground=>"yellow",-text=>"Pause",-width=>"55",-activebackground=>"yellow",-command=>\&pause)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"333");
  28. $new->Button(-background=>"black",-foreground=>"yellow",-text=>"Resume",-width=>"55",-activebackground=>"yellow",-command=>\&resume)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"356");
  29. $new->Button(-background=>"black",-foreground=>"yellow",-text=>"Stop",-width=>"55",-activebackground=>"yellow",-command=>\&stop)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"379");    
  30. $new->Button(-background=>"black",-foreground=>"yellow",-text=>"Browse",-width=>10,-command=>\&bro,-activebackground=>"yellow")->place(-x=>240,-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>48);
  31.  
  32. MainLoop;
  33.  
  34. sub bro {
  35. my $ven = MainWindow->new();
  36. $ven->title("Choose Directory");
  37. $ven->geometry("300x280+20+20");
  38. $ven->resizable(0,0);
  39. $ven->Scrolled("DirTree",-width=>100,-height=>20,-command=>\&choose)->No tienes permisos para ver links. Registrate o Entra con tu cuenta();
  40.  
  41. sub choose {
  42. $dir->configure(-text=>$_[0]);
  43. $ven->destroy;
  44. }
  45. }
  46.  
  47. sub play {
  48.  
  49. my $dir = $dir->get;
  50.  
  51. $d = $lists->curselection();
  52.  
  53. for my $id (@$d) {
  54. my $cancion = $lists->get($id);
  55. $test->load($dir."\\".$cancion);
  56. $test->play;   
  57. }
  58.  
  59. }
  60.  
  61. sub stop {
  62. $test->No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  63. }
  64.  
  65. sub pause {
  66.  
  67. my $dir = $dir->get;
  68.  
  69. $d = $lists->curselection();
  70.  
  71. for my $id (@$d) {
  72. my $cancion = $lists->get($id);
  73. $test->pause;
  74. }
  75.  
  76. }
  77.  
  78. sub resume {
  79.  
  80. my $dir = $dir->get;
  81.  
  82. $d = $lists->curselection();
  83.  
  84. for my $id (@$d) {
  85. my $cancion = $lists->get($id);
  86. $test->resume;
  87. }
  88.  
  89. }
  90.  
  91. sub buscar {
  92.  
  93. $lists->No tienes permisos para ver links. Registrate o Entra con tu cuenta(0.0,"end");
  94.  
  95. my $dir = $dir->get;
  96.  
  97. No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR,$dir;
  98.        
  99. my @archivos = No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  100.  
  101. No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  102.  
  103. No tienes permisos para ver links. Registrate o Entra con tu cuenta @archivos;
  104.  
  105. foreach my $file(@archivos) {
  106. if (-f $dir."\\".$file) {
  107. if ($file=~/wma/ or $file=~/mp3/) {
  108. $lists->insert("end",$file);
  109. }
  110. }
  111. }
  112.  
  113. }
  114.  
  115.  
  116. # ¿ The End ?
  117.  
« Última modificación: Julio 17, 2011, 03:44:29 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3156
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1134
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1273
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1371
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX