Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
 | | Sujet: V3.16 du 30/07/2014 - nouvelle fonction GetCurrentChromeURL Mer 30 Juil 2014 - 18:15 | |
| Nouvelle version: KGF.dll V3.16 du 30/07/2014Nouveauté: ajout nouvelle fonction GetCurrentChromeURLModules modifiés: KGF.dll
KGF.chm
KGF.doc
KGF.pdfLa doc et les sources sont à jour. Cette fonction retourne l'URL et le titre de la page Web active dans le CHROME actif. Elle est documentée dans les fonctions diverses. Et voici une démo de cette fonction: - Code:
-
' test_GetCurrentBrowserURL.bas
label lancer, lancerChrome
dim url$, titre$, res%
button 1 : top 1,10 : left 1,10 : caption 1,"Lancer"
on_click 1,lancer
alpha 2 : top 2,40 : left 2,10 :caption 2,"URL:"
edit 3 : top 3,40 : left 3,50 : width 3,400
alpha 4 : top 4,70 : left 4,10 :caption 4,"Titre:"
edit 5 : top 5,70 : left 5,50 : width 5,400
button 11 : top 11,10 : left 11,150 : caption 11,"Lancer pour Chrome"
width 11,150 : on_click 11,lancerChrome
dll_on "KGF.dll"
end
lancer:
url$ = string$(255," ")
titre$ = string$(255," ")
res% = dll_call2("GetCurrentBrowserURL",adr(url$),adr(titre$))
if res%=0 : ' erreur
text 3,"-- erreur --"
text 5,""
else : ' ok
text 3,trim$(url$)
text 5,trim$(titre$)
end_if
return
lancerChrome:
url$ = string$(255," ")
titre$ = string$(255," ")
res% = dll_call2("GetCurrentChromeURL",adr(url$),adr(titre$))
if res%=0 : ' erreur
text 3,"-- erreur --"
text 5,""
else : ' ok
text 3,trim$(url$)
text 5,trim$(titre$)
end_if
return
| |
|
Calendrier