Un log "secret" des adresses URL visitées

J'ai fait un petit programme à l'aide de la nouvelle fonction GetCurrentBrowserURL. Il surveille le browser (Internet Explorer, Firefox, ..., sauf Chrome) et place l'URL active et son titre, avec date et heure, dans un fiichier trace qu'on peut placer où on veut, par un Save_Dialog. Une fois que le fichier est choisi, le programme disparaît de l'écran et de la barre des tâches et ne peut être arrêté que par le gestionnaire des tâches (ctrl/alt/suppr). A tout moment, le fichier trace peut être consulté, par NotePad ou NotePad++ par exemple. Histoire de surveiller ce qui se passe sur ma machine en notre absence...

Code:: ' Tracer_Browser.bas

label close0, tick

' ============= paramètres à adapter
dim kgf$ : kgf$ = "KGF.dll" : ' chemin vers KGF.dll
dim delta% : delta% = 500 : ' délai en ms entre deux vérifications

dim f_trace$, url$, tit$, last_url$, res%

save_dialog 1 : filter 1,"Fichier trace (*.trc)|*.trc"
f_trace$ = file_name$(1)
if f_trace$="_" then terminate
hide 0

if lower$(right$(f_trace$,4))<>".trc" then f_trace$ = f_trace$ + ".trc"
if file_exists(f_trace$)=1 then file_delete f_trace$
file_open_write 1,f_trace$
file_writeln 1,"Trace démarrée le "+date$+" à "+time$+" heures."
file_close 1
on_close 0, close0

timer 2 : timer_off 2 : timer_interval 2,500
on_timer 2,tick : timer_on 2
dll_on kgf$

end

close0:
file_open_append 1,f_trace$
file_writeln 1,"Trace terminée le "+date$+" à "+time$+" heures."
file_close 1
return

tick:
timer_off 2
url$ = string$(255," ")
tit$ = string$(255," ")
res% = DLL_call2("GetCurrentBrowserURL",adr(url$),adr(tit$))
if res%=1
url$ = trim$(url$)
tit$ = trim$(tit$)
if url$<>last_url$
file_open_append 1,f_trace$
file_writeln 1,"URL visitée le le "+date$+" à "+time$+" heures:"
file_writeln 1,"==> "+url$
file_writeln 1," "+tit$
file_close 1
last_url$ = url$
end_if
end_if
timer_on 2
return

Cà c' est une appli qui me plait ! Laughing

Quel est le souci avec chrome ?
Est ce technique ou volontaire de ta part ?

Mais non ! Il suffit de remplacer GetCurrentBrowserURL par GetCurrentChromeURL pour cela. Voir même utiliser ta technique d'identifier le browser actif et d'avoir les deux simultanément...

Ma technique...elle est simple.

Je cherche si un browser est actif
si oui, et que chrome est actif, j' utilise la fonction lié
si oui, et que chrome n' est pas actif, j' utilise l' autre
si il y en a plus d' un et que chrome l' est, je propose un choix.

Sur ma machine, j' en ai trois (IE,FF,Chrome), même si je n' utilise
que chrome pour ma part.

Mais comme tu dis que ce n' est que par choix, je vais l' adapter... Laughing

Je ne sais pas pour IE et autres...
...mais pour chrome, il y a quelque chose à revoir. Laughing

Tu pourras te venter d' avoir transformé mon écran en sapin de noël.
lol!

Lors du démarrage, le programme prends la main toute les 500ms
du coup, dès que j' essaie d' aller sur une fenêtre windows, affraid

c' est le browser qui réapparait puisque la dll cherche la page consultée.

Si je veux arrêter le prog par le gestionnaire, il faut d' abord que je ferme le browser sinon
c'est... Mission impossible...
lol!

En tout cas, je me suis tapé une belle tranche de rigolade.
Et j' en avais besoin, surtout ce soir.
Merci Klaus... Laughing

Après la franche rigolage, prends la nouvelle version V3.18 du 05/08/2014 - le problème devrait être résolu.

Et voici une version du programme de traçage dans laquelle on peut paramétrer simplement entre Chrome et les autres browsers:

Code:: ' Tracer_Browser.bas

label close0, tick

