UN SIMPLE CALL À UNE PROCÉDURE POUR SE CONNECTER À UN SITE INTERNET.

Signaler
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
-
Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54645-un-simple-call-a-une-procedure-pour-se-connecter-a-un-site-internet

Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013

Source intéressante claire et propre.
L'interface est un peu tapageuse mais c'est un exemple.
Un petit reproche, il est inutile de charger une 'brouette' de composants (contrôls) s'ils ne sont pas utilisés, je sais qu'il est possible de ne pas en tenir compte à la compilation, mais il est préférable de ne pas surcharger la boîte à outils car au chargement du projet, si un ocx ou une dll n'a pas été trouvé, un message d'erreur apparaît ce qui peu être déroutant pour un non initié.
Quant au call d'une fonction ou procédure, il ne me parraît pas déplacé ou inutile, l'appel étant dans ce cas identique au format cible ce qui n'est pas plus mal pour la compréhension du code, tout le monde n'est pas expert et un débutant s'y retrouvera plus facilement.
Messages postés
330
Date d'inscription
mercredi 6 décembre 2000
Statut
Membre
Dernière intervention
26 octobre 2017

Merci pour ce petit mot. Quant à NHENRY, c'est un habitué de ce genre de commentaire, il ne faut pas faire attention.
Merci encore.
Messages postés
13
Date d'inscription
mercredi 22 février 2006
Statut
Membre
Dernière intervention
20 mai 2013

Pourquoi croirait-on que c'est un gag ? Il y a des utilisateurs de tous les niveaux, dont certains ont parfois appris sur le tas et sont friands de découvrir "comment faire ceci ou cela", donc toute astuce, même très simple, n'est pas inutile. Merci.

Quant au "call" de procédure qui semble superflu à NHENRY, c'est parfaitement justifié pour la clarté du source. Je procède depuis toujours de cette façon, pour que l'on comprenne d'un seul coup d'oeil ce dont il s'agit, surtout lorsque l'on travaille à plusieurs sur un projet. Bravo.
Messages postés
14828
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
18 novembre 2021
157
Bonsoir, ta fonction :
Function PageWeb(ADRESSE As String)
Dim Handle As Long
Dim Retour As Long
If IsConnected = False Then Call WebConnect
Handle = GetDesktopWindow()
Retour = ShellExecute(Handle, vbNullString, ADRESSE, "", vbNullString, 0)
End Function

Ne retourne rien, dans ce cas, une Sub serait plus appropriée.
Et ton Call PageWeb(...) peut de simplifié en retirant le mot clé Call.

Sinon pour faire simple, c'est juste un forçage de connexion (si pas en ADSL ou autre) et un ShellExecute.