Au secours : TERMINATE ne m'aime plus!

rem ============================================================================
label quitter
dim res%, WB1%, WB2%, url$

dll_on "C:\Users\acer\Desktop/KGF.dll"
button 1 : top 1,30 : left 1,250 : caption 1,"Quitter" : on_click 1,Quitter
CreerWB()
end
rem ============================================================================
SUB creerWB()
  WB1% = dll_call1("WB_Create",handle(0))
  res% = dll_call5("WB_Locate",WB1%,100,100,400,300)
  url$ = "http://panoramic.1fr1.net/"
  res% = dll_call2("WB_Url",WB1%,adr(url$))
END_SUB
rem ============================================================================

Quitter:
  res% = dll_call1("WB_Delete",WB1%)
'  terminate
return
rem ============================================================================

dll_on "C:\Users\acer\Desktop\KGF.dll"
message "ok"
terminate

dim version$, res%
version$ = string$(25," ")
dll_on "KGF.dll"
res% = dll_call1("KGFdllVersion",adr(version$))
hide 0
message "ok "+str$(res%)+" = " + version$
show 0
terminate

res% = dll_call1("KillProcessByHandle",handle(0))

dim res%,WB%
dll_on "C:\Users\acer\Desktop/KGF.dll"
WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,50,50,400,300)
' Ici je veux définir un BUTTON

rem ============================================================================
rem       Intégrer un objet Flash dans un objet HTML
rem ============================================================================

label fin
dim Id_Form,jeu$ ,WB% , termine%
full_space 0
Id_Form = 10 : form Id_Form
 width Id_Form,width(0)-100 : height Id_Form,height(0)-120 : top Id_Form, 100 : left Id_Form,50
 button 20 : left 20,width(0)/2-200 : top 20,20 : width 20, 200 : caption 20,"Q U I T T E R"
 font_bold 20: font_size 20,14 : on_click 20,fin

dll_on "C:\Users\acer\Desktop/kgf.dll" : ' Adapter le chemin
jeu$ = "C:\Users\acer\Desktop\SWF\Math/Aire4_Triangle1.swf" : ' Fichier Flash

caption Id_Form,jeu$
Jeu_Flash(Id_Form,jeu$,width(10),height(10))
end
rem ============================================================================
' Id_Form : identificateur du Form
' Jeu$ est le nom du fichier Flash d'extension SWF
' Largeur et Hauteur sont les dimensions de la fenêtre de vision
SUB Jeu_Flash(Id_Form,jeu$,largeur,hauteur)
    dim_local  hnd%, res%, url$,q$
    q$ = chr$(34)
    file_open_write 9999,"flash.html"
' L'animation flash ci-dessous se résume en un petit code, c'est la simplcité même de l'html5.
    file_writeln 9999,"<embed src='"+jeu$+"'"+q$+" width="+q$+str$(largeur)+q$+" height="+q$+str$(hauteur)+q$+">"
    file_close 9999

    hnd%=handle(Id_Form)
    url$="file://"+dir_current$+"/flash.html"
    WB%=dll_call1("WBCreate",hnd%)
    res%=dll_call4("WBLocate",0,0,largeur,hauteur)
    res%=dll_call1("WBUrl",adr(url$))
    file_delete "flash.html"
END_SUB
rem ============================================================================
fin:
  termine% = dll_call1("KillProcessByHandle",handle(0))
return
rem ============================================================================

rem ============================================================================
rem      Intégrer un objet Flash dans un objet HTML
rem ============================================================================

label fin, autre
dim Id_Form,jeu$ ,WB% , termine%
full_space 0
Id_Form = 10 : form Id_Form
 width Id_Form,width(0)-100 : height Id_Form,height(0)-120 : top Id_Form, 100 : left Id_Form,50
 button 20 : left 20,width(0)/2-200 : top 20,20 : width 20, 200 : caption 20,"Q U I T T E R"
 font_bold 20: font_size 20,14 : on_click 20,fin
' ======== Klaus: solution 1: (2 lignes)
' button 30 : left 30,width(0)/2 : top 30,20 : width 30, 200 : caption 30,"A U T R E"
' font_bold 30: font_size 30,14 : on_click 30,autre

dll_on "kgf.dll" : ' Adapter le chemin
jeu$ = "Aire4_Triangle1.swf" : ' Fichier Flash

caption Id_Form,jeu$
Jeu_Flash(Id_Form,jeu$,width(10),height(10))
end
rem ============================================================================
' Id_Form : identificateur du Form
' Jeu$ est le nom du fichier Flash d'extension SWF
' Largeur et Hauteur sont les dimensions de la fenêtre de vision
SUB Jeu_Flash(Id_Form,jeu$,largeur,hauteur)
    dim_local  hnd%, res%, url$,q$
' ======== Klaus: solution 2: (2 lignes)
 button 30 : left 30,width(0)/2 : top 30,0 : width 30, 200 : caption 30,"A U T R E"
 font_bold 30: font_size 30,14 : on_click 30,autre : parent 30,10
    q$ = chr$(34)
    file_open_write 9999,"flash.html"
' L'animation flash ci-dessous se résume en un petit code, c'est la simplcité même de l'html5.
    file_writeln 9999,"<embed src='"+jeu$+"'"+q$+" width="+q$+str$(largeur)+q$+" height="+q$+str$(hauteur)+q$+">"
    file_close 9999

    hnd%=handle(Id_Form)
    url$="file://"+dir_current$+"/flash.html"
    WB%=dll_call1("WBCreate",hnd%)
' ======== Klaus: solution 1: (1 ligne)
'    res%=dll_call4("WBLocate",0,0,largeur,hauteur-30)
' ======== Klaus: solution 3: (1 ligne)
    res%=dll_call4("WBLocate",0,30,largeur,hauteur-30)
    res%=dll_call1("WBUrl",adr(url$))
    file_delete "flash.html"
END_SUB
rem ============================================================================
fin:
  termine% = dll_call1("KillProcessByHandle",handle(0))
return
rem ============================================================================
autre:
  message "charger ici une autre animation flash..."
  to_foreground 10
return
rem ============================================================================