Un log "secret" des adresses URL visitées

Eh bien, je suis soulagé ! Tant mieux si ça marche maintenant chez toi.

Pour revenir à ta suggestion

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

c'est un peu le principe que j'utilisais dans la DLL. Sauf que ctrl/L place bien le curseur dans l'URL et sélectionne l'URL, et techniquement, ça marchait bien, mais la sélection de l'URL la met en bel, et c'était ce qui provoquait le clignotement de l'URL que tu as signalé comme étant prohibitif.

J'ai donc cherché une autre solution pour pouvoir copier l'URL mais SANS la sélectionner au préalable ! Impossible à obtenir par des touches au clavier, ni par frappe directe ni par simulation en envoyant des caractères. Il faut plonger dans les entrailles de Chrome, et ce n'est possible que via une extension.

J'ai téléchargé et testé une bonne trentaine d'extensions, mais aucune n'était vraiment utilisable, et toutes présentent le même défaut: on n'a pas les sources et on ne maîtrise rien. C'est donc une question de confiance. Pas évident.

J'ai donc choisi de créer ma propre extension Chrome, qui n'a qu'une seule fonction: copier l'URL du tab actif dans le presse-papier. Et elle le fait, et elle le fait bien. Et elle ne fait que ça. Les sources (HTML et Java-Script) sont sur le WebDav, et à partir de là, chacun peut y plonger pour voir le fonctionnement (c'est vraiment très court) et développer ses propres extensions à partir de là, si besoin.

Juste pour info, voici les 4 fichiers source importants:
manifest.json - crée l'interface entre Chrome et l'extension, avec les droits d'accès

Code:: {
"manifest_version": 2,

"name": "Copy active URL",
"description": "This extension copies the URL of the actual tab",
"version": "1.0",

"icons": {
"128": "icon-128.png",
"16": "icon-16.png",
"48": "icon-48.png"
},

"permissions": [
"tabs", "activeTab", "http://*/", "https://*/"
],

"background": {
"scripts": ["background.js"]
},

"browser_action": {
"default_icon": "icon-19.png",
"default_popup": "popup.html"
}
}

popup.html - page popup activée par le clic sur l'icône de l'extension (ou le raccourci défini pour elle)

Code:: <!doctype html>
<html style="position:absolute;left:3000px;top:3000px">
<script src="popup.js"></script>
</html>

popup.js - la véritable extension en Java-Script

Code:: document.addEventListener( 'DOMContentLoaded', function () {
window.onload = function () {
chrome.tabs.query({'active': true, 'windowId': chrome.windows.WINDOW_ID_CURRENT},
function(tabs){
copyToClipboard(tabs[0].url);
}
);
self.close();
}

function copyToClipboard( text ){
var copyDiv = document.createElement('div');
copyDiv.contentEditable = true;
document.body.appendChild(copyDiv);
copyDiv.innerHTML = text;
copyDiv.unselectable = "off";
copyDiv.focus();
document.execCommand('SelectAll');
document.execCommand("Copy", false, null);
document.body.removeChild(copyDiv);
}
}
);

background.js - Java-Script dont la présence est obligatoire mais non utilisé ici, donc vide

Code:

On voit que le travail se fait dans la ligne

Code:: copyToClipboard(tabs[0].url

de popup.js. Et cette fonction est juste derrière, dans le même fichier. Une fois qu'on a compris le principe, c'est élémentaire...

Je ne maîtrise pas aussi bien tous ces langages que toi
et je ne m' aventurerai pas à mettre le souk dans chrome
(il le fait bien assez bien tout seul Laughing

).

En tout cas, je suis content que tu es trouvé la faille
pour dompter la bête.

Je ne connais pas les stats d ' utilisation des browser mais
il me semble qu' une fois dompté IE,FF et Chrome, la passerelle
entre panoramic et le web devient très large.

En tout cas BRAVO !!!

ce qui me chagrine un peu, c' est la différence entre le copier et le coller. comme si le coller se faisait avant le copier.
j' avais un temps de décalage, en fait, le coller me coller l' avant dernier copier et pas le dernier.
C 'est tout de même étrange... scratch

Je n'ai pas constaté ce décalage chez moi. Mais je viens d'introduire un petit délai entre l'exécution de l'extension et la récupération du presse-papier. Recharge la DLL et regarde si ce problème est réglé...

Je crois que je me suis mal exprimé et pas au bon endroit
ce décalage, je le constate avec la méthode que je proposé
sur l' envoi de key_code dans l' autre posts.

ceci dit, un petit délai ajoutera une sécurité.

@ Klaus,

Peux tu tester ce code chez toi ?
les chemins à changer sont en début et 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$,tit$,car$
url$ =string$(255," ")
tit$ =string$(255," ")
car$="W"
if browser$="Chrome"
res% = DLL_call3("GetCurrentChromeURL",adr(url$),0,adr(car$))
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

Tu ouvres chrome sur le forum (par exemple)
Tu copies n' importe quel texte dans le presse papier
Tu lances l' appli et tu clique sur "Add"

Normalement tu devrais avoir l' url de la page web dans le "List"
ben moi j' ai le dernier texte copié à la place

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