' ============= paramètres à adapter
dim kgf$ : kgf$ = "KGF.dll" : ' chemin vers KGF.dll
dim delta% : delta% = 500 : ' délai en ms entre deux vérifications
dim chrome% : chrome% = 1 : ' 1 si Chrome, 0 sinon

dim f_trace$, url$, tit$, last_url$, res%

save_dialog 1 : filter 1,"Fichier trace (*.trc)|*.trc"
f_trace$ = file_name$(1)
if f_trace$="_" then terminate
hide 0

if lower$(right$(f_trace$,4))<>".trc" then f_trace$ = f_trace$ + ".trc"
if file_exists(f_trace$)=1 then file_delete f_trace$
file_open_write 1,f_trace$
file_writeln 1,"Trace démarrée le "+date$+" à "+time$+" heures."
file_close 1
on_close 0, close0

timer 2 : timer_off 2 : timer_interval 2,500
on_timer 2,tick : timer_on 2
dll_on kgf$

end

close0:
file_open_append 1,f_trace$
file_writeln 1,"Trace terminée le "+date$+" à "+time$+" heures."
file_close 1
return

tick:
timer_off 2
url$ = string$(255," ")
tit$ = string$(255," ")
if chrome%=1
res% = DLL_call2("GetCurrentChromeURL",adr(url$),adr(tit$))
if res%<>0
else
res% = DLL_call2("GetCurrentBrowserURL",adr(url$),adr(tit$))
if res%=1
end_if
url$ = trim$(url$)
tit$ = trim$(tit$)
if url$<>last_url$
file_open_append 1,f_trace$
file_writeln 1,"URL visitée le le "+date$+" à "+time$+" heures:"
file_writeln 1,"==> "+url$
file_writeln 1," "+tit$
file_close 1
last_url$ = url$
end_if
end_if
timer_on 2
return

