Panoratube Downloader

Variables()
Init_pluggins()
Labels()
dll_on kgf$
Gui()
Init()
end



' ******************************************************************************
'                                  VARIABLES
' ******************************************************************************
Sub Variables()

'  Adresse
   dim path$,dest_vid$,dest_aud$
   path$=dir_current$
   dest_vid$="C:\Users\Yannick\Videos"
   dest_aud$="C:\Users\Yannick\Music"
'  Evenements
   dim clic%,change%
   
'  Objets
   dim no%,L_file%,B_add%,O_mp3%,O_mp4%,B_delete%,B_download%,SB%,PB%,ASB%,mem%
   dim Mess%,A_mess%
'  Fonctions
   dim ie$,ff$,ch$,browser$
   ie$="iexplore.exe"
   ff$="firefox.exe"
   ch$="chrome.exe"
   dim mode%
   mode%=1
   dim i_LFile%,DL_File$
End_sub

' ******************************************************************************
'                                   LABELS
' ******************************************************************************
Sub Labels()
  Label Clic,Change,L
End_sub

Clic:
   clic%=number_click
   if clic%=O_mp4%      :Select_mode(1) :end_if
   if clic%=O_mp3%      :Select_mode(2) :end_if
   if clic%=L_file%     :Select_File()  :end_if
   if clic%=B_add%      :Add_File()     :end_if
   if clic%=B_delete%   :Delete_File()  :end_if
   if clic%=B_download% :Download()     :end_if
return

Change:
   change%=number_change
return

' ******************************************************************************
'                          GRAPHICAL USER INTERFACE
' ******************************************************************************
Sub Gui()
   O_Form(0,0,1,0,0,300,500,"Panoratube Downloader - [Vidéo]")
   font_name 0,"arial" : font_size no%,8
   
   no%=no%+1 : L_File%=no%
   O_List(no%,0,1,5,5,210,width(0)-26,"",1)
   
   no%=no%+1 :O_mp4%=no%
   O_option(no%,0,1,height(0)-83,5,20,50,"Vidéo")
   font_name no%,"arial" : mark_on no%
   On_click no%,clic
   
   no%=no%+1 :O_mp3%=no%
   O_option(no%,0,1,height(0)-83,55,20,50,"Audio")
   font_name no%,"arial"
   On_click no%,clic
   
   no%=no%+1 : B_add%=no%
   O_Button(no%,0,1,height(0)-83,width(0)-190,20,50,"Add",1)
   Font_bold no%
   
   no%=no%+1 : B_delete%=no%
   O_Button(no%,0,1,height(0)-83,width(0)-135,20,50,"Del.",1)
   Font_bold no%
   
   no%=no%+1 : B_download%=no%
   O_Button(no%,0,1,height(0)-83,width(0)-80,20,60,"Download",1)
   Font_bold no%
   
   no%=no%+1 : SB%=no%
   O_Statut_Bar(no%,0,1,0)
   
   no%=no%+1 : PB%=no%
   O_Progress_Bar(no%,0,0,height(0)-58,width(0)-180,0,150)
   
   no%=no%+1 : ASB%=no%
   O_Alpha(no%,0,1,height(0)-56,5,0,0,"")
   font_name 0,"times" :font_size no%,10 :font_color no%,200,0,0 :font_bold no%
   
   no%=no%+1 : mem%=no%
   O_Dlist(no%,"")
End_sub

Sub Mess(t$)
   if Mess%>0
      show Mess%
   else
      no%=no%+1 :Mess%=no%
      O_Form(no%,0,1,(top(0)-100)/2,(left(0)-350)/2,100,350,"Avertissement")
      border_small no%
      no%=no%+1 :A_Mess%=no%
      O_Alpha(no%,mess%,1,20,20,0,0,"")
      font_name no%,"arial" : font_size no%,8 : font_bold no%
      font_color no%,255,0,0
   end_if
   caption A_mess%,t$
   wait 3000
   hide Mess%
End_sub

' ******************************************************************************
'                             INITIALISATIONS
' ******************************************************************************
Sub Init()
   Detect_Browser()
