Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] MusicLister
Auteur Message
Répondre en citant
Message [Prog] MusicLister 
Salut Very Happy

MusicLister permet lister des liens youtube, ou chaque personne qui a le programme peut ajouter des liens, la liste des liens sera disponible a une adresse.
On rentre le lien youtube et le programme va chercher le titre de la vidéo, creer un fichier "titre_video.txt" qui contient le lien youtube et l'envoyer a la liste. ( exemple : http://YagoShack.fr.nf/?img=cLnyz.png )

La version php : http://lister.yagoserver.net/

Ensuite suffit de faire un programme qui pour chaque txt recupere les liens pour les télécharger facilement avec Free Youtube Download par ex

Bon c'est encore au stade de projet, je compte tout faire en php ce sera plus simple et pratique.


Code:

<?php

if (isset($_FILES)) {
   $target_path = "music/";
   foreach ($_FILES as $key => $file) {

      $format = explode(".", $file["name"]);
      if ($format[1] == "txt")
      {

         move_uploaded_file($file["tmp_name"], $target_path . basename($file["name"]));

         $targeturl = "http://" . $_SERVER['SERVER_NAME'] . "/" . $target_path;
         echo($targeturl . basename($file["name"]));
      }
      else
      {
      echo "ERREUR-Format-non-autorisé";
      }
      }
   
}


?>


Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Include <String.au3>
#include "WinHTTP.au3"
#include "WinHTTPConstants.au3"

$lien_post_file = "http://votresite.com/post_files.php"

FileInstall("WinHTTP.au3","WinHTTP.au3")
FileInstall("WinHTTPConstants.au3","WinHTTPConstants.au3")
FileDelete("liens.txt")

#Region ### START Koda GUI section ### Form=
$Form = GUICreate("MusicLister v0.3 by yago_nfs_tm_91-", 594, 366, 192, 124)
$Label1 = GUICtrlCreateLabel("liste des liens youtube :", 8, 16, 113, 17)
$EditLiens = GUICtrlCreateEdit("", 8, 40, 577, 273)
GUICtrlSetData(-1, "collez les liens youtube ligne par ligne ici")
$ButtonEnv = GUICtrlCreateButton("ENVOYER", 24, 320, 217, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $form_fields

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit

      Case $ButtonEnv

         $ReadEditLiens = GUICtrlRead($EditLiens)
         FileWrite("liens.txt", $ReadEditLiens)
         Sleep(500)
          Local $aRecords
         If Not _FileReadToArray("liens.txt", $aRecords) Then
            MsgBox(4096, "Error", " Error reading log to Array     error:" & @error)
            Exit
         EndIf

         GUICtrlSetData($EditLiens, "")
         Global $title

         For $x = 1 To $aRecords[0]

            $youtube = StringSplit(FileReadLine("liens.txt", $x), ".")
            ConsoleWrite($youtube[2])
            If $youtube[2] = "youtube" or $youtube[1] = "http://youtu" Then

               InetGet(FileReadLine("liens.txt", $x),"html.txt",1); on assigne une valeur a notre variable
               $title = FileReadLine("html.txt",12)
               FileDelete("html.txt")
               $title = @UserName&" - "&$title
               ReplaceTitle()
               FileWrite($title&".txt", FileReadLine("liens.txt", $x))
               Sleep(300)
         
               $retour = _Post_File($lien_post_file, $title, $title&".txt")
               ConsoleWrite($retour&@CRLF)
               Sleep(300)
               FileDelete($title&".txt")
               GUICtrlSetData($EditLiens, $title&@CRLF, $x)
            Else
               MsgBox(48, "erreur", "LIEN PAS YOUTUBE !")
            EndIf
         Next
         FileDelete("liens.txt")
         GUICtrlSetData($EditLiens, "fini, go sur votresite.com/music",$x + 1)
   EndSwitch
WEnd

Func ReplaceTitle()
   $title = StringReplace($title,"."," ")
   $title = StringReplace($title,"&"," ")
   $title = StringReplace($title,"é"," ")
   $title = StringReplace($title,'"'," ")
   $title = StringReplace($title,"'"," ")
   $title = StringReplace($title,"è","e")
   $title = StringReplace($title,"ç","c")
   $title = StringReplace($title,"à","a")
   $title = StringReplace($title,"="," ")
   $title = StringReplace($title,"^"," ")
   $title = StringReplace($title,"$"," ")
   $title = StringReplace($title,"ù","u")
   $title = StringReplace($title,"*"," ")
   $title = StringReplace($title,","," ")
   $title = StringReplace($title,";"," ")
   $title = StringReplace($title,":"," ")
   $title = StringReplace($title,"!"," ")
   $title = StringReplace($title,"~"," ")
   $title = StringReplace($title,"#"," ")
   $title = StringReplace($title,"{"," ")
   $title = StringReplace($title,"["," ")
   $title = StringReplace($title,"|"," ")
   $title = StringReplace($title,"`"," ")
   $title = StringReplace($title,"\"," ")
   $title = StringReplace($title,"@"," ")
   $title = StringReplace($title,"]"," ")
   $title = StringReplace($title,"}"," ")
   $title = StringReplace($title,"¨"," ")
   $title = StringReplace($title,"£"," ")
   $title = StringReplace($title,"°"," ")
   $title = StringReplace($title,"¤"," ")
   $title = StringReplace($title,"%"," ")
   $title = StringReplace($title,"µ","u")
   $title = StringReplace($title,"?"," ")
   $title = StringReplace($title,"/"," ")
   $title = StringReplace($title,"§"," ")

EndFunc

Func _Post_File($post_file_url, $namefile, $namefile_withformat)
    Local $URL = _WinHttpCrackUrl($post_file_url)
    Local $hOpen = _WinHttpOpen()
    Local $hConnect = _WinHTTPConnect($hOpen, $URL[2], $URL[3])
    Local $hRequest = _WinHttpOpenRequest($hConnect, "POST", $URL[6] & $URL[7], "HTTP/1.1", "http://" & $URL[2])

    Local $form_files[1][2] = [[$namefile, $namefile_withformat]]

    Local $FormDatas = Encode_MultiPart_FormData($form_fields, $form_files)
    Local $content_type = 'Content-Type: ' & $FormDatas[0] & @CRLF
    _WinHttpSendRequest($hRequest, $content_type, $WINHTTP_NO_REQUEST_DATA, StringLen($FormDatas[1]))
    _WinHTTPWriteData($hRequest, StringToBinary($FormDatas[1]), 1)

    _WinHttpReceiveResponse($hRequest)
    Local $html = ""
    If _WinHttpQueryDataAvailable($hRequest) Then
        Local $temp
        While 1
            $temp = _WinHttpReadData($hRequest)
            If $temp = "" Then ExitLoop
            $html &= $temp
        WEnd
        $temp = ""
    EndIf
    ConsoleWrite(_WinHttpQueryHeaders($hRequest) & @LF)
    ConsoleWrite($html & @LF)
    ;_IEDocWriteHTML($oIE, $html)

    _WinHttpCloseHandle($hRequest)
    _WinHttpCloseHandle($hConnect)
    _WinHttpCloseHandle($hOpen)
   Return $html
EndFunc


pour les includes :
http://code.google.com/p/autoit-cn/source/browse/trunk/UserInclude/WinHttp.…
http://code.google.com/p/autoit-cn/source/browse/trunk/UserInclude/WinHttpC…

Bon c'est juste a titre demonstratif mais ca vous permet de voir comment envoyer un fichier sur un serveur de manière plus ou moins sécurisé Okay





______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Prog] MusicLister 
Bonjour yago
je n ai pas bien compris le but de ton programme. Peut etre veux tu faire un programme de partage de liens youtube ou une playlist ?

J attends de voir le programme.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Prog] MusicLister 
J'ai abandonner le programme et tout recodé en php sur http://lister.yagoserver.net/
(Tu peux déplacer le sujet si tu veux)