Je découvre votre discussion avec intérêt (et oui, j'ai des enfants ...), par contre Klaus, on peut avoir Chrome, Mozilla et Internet Explorer et si l'on veut savoir ce qu'il se passe, on ne peut pas prévoir quel navigateur les importuns vont lancer... Il faudrait que la détection se fasse sur tous les navigateurs de façon automatique et non pas par paramétrage manuel. Si seulement on pouvait paramétrer ses enfants ... Very Happy

@ Jicehel,

Je ne sais pas si cela va te rassurer mais j' essaie de paramétrer les miens
depuis 15 ans et rien à faire, il doit y avoir un bug sur leur carte mère...
lol!

@ Klaus,

Je télécharge et j' essaie.

Log secret pas si secret... Laughing

Deux soucis subsistent :

1 / la barre d' adresse reste surlignée en permanence et devient inutilisable. donc on se doute qu' il y a quelque chose qui cloche.
Les pages ne sont plus accessibles que par liens.

2/ le fichier trace n' affiche que la date et l' heure de démarrage
et pas les pages de navigation.

Oups...

La fonction ne copie plus l' adresse de url de la page.
Le texte dans le clipboard reste le dernier copier.

Et comme un couillon, j' ai pas garder la version précédente... Embarassed

je suis en train de travailler dessus...

Je n' en doute pas, j' en profite pour avancer sur les autres fonctions... Laughing

@ygeronimi : mdr Wink

Excellent jeu de mot
@klaus : bon courage et un peu de défit pour toi

J'ai remis une nouvelle génération de KGF.dll sur le site et sur le WebDav. Le retour de l'URL se fait bien maintenant, à partir de Chrome, et le clignotement est "réduit". Je cherche une solution pour le supprimer complètement.

En attendant, voici une nouvelle version du programme de traçage, configurable par browser (actuellement:Chrome):

Code:: ' Tracer_Browser.bas

label close0, tick

' ============= paramètres à adapter
dim kgf$ : kgf$ = "KGF.dll" : ' chemin vers KGF.dll
dim delta% : delta% = 500 : ' délai en ms entre deux vérifications
dim chrome% : chrome% = 1 : ' 1 si Chrome, 0 sinon

dim f_trace$, url$, tit$, last_url$, res%

save_dialog 1 : filter 1,"Fichier trace (*.trc)|*.trc"
f_trace$ = file_name$(1)
if f_trace$="_" then terminate
hide 0

if lower$(right$(f_trace$,4))<>".trc" then f_trace$ = f_trace$ + ".trc"
if file_exists(f_trace$)=1 then file_delete f_trace$
file_open_write 1,f_trace$
file_writeln 1,"Trace démarrée le "+date$+" à "+time$+" heures."
file_close 1
on_close 0, close0

timer 2 : timer_off 2 : timer_interval 2,500
on_timer 2,tick : timer_on 2
dll_on kgf$

end

close0:
file_open_append 1,f_trace$
file_writeln 1,"Trace terminée le "+date$+" à "+time$+" heures."
file_close 1
return

tick:
timer_off 2
url$ = string$(255," ")
tit$ = string$(255," ")
if chrome%=1
res% = DLL_call2("GetCurrentChromeURL",adr(url$),adr(tit$))
if res%<>0 then logit()
else
res% = DLL_call2("GetCurrentBrowserURL",adr(url$),adr(tit$))
if res%=1 then logit()
end_if
timer_on 2
return

sub logit()
url$ = trim$(url$)
tit$ = trim$(tit$)
if url$<>last_url$
file_open_append 1,f_trace$
file_writeln 1,"URL visitée le le "+date$+" à "+time$+" heures:"
file_writeln 1,"==> "+url$
file_writeln 1," "+tit$
file_close 1
last_url$ = url$
end_if
end_sub

Il y a encore des ratés dans le moteur...

Je te mets mon programme, les chemins de fichier/dossier sont à adapter
en début et toute fin de programme.

Spoiler:

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

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

' Adresse
   dim path$,dest_vid$,dest_aud$,LF_audio$,LF_video$
   path$=dir_current$
   LF_audio$=Path$+"\Audio.ptd"
   LF_video$=Path$+"\Video.ptd"
   dest_vid$="C:\Users\Yannick\Videos"
   dest_aud$="C:\Users\Yannick\Music"
' Evenements
   dim clic%,change%

' Objets
   dim no%
   dim Frame1%,L_file%,B_add%,O_mp3%,O_mp4%,B_delete%,B_download%,B_Liste%
   dim Frame2%,L_File2%,B_play%,B_Conv_Avi%,B_Conv_Mp3%,B_Export%,B_close%
   dim SB%,PB%,ASB%
   dim mem%
   dim F_lecteur%
' Fonctions
   dim ie$,ff$,ch$,browser$
   ie$="iexplore.exe"
   ff$="firefox.exe"
   ch$="chrome.exe"
   dim mode%
   mode%=1
   dim i_LFile%,DL_File$
   dim i_LFile2%,DL_File2$
   dim lect$
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
   if clic%=B_Liste%
   hide Frame1%
   Show Frame2%
   if mode%=1
   active B_Conv_Avi%
   active B_Conv_Mp3%
   else
   inactive B_Conv_Avi%
   inactive B_Conv_Mp3%
   end_if
   End_if
   if clic%=L_file2% :SelectFileDownload() :end_if
   if clic%=B_play% :File_play() :End_if
   if clic%=B_Conv_Avi% :File_Convert(1) :End_if
   if clic%=B_Conv_Mp3% :File_Convert(2) :End_if
   if clic%=B_Export% :File_Export() :End_if
   if clic%=B_Close% :Hide Frame2% :Show Frame1% : 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

' Frame de téléchargement
   no%=no%+1 : Frame1%=no%
   O_Panel(no%,0,1,0,0,240,width(0)-16)

   no%=no%+1 : L_File%=no%
   O_List(no%,Frame1%,1,5,5,210,width(0)-26,"",1)

   no%=no%+1 :O_mp4%=no%
   O_option(no%,Frame1%,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%,Frame1%,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%,Frame1%,1,height(0)-83,width(0)-240,20,50,"Add",1)
   Font_bold no%

   no%=no%+1 : B_delete%=no%
   O_Button(no%,Frame1%,1,height(0)-83,width(0)-190,20,50,"Del.",1)
   Font_bold no%

   no%=no%+1 : B_download%=no%
   O_Button(no%,Frame1%,1,height(0)-83,width(0)-140,20,60,"Download",1)
   Font_bold no%

   no%=no%+1 : B_liste%=no%
   O_Button(no%,Frame1%,1,height(0)-83,width(0)-80,20,60,"Liste",1)
   Font_bold no%

' Frame de listing
   no%=no%+1 : Frame2%=no%
   O_Panel(no%,0,0,0,0,240,width(0)-16)

   no%=no%+1 : L_File2%=no%
   O_List(no%,Frame2%,1,5,5,210,width(0)-26,"",1)

   no%=no%+1 : B_play%=no%
   O_Button(no%,Frame2%,1,height(0)-83,width(0)-320,20,60,"Play",1)
   Font_bold no%

   no%=no%+1 : B_Conv_Avi%=no%
   O_Button(no%,Frame2%,1,height(0)-83,width(0)-260,20,60,">> Avi",1)
   Font_bold no%

   no%=no%+1 : B_Conv_Mp3%=no%
   O_Button(no%,Frame2%,1,height(0)-83,width(0)-200,20,60,">> Mp3",1)
   Font_bold no%

   no%=no%+1 : B_Export%=no%
   O_Button(no%,Frame2%,1,height(0)-83,width(0)-140,20,60,"Export",1)
   Font_bold no%

   no%=no%+1 : B_Close%=no%
   O_Button(no%,Frame2%,1,height(0)-83,width(0)-80,20,60,"Close",1)
   Font_bold no%

' Statut bar
   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 new roman" :font_size no%,10 :font_color no%,230,0,0

' Objets invisibles
   no%=no%+1 : mem%=no%
   O_Dlist(no%,"")
End_sub

Sub Action(t$)
   if action%>0
   show action%
   else
   no%=no%+1 :action%=no%
   O_Form(no%,0,1,(top(0)-100)/2,(left(0)-350)/2,100,350,"Avertissement")
   border_hide no%
   end_if
End_sub

' ******************************************************************************
' INITIALISATIONS
' ******************************************************************************
Sub Init()
' dim_local prog$
' prog$="CMD.exe /c echo off | clip"
' Exprog(prog$)
' clipboard_string_copy ""
   Detect_Browser()
   if file_exists(LF_Video$)=1
   file_load L_file2%,LF_Video$
   end_if
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]"
   Clear L_file2%
   if file_exists(LF_Video$)=1 : file_load L_file2%,LF_Video$ :end_if
   else
   mode%=m%
   mark_on O_mp3%
   Caption 0,"Panoratube Downloader - [Audio]"
   Clear L_file2%
   if file_exists(LF_Audio$)=1 : file_load L_file2%,LF_Audio$ :end_if
   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$
   url$=""
   else
   res% = DLL_call2("GetCurrentBrowserURL",adr(url$),0)
   url$=trim$(url$)
   item_add L_File%,url$
   url$=""
   end_if
   message browser$+chr$(13)+url$
