Problème avec l'objet WB.

' Version du 31 août 2020.

dim a$, a_partir_de%, c$, crlf$, d$, debut$, e$, element$, f$, fic$, jusque%, lettre$, lien$, nom$, nombre%, p$, url$, i%, k%, res%, tab1$(19), tab2$(19), te$, wb%, zz%

crlf$=chr$(10)+chr$(13)

lien$="https://www.collinsdictionary.com/dictionary/french-english/"

dll_on "kgf"

maximize 0

memo 1
left 1,550:width 1,500:height 1,700
bar_both 1
font_size 1,12:font_bold 1:font_color 1,0,0,255

wb%=dll_call1("WBCreate",handle(0))
res%=dll_call4("WBLocate",0,0,500,700)

' https://www.collinsdictionary.com/dictionary/french-english/jouer
url$=lien$+"jouer"
res%=dll_call2("WB_Url",wb%,adr(url$)):wait 600
caption 0,"1"
res%=dll_call2("WB_CopyToMemo",wb%,handle(1)):wait 600
caption 0,"2"
if trim$(item_read$(1,1))="" then wait 1000:res%=dll_call2("WB_CopyToMemo",wb%,handle(1)):wait 1000
caption 0,"OK"

' Version du 31 août 2020.

dim a$, a_partir_de%, c$, crlf$, d$, debut$, e$, element$, f$, fic$, jusque%, lettre$, lien$, nom$, nombre%, p$, url$, i%, k%, res%, tab1$(19), tab2$(19), te$, wb%, zz%

crlf$=chr$(10)+chr$(13)

lien$="http://www.collinsdictionary.com/dictionary/french-english/"

dll_on "kgf"

maximize 0

memo 1
left 1,550:width 1,500:height 1,700
bar_both 1
font_size 1,12:font_bold 1:font_color 1,0,0,255

dlist 2:dlist 3

' fic$="C:\traducteur\dico_collins.txt"
' if file_exists(fic$)=1 then file_load 3,fic$

wb%=dll_call1("WB_Create",handle(0))
res%=dll_call5("WB_Locate",wb%,0,0,500,700)

c$="Ã:copyright: ê Ã:registered: è Å“ ç É ï â ä û ô ß ö ü Ãœ Ö ù à "
d$="é  ê  î  è  oe ç  é  ï  â  ä  û  ô  ß  ö  ü  Ü  Ö  ù  à "

debut$=time$

for k%=1 to 19
    tab1$(k%)=trim$(mid$(c$,k%*3-2,2))
    tab2$(k%)=trim$(mid$(d$,k%*3-2,2))
next k%

for k%=1 to 1      
    caption 0,str$(k%)+"/1"

    ' https://www.collinsdictionary.com/dictionary/french-english/jouer
    url$=lien$+"jouer"
    res%=dll_call2("WB_Url",wb%,adr(url$)):wait 1000
    message "1"
    
    res%=dll_call2("WB_CopyToMemo",wb%,handle(1)):wait 1000
    message "2"
    
    if trim$(item_read$(1,1))="" then wait 1000:res%=dll_call2("WB_CopyToMemo",wb%,handle(1)):wait 1000
    
    file_save 1,"c:\a\mot.txt"
    file_load 2,"c:\a\mot.txt"      
    
    chercher()
    if res%>0
       clear 1
       for i%=res% to count(2)
           item_add 1,item_read$(2,i%)
       next i%    
    end_if
    
    ' clear 1
next k%
message "fin"
end

i%=0
for k%=1 to count(3)
    a$=trim$(item_read$(3,k%))
    if a$="*" then i%=i%+1
next k%

message "Début: "+debut$+", fin: "+time$+crlf$+crlf$+"Nombre de mots traduits: "+str$(i%)+"."
terminate
end

sub corriger_ligne()
    for zz%=1 to 19
        e$=tab1$(zz%):f$=tab2$(zz%)
        res%=dll_call5("ReplaceStringInString",adr(a$),adr(e$),adr(f$),adr(a$),0)
    next zz%

    e$="'":f$="'":res%=dll_call5("ReplaceStringInString",adr(a$),adr(e$),adr(f$),adr(a$),0)
    e$="à":f$="à":res%=dll_call5("ReplaceStringInString",adr(a$),adr(e$),adr(f$),adr(a$),0)
end_sub

sub chercher()
    te$=string$(255," ")
    ' Début des traductions.
    element$="<h1 class="+chr$(34)+"wnv entry_title"
    res%=abs(dll_call3("SearchStringList",object_internal(2),adr(element$),adr(te$)))
end_sub