End_sub
' ******************************************************************************
'                                FONCTIONS
' ******************************************************************************
Sub Detect_Browser()
   dim_local nav$(2),l$,sep%,res%,lib$,nopt%,img$,mes$,titre$,ie%,ff%,ch%,nb%,nav%(3)
   
   titre$="Choix du navigateur"
   img$=dir_current$+"\img.jpg"
   lib$="Abandonner;Valider;"
   
   ie% = DLL_call1("GetProcessWindowHandle",adr(ie$))
   ff% = DLL_call1("GetProcessWindowHandle",adr(ff$))
   ch% = DLL_call1("GetProcessWindowHandle",adr(ch$))
   
   if ie%<>0 : nb%=nb%+1:nav%(1)=1:lib$=lib$+";Internet Explorer" :end_if
   if ff%<>0 : nb%=nb%+1:nav%(2)=1:lib$=lib$+";FireFox"           :end_if
   if ch%<>0 : nb%=nb%+1:nav%(3)=1:lib$=lib$+";Chrome"            :end_if
   
   if nb%=1
      if nav%(1)=1 :browser$="IE"     :end_if
      if nav%(2)=1 :browser$="FF"     :end_if
      if nav%(3)=1 :browser$="Chrome" :end_if
      Exit_sub
   else
      if nb%>1
         l$=reverse$(lib$)
         sep%=instr(l$,";")
         nav$(2)=left$(l$,sep%-1):l$=right$(l$,len(l$)-sep%)
         sep%=instr(l$,";")
         nav$(1)=left$(l$,sep%-1)
         nav$(1)=reverse$(nav$(1))
         nav$(2)=reverse$(nav$(2))
         
         mes$="Plusieurs navigateurs sont en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
         nopt%=nb%
         res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$), adr(img$),3, nopt%, adr(lib$))

         if nopt%=2 and nav$(1)="Internet Explorer" and nav$(2)="FireFox"
            if res% =1  :browser$=""      :end_if
            if res% =10 :browser$="IE"    :end_if
            if res% =18 :browser$="FF"    :end_if
            Exit_sub
         end_if
         if nopt%=2 and nav$(1)="Internet Explorer" and nav$(2)="Chrome"
            if res% =1  :browser$=""      :end_if
            if res% =10 :browser$="IE"    :end_if
            if res% =18 :browser$="Chrome":end_if
            Exit_sub
         end_if
         if nopt%=2 and nav$(1)="FireFox" and nav$(2)="Chrome"
            if res% =1  :browser$=""      :end_if
            if res% =10 :browser$="FF"    :end_if
            if res% =18 :browser$="Chrome":end_if
            Exit_sub
         end_if
         if nopt%=3
            if res% =1  :browser$=""      :end_if
            if res% =10 :browser$="IE"    :end_if
            if res% =18 :browser$="FF"    :end_if
            if res% =34 :browser$="Chrome":end_if
            Exit_sub
         end_if
      else
         mes$="Aucun navigateur n'est en cours d' utilisation !!!..."+chr$(13)+"Choisissez celui qui vous servira pour naviguer sur Youtube."
         lib$="Abandonner;Valider;;Internet_Explorer;FireFox;Chrome"
         res% = dll_call6("ShowMessageModalEX",adr(titre$),adr(mes$),adr(img$),3,3,adr(lib$))
         if res% =1  :browser$=""      :end_if
         if res% =10 :browser$="IE"    :end_if
         if res% =18 :browser$="FF"    :end_if
         if res% =34 :browser$="Chrome":end_if
      end_if
   end_if
End_sub

Sub Select_mode(m%)
   if m%=1
      mode%=m%
      mark_on O_mp4%
      Caption 0,"Panoratube Downloader - [Vidéo]"
   else
      mode%=m%
      mark_on O_mp3%
      Caption 0,"Panoratube Downloader - [Audio]"
   end_if
End_sub

Sub Select_File()
   i_LFile%=item_index(L_File%)
End_sub

Sub Delete_File()
   if i_LFile%>0
      Item_delete L_File%,i_LFile%
      i_LFile%=0
   end_if
End_sub

Sub Download()
   dim_local c%,x%,fich1$,fich2$,prog$
   c%=count(L_File%)
   if c%>0
      Min PB%,0 : Max PB%,c% : Position PB%,0 :show PB%
      for x%=1 to c%
         fich1$=trim$(item_read$(L_File%,1))
         caption ASB%,"Téléchargement en cours..."
         if mode%=1
            prog$="CMD.exe /c "+ytb$+" "+fich1$
            Exprog(prog$)
            CopyTo()
         else
            prog$="CMD.exe /c "+ytb$+" --extract-audio --audio-format mp3 "+fich1$
            Exprog(prog$)
            CopyTo()
         end_if
         item_delete L_File%,1
         position PB%,position(PB%)+1
         display
      next x%
      position PB%,0 : hide PB%
      caption ASB%,""
   end_if
End_sub



SUB Exprog(prog$)
    ' Exécution d'un programme externe sans la fenêtre noire Ms-DOS
    ' - exemple: Exprog("Cmd.exe /c DIR C:\UTIL >C:\TEMP\Dir.txt")
    DIM_LOCAL scr$, bat$, qu$
    scr$ = path$+"\Vbscript.vbs"
    bat$ = path$+"\Bat.bat"
    qu$ = CHR$(34)
    ' ===== Création du fichier .bat
    FILE_OPEN_WRITE 9, bat$: FILE_WRITELN 9, prog$: FILE_CLOSE 9
    ' ===== Création du script .vbs
    FILE_OPEN_WRITE 9, scr$
    FILE_WRITELN 9, "CreateObject("+qu$+"Wscript.Shell"+qu$+").Run "+qu$+bat$+qu$+",0,True"
    FILE_CLOSE 9
    ' ===== Exécution du script
    EXECUTE_WAIT "WSCRIPT.exe "+scr$
    FILE_DELETE bat$: FILE_DELETE scr$
END_SUB

Sub Add_File()
   dim_local res%,url$
   url$ =string$(255," ")
   if browser$="Chrome"
      res% = DLL_call2("GetCurrentChromeURL",adr(url$),0)
      url$=trim$(url$)
      item_add L_File%,url$
   else
      res% = DLL_call2("GetCurrentBrowserURL",adr(url$),0)
      url$=trim$(url$)
      item_add L_File%,url$
   end_if
End_sub

Sub CopyTo()
   dim_local a$,suf$,titre2$,sep%,b$,dest$
   dir_change path$
   a$=file_find_first$
   a$=file_find_next$
   while a$<>"_"
      suf$=upper$(right$(a$,4))
      if suf$=".MP3" or suf$=".MP4" or suf$=".FLV" or suf$=".AVI"
         DL_File$=a$
      end_if
      a$=file_find_next$
   end_while
   file_find_close
   
   if DL_File$=""
      mess("URL Protégé !!!")
      Exit_sub
   else
      suf$=right$(DL_File$,4)
      titre2$=reverse$(DL_File$)
      sep%=instr(titre2$,"-")
      titre2$=right$(titre2$,len(titre2$)-sep%)
      titre2$=reverse$(titre2$)+suf$
      file_rename DL_File$,titre2$
      
      suf$=upper$(right$(titre2$,4))
      if suf$=".MP4" or suf$=".FLV" or suf$=".AVI"
         dest$=dest_vid$+"\"+titre2$
         if file_exists( dest$)=0
            file_copy titre2$,dest$
         else
            if message_confirmation_yes_no("Fichier existant !!!"+chr$(13)+"Voulez vous renommer le fichier pour le copier ?")=1
               rename(titre2$,1)
            end_if
         end_if
         file_delete path$+"\"+titre2$
         
      else
         dest$=dest_aud$+"\"+titre2$
         if file_exists( dest$)=0
            file_copy titre2$,dest$
         else
            if message_confirmation_yes_no("Fichier existant !!!"+chr$(13)+"Voulez vous renommer le fichier pour le copier ?")=1
               rename(titre2$,2)
            end_if
         end_if
         file_delete path$+"\"+titre2$
      end_if
   end_if
End_sub

Sub rename(f$,type%)
   dim_local titre$,N_titre$,dest$
   titre$=f$
   L:
   if message_input("Renommer","Nouveau nom :","")=1
      N_titre$=message_text$
   else
      exit_sub
   end_if
   if type%=1
      dest$=dest_vid$+N_titre$
   else
      dest$=dest_aud$+N_titre$
   end_if
   if file_exists(dest$)=0
      file_copy titre$,dest$
   else
      goto L
   end_if
end_sub

' ******************************************************************************
'                               BIBLIOTHEQUE OBJETS
' ******************************************************************************

Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
   if No%> 0 then FORM No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
   If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
   ALPHA No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Edit(No%,P%,V%,T%,L%,H%,W%,T$,Ch%)
   EDIT No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   If T$<>"" Then Text No%,T$
   If Ch%=1  Then On_Change No%,Change
End_Sub
' ______________________________________________________________________________
Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
   BUTTON No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
   if Cl%> 0 then on_click No%,Clic
   cursor_point No%
End_Sub
' ______________________________________________________________________________
Sub O_Container(No%,P%,V%,T%,L%,H%,W%,C$)
   CONTAINER No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Memo(No%,P%,V%,T%,L%,H%,W%,F$)
   MEMO No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists(F$)=1 then file_load No%,F$
   end_if
End_Sub
' ______________________________________________________________________________
Sub O_Combo(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
   COMBO No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists F$ then file_load No%,F$
   end_if
   if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_List(No%,P%,V%,T%,L%,H%,W%,F$,Cl%)
   LIST No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if F$<>""
   if file_exists F$ then file_load No%,F$
   end_if
   if Cl%> 0 then on_click No%,Clic
End_Sub
' ______________________________________________________________________________
Sub O_Picture(No%,P%,V%,T%,L%,H%,W%,P$)
   PICTURE No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if P$<>"" then File_load No%,P$
End_Sub
' ______________________________________________________________________________
Sub O_Check(No%,P%,V%,T%,L%,H%,W%,C$)
   CHECK No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Option(No%,P%,V%,T%,L%,H%,W%,C$)
   OPTION No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Main_Menu(No%,P%)
   MAIN_MENU No%
   if P% > 0 then Parent No%,P%
End_Sub
' ______________________________________________________________________________
Sub O_Sub_Menu(No%,P%,C$,Cl%,A%)
   SUB_MENU No%
   if P% > 0 then Parent No%,P%
   if C$<>"" then Caption No%,C$
   If Cl%=1 : on_click No%,Clic  : end_if
   If Cl%=2 : on_click No%,Clic2 : end_if
   If Cl%=3 : on_click No%,Clic3 : end_if
   If Cl%=4 : on_click No%,Clic4 : end_if
   If A%=0 then inactive No%
End_Sub
' ______________________________________________________________________________
Sub O_Open_Dialog(No%,Out%,DD$,Filtre$,O%)
   dim_local F$
   If Object_Exists(No%)=0
      OPEN_DIALOG No%
   End_if
   if DD$<>"" then Dir_Dialog No%,DD$
   if filtre$<>"" then Filter No%,Filtre$+"|"+Filtre$
   F$=File_name$(No%)
   if variable("File$")=0:Dim File$:End_If
   if F$<>"_"
      if O%=1 then text out%,F$
      if O%=2 then Caption Out%,F$
      if O%=3 then item_add Out%,F$
      if O%=4 then file_load Out%,F$
      if O%=5 then File$=F$
   end_if
   Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Save_Dialog(No%,NOut%,DD$,Filtre$,ext$)
   dim_local F$,i%,ext%
    If Object_Exists(No%)=0
       SAVE_DIALOG No%
    End_If
    If DD$<>"" then Dir_Dialog No%,DD$
    If filtre$<>"" then Filter No%,Filtre$
    F$=file_name$(No%)
    If F$<>"_"
       for i%=1 to len(F$)
          if mid$(f$,i%,1)=".":ext%=1:exit_for:end_if
       next i%
       if ext%=1
          File_Save NOut%,F$
       else
          File_save NOut%,F$+ext$
       end_if
    End_If
    Delete No%
End_Sub
' ______________________________________________________________________________
Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
   PROGRESS_BAR No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
End_Sub
' ______________________________________________________________________________
Sub O_Dlist(No%,F$)
   dim_local Fic$
   Fic$=F$
   DLIST No%
   if F$<>""
      if file_exists(Fic$)=1 : then file_load No%,Fic$ : end_if
   end_if
End_Sub
' ______________________________________________________________________________
Sub O_Container_Option(No%,P%,V%,T%,L%,H%,W%,C$)
   CONTAINER_OPTION No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   if C$<>"" then Caption No%,C$
End_Sub
' ______________________________________________________________________________
Sub O_Statut_Bar(No%,P%,V%,M%)
   Dim_Local No2% ,x% ,a% ,Pa%,OSB2%
   Pa%=P% :No2%=No%
   for x%=1 to Number_Objects:If Object_Type(x%)=13 :a%=1:End_If:Next x%
   If M%=0
      O_Picture(No2%,P%,V%,Height(P%)-61,0,23,width(P%)-16,"")
   Else
      if M%=1
         O_Picture(No2%,P%,V%,Height(P%)-81,0,23,width(P%)-16,"")
      else
         O_Picture(No2%,P%,V%,height(P%)-81,0,23,width(P%)-16,"")
      end_if
   End_If
   OSB2%=No2%
   Adaptation_OSB(No2%,Pa%)
End_Sub
' ______________________________________________________________________________
Sub O_Button_Picture(num_obj%,No_b%,P%,V1%,V2%,T%,L%,H%,W%,Pict$,Pict2$)
   O_Picture(num_obj%+1,P%,V2%,T%,L%,H%,W%,Pict2$):cursor_point num_obj% +1
   O_Picture(num_obj%,P%,V1%,T%,L%,H%,W%,Pict$):On_click num_obj%,Clic:cursor_point num_obj%
   obj% = obj%+1
   if variable("No2%")=0 : dim No2% :No2%=7000 :End_if
   if Variable("R%")=0 :dim R% :R%=1:else :R%=R%+1 :end_if
   if Object_exists(7000)=0 :O_Edit(7000,P%,0,-190,-200,0,0):End_If
   If Variable("KGF_res%")=0 then dim KGF_res%
   KGF_res% = dll_call2("ClickSetHook",handle(P%),handle(No2%))
   KGF_res% = dll_call5("ClickDefineRect",R%,L%,T%,W%,H%)

   No2%=No_b%
   O_Button(No2%,P%,0,-200,-200,0,0,"",1)
   KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-5,R%)

   No2%=No_b%+1
   O_Button(No2%,P%,0,-200,-200,0,0,"",1)
   KGF_res% = dll_call3("ClickSetLinkRect",handle(No2%),0-6,R%)
End_Sub
' ______________________________________________________________________________
Sub Adaptation_OSB(No%,P%)
   Dim_Local x% ,y% ,z% ,t$ ,R_osb% ,G_osb% ,B_osb%
   color No%,235,235,239 : y%=width(P%)-27
   Restore
   while t$<>"OSB_Corps.bmp" :read t$:End_while
   Read R_osb% :Read G_osb% :Read B_osb%
   2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
   for x%=0 to y% :2d_point x%,z% :next x%
   Restore
   while t$<>"OSB_Fin.bmp" :read t$:End_while
   for x%=y% to y%+10
      for z%=0 to 22
         Read R_osb% :Read G_osb% :Read B_osb%
         2d_target_is No% : 2d_pen_color R_osb%,G_osb%,B_osb%
         2d_point x%,z%
      next z%
   next x%
Data "OSB_Corps.bmp"
data 170,165,162
data "OSB_Fin.bmp"
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 242,239,239
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 242,239,239
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 242,239,239
data 170,165,162
data 170,165,162
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 170,165,162
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
data 239,235,235
End_Sub
' ------------------------------------------------------------------------------
Sub O_Timer(No%,OO%,Inter%)
   TIMER No%
   if OO%=1 then timer_on No%
   if OO%=0 then timer_off No%
   if inter%>0 then timer_interval No%,inter%
End_Sub
' ------------------------------------------------------------------------------
Sub O_Spin(No%,P%,V%,T%,L%,H%,W%,Mi%,Ma%,C%)
   SPIN No%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
   Min No%,Mi%
   Max No%,Ma%
   if C% > 0 Then on_change No%,Change
End_sub
' ------------------------------------------------------------------------------
Sub O_Panel(No%,P%,V%,T%,L%,H%,W%)
   Panel no%
   if P% > 0 then Parent No%,P%
   If V% = 0 Then hide No%
   If H% > 0 Then Height No%,H%
   If W% > 0 Then Width No%,W%
   If T% > 0 Then Top No%,T%
   If L% > 0 Then Left No%,L%
End_sub
' ******************************************************************************
'                       INITIALISATION DES PLUGGINS
' ******************************************************************************


Sub Init_pluggins()

   dim kgf$,bdr$
   dim ffmpeg$,ytb$,ffprobe$,ffplay$
'   dim z7$
'   dim jhead$
'   dim nconv$
'   dim pdfdetach$,pdffont$,pdfing$,pdfinfo$,pdfhtml$,pdfpng$,pdfppm$,pdftop$,pdftext$,pdfimg$

   kgf$       ="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
'   bdr$       ="C:\Users\Yannick\PANORA~1\KGF\BDR.dll"
   ytb$       ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\YOUTUB~1.EXE"
   ffmpeg$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffmpeg.exe"
   ffprobe$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffprobe.exe"
   ffplay$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\ffplay.exe"
'   z7$        ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\7z.exe"
'   jhead$     ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\jhead.exe"
'   nconv$     ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\nconvert.exe"
'   pdfdetach$ ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFDET~1.EXE"
'   pdffont$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdffonts.exe"
'   pdfimg$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFIMA~1.EXE"
'   pdfinfo$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdfinfo.exe"
'   pdfhtml$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFTOH~1.EXE"
'   pdfpng$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftopng.exe"
'   pdfppm$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftoppm.exe"
'   pdftop$    ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\pdftops.exe"
'   pdftext$   ="C:\Users\Yannick\PANORA~1\RESSOU~1\Pluggins\PDFTOT~1.EXE"
End_sub