End_sub

Sub CopyTo()
   dim_local a$,suf$,titre2$,sep%,b$,dest$,f$
   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$=""
   Caption ASB%,"URL Protégé !!!
   wait 4000
   Caption ASB%,"Téléchargement en cours..."
   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$
   fd$=file_extract_name$(dest$)
   item_add L_file2%,fd$+string$(300-len(fd$)," ")+"|"+date$+"|"+Time$
   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$
   file_save L_file2%,LF_Video$
   else
   dest$=dest_aud$+""+titre2$
   if file_exists( dest$)=0
   file_copy titre2$,dest$
   fd$=file_extract_name$(dest$)
   item_add L_file2%,fd$+string$(300-len(fd$)," ")+"|"+date$+"|"+Time$
   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$
   file_save L_file2%,LF_Audio$
   end_if
   end_if
End_sub

Sub rename(f$,type%)
   dim_local titre$,N_titre$,dest$,fd$
   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$
   fd$=file_extract_name$(dest$)
   item_add L_file2%,fd$+string$(300-len(fd$)," ")+"|"+date$+"|"+Time$
   else
   goto L
   end_if
end_sub

Sub SelectFileDownload()
   if item_index(L_file2%)<>0
   i_LFile2%=item_index(L_file2%)
   DL_File2$=item_index$(L_file2%)
   end_if
