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] DH Player

  • 0 Respuestas
  • 926 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:38:25 pm »
Bueno , este es un simple reproductor de musica que hice en perl
En esta version podran tener buscar musica y reproducirla todo en una ventana grosa

Código: Perl
  1. #!usr/bin/perl
  2. #DH Player 0.1
  3. #(C) Doddy Hackman 2011
  4.  
  5. use Tk;
  6. use Win32::MediaPlayer;
  7.  
  8. if ($^O eq 'MSWin32') {
  9. use Win32::Console;
  10. Win32::Console::Free();
  11. }
  12.  
  13.  
  14. $test = new Win32::MediaPlayer;
  15.  
  16. $new = MainWindow->new(-background=>"black");
  17. $new->geometry("350x420+20+20");
  18. $new->resizable(0,0);
  19. $new->title("DH Player 0.1 (C) Doddy Hackman 2011");
  20. $new->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"Directory : ")->place(-x=>"20",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"20");
  21. my $dir = $new->Entry(-background=>"black",-foreground=>"green",-text=>"C:\\Users\\Daniel\\Desktop\\WarFactory\\Perl\\musica")->place(-x=>"100",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"25");
  22. $new->Button(-background=>"black",-foreground=>"green",-activebackground=>"green",-text=>"Search",-width=>"10",-command=>\&buscar)->place(-x=>"240",-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"25");
  23. $new->Label(-background=>"black",-foreground=>"green",-text=>"Files Found",-font=>"Impact")->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"95",-x=>"120");
  24. my $lists = $new->Listbox(-background=>"black",-foreground=>"green")->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"130",-x=>"100");
  25. $new->Button(-background=>"black",-foreground=>"green",-text=>"Play",-width=>"55",-activebackground=>"green",-command=>\&play)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"310");
  26. $new->Button(-background=>"black",-foreground=>"green",-text=>"Pause",-width=>"55",-activebackground=>"green",-command=>\&pause)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"333");
  27. $new->Button(-background=>"black",-foreground=>"green",-text=>"Resume",-width=>"55",-activebackground=>"green",-command=>\&resume)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"356");  
  28. $new->Button(-background=>"black",-foreground=>"green",-text=>"Stop",-width=>"55",-activebackground=>"green",-command=>\&stop)->place(-No tienes permisos para ver links. Registrate o Entra con tu cuenta=>"379");      
  29.  
  30.  
  31. MainLoop;
  32.  
  33.  
  34. sub play {
  35.  
  36. my $dir = $dir->get;
  37.  
  38. $d = $lists->curselection();
  39.  
  40. for my $id (@$d) {
  41. my $cancion = $lists->get($id);
  42. $test->load($dir."\\".$cancion);
  43. $test->play;   
  44. }
  45.  
  46. }
  47.  
  48. sub stop {
  49. $test->No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  50. }
  51.  
  52. sub pause {
  53.  
  54. my $dir = $dir->get;
  55.  
  56. $d = $lists->curselection();
  57.  
  58. for my $id (@$d) {
  59. my $cancion = $lists->get($id);
  60. $test->pause;
  61. }
  62.  
  63. }
  64.  
  65. sub resume {
  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->resume;
  74. }
  75.  
  76. }
  77.  
  78. sub buscar {
  79.  
  80. $lists->No tienes permisos para ver links. Registrate o Entra con tu cuenta(0.0,"end");
  81.  
  82. #$dir = "C:\\Users\\Daniel\\Desktop\\WarFactory\\Perl\\musica";
  83.  
  84. my $dir = $dir->get;
  85.  
  86. No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR,$dir;
  87.        
  88. my @archivos = No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  89.  
  90. No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  91.  
  92. No tienes permisos para ver links. Registrate o Entra con tu cuenta @archivos;
  93.  
  94. foreach my $file(@archivos) {
  95. if (-f $dir."\\".$file) {
  96. $lists->insert("end",$file);
  97. }
  98. }
  99.  
  100. }
  101.  
  102.  
  103. # ¿ The End ?
  104.  


Si lo quieren descargar desde sourceforge

Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
https://sourceforge.net/projects/dhplayer/

« Última modificación: Marzo 14, 2015, 09:58:00 am por Expermicid »

 

¿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: 1470
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1600
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[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
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