Re: Soutien scolaire en langues.

Publié par Anonyme le 02/03/2020 12:58:59

Bonjour.

Pour Jakez.

Pouvez-vous télécharger les deux modules suivants, puis lancer le code indiqué, avec puis sans connection Internet.

Editeur Panoramic: https://mon-partage.fr/f/q4fGRoYc/
kgf.dll: https://mon-partage.fr/f/rYvJtLuT/

kgf.dll doit être placé dans le même dossier que l'éditeur Panoramic.

Code à tester avec l'éditeur:
------------------------------

dim connection, crlf$, e$
crlf$=chr$(10)+chr$(13)

dll_on "kgf"

InternetGetConnectedState()

end

sub InternetGetConnectedState()
connection()
if connection=1
message "Vous êtes bien connexté à Internet."
else
e$="Ce module nécessite que votre PC soit connecté à Internet."+crlf$
e$=e$+"Or, ce n'est pas le cas actuellement !"+crlf$
e$=e$+"Merci d'établir une connection."
message e$
end_if
end_sub

sub connection()
dll_off:dll_on "wininet"
connection=dll_call2("InternetGetConnectedState",0,0)
dll_off:dll_on "kgf"
end_sub