End_sub

Sub File_play()
   dim_local sep%,fd$,long$,court$,res%
   sep%=instr(DL_File2$,"|")
   if sep%>0
   fd$=left$(DL_File2$,sep%-1)
   fd$=trim$(fd$)
   else
   fd$=DL_File2$
   end_if
   if mode%=1
   fd$=Dest_vid$+""+fd$
   else
   fd$=Dest_aud$+""+fd$
   end_if
   message fd$
   long$=fd$
   court$=string$(255," ")
   res% = DLL_call2("GetShortName",adr(long$),adr(court$))
   fd$=trim$(court$)
   execute_wait fd$
End_sub

Sub File_Convert(type%)
   dim_local arg$,fd$,f1$,f2$,sep%,prog$,long$,court$,res%
   sep%=instr(DL_File2$,"|")
   if sep%>0
   fd$=left$(DL_File2$,sep%-1)
   fd$=trim$(fd$)
   else
   fd$=DL_File2$
   end_if
   if type%=1
   f1$=Dest_vid$+""+fd$
   long$=f1$
   court$=string$(255," ")
   res% = DLL_call2("GetShortName",adr(long$),adr(court$))
   f1$=trim$(court$)
   f2$=Dest_vid$+""+left$(fd$,len(fd$)-4)+".avi"
   arg$ =" -y -i "+f1$+" -c:v mpeg4 -vtag xvid -q:v 9"
   prog$=ffmpeg$+arg$+" "+f2$
   else
   f1$=Dest_aud$+""+fd$
   long$=f1$
   court$=string$(255," ")
   res% = DLL_call2("GetShortName",adr(long$),adr(court$))
   f1$=trim$(court$)
   f2$=Dest_aud$+""+left$(fd$,len(fd$)-4)+".mp3"
   arg$ = " -y -vn -ar 44100 -ac 2 -ab 192k -f mp3 "
   prog$=ffmpeg$+" -i "+f1$+arg$+f2$
   end_if
   caption ASB%,"Convertion en cours..."
   Exprog(prog$)
   if file_exists(f2$)=1
   caption ASB%,"Convertion Terminée !!!"
   wait 2000
   Caption ASB%,""
   else
   caption ASB%,"Echec de la convertion !!!"
   wait 2000
   Caption ASB%,""
   end_if
End_sub

Sub File_Export()
   dim_local res%,dossier$,racine$,fd$,f1$,f2$,sep%
   sep%=instr(DL_File2$,"|")
   if sep%>0
   fd$=left$(DL_File2$,sep%-1)
   fd$=trim$(fd$)
   else
   fd$=DL_File2$
   end_if
   racine$=":"
   dossier$=string$(255," ")
   res% = DLL_call4("FolderSelect",adr(racine$),adr(dossier$),len(dossier$),0)
   if res%=1
   dossier$ = trim$(dossier$) : ' pour éliminer des espaces de réservation
   if mode%=1
   f1$=Dest_vid$+""+fd$
   else
   f1$=Dest_aud$+""+fd$
   end_if
   f2$=dossier$+""+fd$
   Caption ASB%,"Exportation en cours..."
   file_copy f1$,f2$
   end_if
   if file_exists(f2$)=1
   Caption ASB%,"Exportation réussie !!!"
   wait 2000
   Caption ASB%,""
   else
   Caption ASB%,"Echec de l' exportation !!!"
   wait 2000
   Caption ASB%,""
   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

Parfois url$ est vide
parfois url$ n' est pas changé (re-chargé)

Je ne sais pas si tu gardes les versions de kgf mais il serait intéressant de mettre la dernière version stable en ligne.
( pas celle que tu viens de changer mais celle juste avant )

C'est trop gros pour gérer plusieurs versions simultanément. Je suis en train de travailler sur une version réduisant le clignotement.

Il peut y avoir effectivement des retours sans URL, et de toutes façons des retours avec une URL identique à l'URL précédente. Normal. Regarde la procédure "logit" du programme que j'ai posté ci-dessus. Ces doublons sont à gérer dans ton programme.

Si je respecte une certaine logique chronologique...