Enfaite le site permet de creer une liste de liens.
On rentre son prénom (pour les logs)
on met le titre de la liste (car n'importe qui peut creer ou ajouter a n'importe quel liste).
on met une liste de liens, le site va chercher le titre de la page du liens, et creer dans la liste un fichier *titre_de_la_page*.txt qui contient le liens.

Exemple de liste : http://lister.yagoserver.net/listes/index.php?liste=test
On peut voir les logs (les dernier envois),
ainsi que en bas de la page uniquement tout les liens.

Le site détecte si un lien a deja été envoyer !

Un exemple d'utilisation du lister, par exemple pour une fete entre amis chaqun souhaiterais mettre sa musique, avec le lister chacun met les lien youtube de ses musiques.
Une fois que tout le monde a envoyer ces liens, il suffit de prendre en bas de la page de la liste tout les liens et de les coller dans un logiciel de type "Free Youtube Download" pour télécharger toute les video d'un coup ! Okay

Voila j'espère que c'est assez clair Mr. Green

Maintenant faut que je fasse un truc pour pouvoir supprimer des liens.




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Répondre en citant
Message [Prog] MusicLister 
Hello !

Pas mal !
Je vois que tu t'es amélioré niveau sécurité Mr. Green un moment j'ai eu peur que je puisse enregister du code php Very Happy
Mais en tout cas chapeau j'aime bien Okay

Par contre, ce serait pas mieux de stocker toute la liste dans un seul fichier *.txt ?
Mine de rien, 100 fichier avec une ligne dedans, ça en bouffe de l'espace disque (100 secteurs donc au moins 100 ko)
alors que un fichier ne ferait quelques ko ..

@+




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [Prog] MusicLister 
Darkbatcher a écrit:
Hello !

Pas mal !
Je vois que tu t'es amélioré niveau sécurité Mr. Green un moment j'ai eu peur que je puisse enregister du code php Very Happy
Mais en tout cas chapeau j'aime bien Okay

Par contre, ce serait pas mieux de stocker toute la liste dans un seul fichier *.txt ?
Mine de rien, 100 fichier avec une ligne dedans, ça en bouffe de l'espace disque (100 secteurs donc au moins 100 ko)
alors que un fichier ne ferait quelques ko ..

@+


Ah oui je pourrais faire un truc du genre
Citation:
*titre* : *lien*
*titre* : *lien*
...


Mais bon pas grave je pense pas que des masses de monde vont utiliser mon site Mr. Green




______________________________________________________
http://www.YagoServer.net/
Visiter le site web du posteur Yahoo Messenger Skype
Répondre en citant
Message [Prog] MusicLister 
Hello,

Sympa comme idée !

Tu peux laisser les sources Autoit car elles montrent bien l'utilisation de WinHTTP.

Citation:
Par contre, ce serait pas mieux de stocker toute la liste dans un seul fichier *.txt ?
Mine de rien, 100 fichier avec une ligne dedans, ça en bouffe de l'espace disque (100 secteurs donc au moins 100 ko)
alors que un fichier ne ferait quelques ko ..


A ce moment autant utiliser une petite base de données.




______________________________________________________
Répondre en citant
Message [Prog] MusicLister 
sablier94 a écrit:
A ce moment autant utiliser une petite base de données.


ouais, c'est surement l'option la plus pertinente Mort de Rire




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Message [Prog] MusicLister 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch