Besoin de tests

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))
        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
      next x%
  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