j' ouvre un browser
j' ouvre mon programme
--- appel à la fonction de recherche d' un browser actif ( chrome en l' occurence ) qui me renvoie oui
La sub fonctionne très bien (même si elle pourrait être simpliflié Rolling Eyes

) car j' ai toujours les bons résultat en sortie.
j' ouvre une page youtube sur ce browser
je clique sur "ajout" dans mon programme
---appel à la fonction de renvoie de l' url de la page et de son titre pour le browser associé
( apparemment, la fonction se sert du presse papier et les infos y sont récupérés )
-url$ contient l' url de la page
-titre$ contient le titre de la page
je change de page sur youtube
je re-clique sur "ajout"
---la fonction de la dll devrait être relancée et devrait suivre le même processus que la première fois
mais là...niet...parfois j' ai la même url alors qu' elle a changé dans le browser, parfois c' est vide et parfois sur un premier lancement
j' ai le texte copié dans le presse papier dans url$... scratch

Je pense que tu as des problèmes de ré-initialisation qui n' existait pas dans l' ancienne version stable
ou alors les infos viennet se coller à la suite des précédentes et pas en lieu et place le reste de la fonction
relirait alors les mêmes lignes.
J' ai essayé l' astuce de vidange du presse papier par l' invite de commande
mais là affraid

je n' ai plus rien du tout, même en utilisant clipboard_string_copy "" ,
url$ est toujours vide.

Essaie d'utiliser mon programme de démo. Lance-le, choisis le fichier trace pour la sortie, puis navigue un peu dans Chrome. Puis, stoppe mon programme par le gestionnaire des tâches, ou par le bouton "Stop" de l'éditeur si tu le lances par l'éditeur. Puis, tu inspectes le fichier trace. Chez moi, il contient exactement les pages que j'ai visitées, sans doublons et sans blancs.

Regarde la nouvelle version V3.19 du 06/08/2014. Elle apporte une fonction GetCurrentChromeURL qui évite le clignotement. C'est clairement expliqué dans le post d'annonce de cette version.

Juste pour info: ceci est réalisé par une extension à Chrome que j'ai développée dans ce but. Elle permet de définir un raccourci clavier (ctrl/W dans ce cas) pour copier l'URL de l'onglet actif dans le presse-papier. Ca marche très bien. Et accessoirement, je sais maintenant réaliser des extensions à Chrome...

Je grignote et je teste... Laughing

Je suis désespéré, le fichier trace n' affiche que la ligne de date de création...
Crying or Very sad

As-tu essayé mon programme de démo posté ci-dessus ?

Oui Klaus, c' est avec celui là que j' ai testé
et j' ai seulement la première ligne.

Autre chose, il faut que je le lance 2 fois pour voir apparaître le processus. Et évidemment, cela provoque une erreur dans la dll.
Mad

Je suis tombé là dessus : ici et sur ceci : là !

Pourrait-on arriver à certaines choses avec la fonction "SendSingleKey" de kgf ?

fct pour Ctrl+L (selection de l' url)
fct pour Ctrl+C (copie de l' url dans le presse papier )

clipboard_string_paste$ ( pour récupérer l' url dans le presse papier )

Code:: dim kgf$,res%,hnd%

kgf$="C:\Users\Yannick\PANORA~1\KGF\KGF.dll"
dll_on kgf$

hnd% = DLL_call0("GetCurrentChromeHandle")

res% = dll_call5("SendSingleKey",hnd%,76,1,0,0) : ' envoyer ctrl/L
res% = dll_call5("SendSingleKey",hnd%,67,1,0,0) : ' envoyer ctrl/C
message clipboard_string_paste$

end

JE SUIS UN CON !

Je n' avais pas lu l' autre post qui concerne la dll en vs 3.19
J' ai suivi les instructions à la lettre et cela fonctionne au poil sur ta démo.
J' adapterai sur Panoratube un peu plus tard, la nuit dernière a été courte, très courte
et il faut que je récupère... Laughing

Mais, il n' y a pas de raison que ce que tu utilises en rafales ne fonctionne pas au coup par coup
chez moi. Laughing

» Un carnet d'adresses
» Bonnes adresses
» Adresses dans un tableau à 2 dimensions
» Saisie d'un code secret