WebBrowser sur une form Panoramic !

dim x,y,D$,F$

  for x=0 to 100
  for y=0 to 9
  D$="C:\Program Files\Adobe\Reader "+str$(x)+"."+str$(y)
  if dir_exists(D$)=1 then F$=D$
  next y
  next x
  print F$+"\Reader\AcroRd32.exe

full_space 0
label fin , copier_html
dim dll$ , res% , wb% , hnd% , url$ , car$ , pris%
dll$ = "H:\KGF.dll"
dll_on dll$

hnd% = handle(0)
dim shift% , ctrl% , alt%

  browser_A() : pris% = 0  :' pas de problème
' browser_B() : pris% = 1  :' erreur acces violation addresse......

main_menu 10:sub_menu 11: parent 11,10:caption 11,"arréter" : on_click 11,fin
sub_menu 12:parent 12,10:caption 12,"copier html":on_click 12,copier_html
end
' ============================
sub browser_A()
   res% = dll_call1("WBCreate",hnd%)
   res% = dll_call4("WBLocate",0,0,width(0),height(0))
   url$ = "http://panoramic.1fr1.net/"
   res% = dll_call1("WBUrl",adr(url$))
end_sub

sub browser_B()
   WB% = dll_call1("WB_Create",hnd%)
   res% = dll_call5("WB_Locate",WB%,0,0,width(0),height(0))
   url$ = "http://panoramic.1fr1.net/"
   res% = dll_call2("WBUrl",WB%,adr(url$))
end_sub

' ==
fin:
   if pris% = 0 then res% = dll_call0("WBDelete"): else : res% = dll_call1("WBDelete",WB%)
   dll_off
terminate

' teste pour sélection de toute une page html (panoramic en exemple pour l'instant)
copier_html:
    res% = dll_call2("MouseLeftClick",20,50)  :' mettre la souris dans la fenêtre
    car$ = "a" : :ctrl% = 1 : shift% = 0  : alt% = 0
    res% = dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),ctrl%,shift%,alt%)
return

Comme peut-être faut-il avec la souris avoir le handle de la page html, la solution "browser_B" pourrait convenir
mais il y a erreur.

sub browser_B()
  WB% = dll_call1("WB_Create",hnd%)
  res% = dll_call5("WB_Locate",WB%,0,0,width(0),height(0))
  url$ = "http://panoramic.1fr1.net/"
  res% = dll_call2("WBUrl",WB%,adr(url$))
end_sub

fin:
  if pris% = 0 then res% = dll_call0("WBDelete"): else : res% = dll_call1("WBDelete",WB%)
  dll_off
terminate