pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Des exemples d'utilisation des fonctions du WLangage

Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.

Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.

Aller à la page des exemples évolués

NetAdresseIP (en anglais NetIPAdress)

// Affiche l'adresse IP de la machine locale
 Info( NetAdresseIP ())

Début de la page

NetConnecte (en anglais NetIPConnect)

hConnect est un entier
// Se connecte à un serveur RPC sur le port 5010
 hConnect = NetConnecte ("148.61.125.245", ServeurRPC , ...
             "NOMUTILIS1", "PASS1", Faux , INTERNET , 5010)

Début de la page

NetDeconnecte (en anglais NetDisconnect)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
NetDéconnecte (hConnect)

Début de la page

NetDemarreServeur (en anglais NetStartServer)

hConnect est un entier
// Se connecte à un serveur RPC sur le port 5010
 hConnect = NetDémarreServeur ( ServeurRPC , Faux , 5010)

Début de la page

NetEnvoieBuffer (en anglais NetSendBuffer)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "")
...
NetEnvoieBuffer (hConnect, "La suite dans quelques instants")

Début de la page

NetEnvoieFichier (en anglais NetSendFile)

SI NetEnvoieFichier (hConnect, "C:\autoexec.bat", ...
        "C:\autoexec.cli", "EnvoieFichier", 10) = Faux ALORS
   Info("Echec du transfert")
FIN

Début de la page

NetEnvoieMessage (en anglais NetSendMessage)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
// Coté client : envoi d'un message Windows au serveur
 NetEnvoieMessage (hConnect, "MonMessage")

Début de la page

NetEnvoieMessageClient (en anglais NetClientSendMessage)

NetEnvoieMessageClient (idServeur, "Reçu", 0, 0)

Début de la page

NetExecute (en anglais NetExecute)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "")
...
// Lance WinWord sur le serveur
 NetExécute(hConnect, "WinWord.exe")

Début de la page

NetFermeAccesDistant (en anglais NetCloseRemoteAccess)

Rapport est un entier = NetOuvreAccèsDistant("Ma connexion")
SI Rapport = 0 ALORS
  // Traitement
   ...
  NetFermeAccèsDistant ()
SINON
  Erreur("Erreur lors de la connexion", NetMsgErreur(Rapport))
FIN

Début de la page

NetFinServeur (en anglais NetEndServer)

hServeur est un entier = NetDémarreServeur( ServeurFTP )
// Arrête le serveur
 NetFinServeur (hServeur)

Début de la page

NetListeDisque (en anglais NetDiskList)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
// Affiche la liste des disques du serveur
 Info( NetListeDisque (hConnect))

Début de la page

NetListeRep (en anglais NetDirList)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
// Affiche la liste des répertoires et des fichiers
// présents sur le disque C: du poste serveur
 Info( NetListeRep (hConnect, "C:\*.*"))

Début de la page

NetMessageBoxClient (en anglais NetClientMessageBox)

IdServeur est un entier = NetDémarreServeur()
// Affiche une boîte de dialogue OuiNon sur le poste client
SI NetMessageBoxClient (IdServeur, "Voulez vous continuer ?",...
       "", netOuiNon ) = 1 ALORS
  ...
FIN

Début de la page

NetMessageBoxDistant (en anglais NetRemoteMessageBox)

hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurRPC , "GUEST", "")
...
// Affiche une boîte de dialogue OuiNon sur le serveur
SI NetMessageBoxDistant (hConnect, "Voulez vous continuer ?", "", netOuiNon )
   ...
FIN


Début de la page

NetMsgErreur (en anglais NetMsgError)

Rapport est un entier = NetOuvreAccèsDistant("Ma connexion")
SI Rapport = 0 ALORS
 ...
 ...
 NetFermeAccèsDistant()
SINON
 Erreur("Erreur lors de la connexion", NetMsgErreur (Rapport))
FIN

Début de la page

NetNomMachine (en anglais NetMachineName)

// Affiche le nom la machine locale
 Info( NetNomMachine ())

Début de la page

NetOptionServeur (en anglais NetServerOption)

hServeur est un entier = NetDémarreServeur( ServeurFTP )
...
// Interdit les fonctions NetExécute et NetSupprimeFichier sur le serveur
 NetOptionServeur (hServeur, netOptionExécute , Faux )
NetOptionServeur (hServeur, netOptionSupprimeFichier , Faux )

Début de la page

NetOuvreAccesDistant (en anglais NetIPOpenRemoteAccess)

Rapport est un entier = NetOuvreAccèsDistant ("Ma connexion")
SI Rapport = 0 ALORS
   ...
   NetFermeAccèsDistant()
SINON
   Erreur("Erreur lors de la connexion", NetMsgErreur(Rapport))
FIN

Début de la page

NetRecupereFichier (en anglais NetGetFile)

-- Code du bouton de récupération de fichier
Sablier( Vrai )
SI PAS NetRécupèreFichier (hConnect, "C:\autoexec.bat", ...
       "C:\autoexec.cli", WM_MYMESSAGE, 10) ALORS
   Erreur("Erreur dans le transfert de fichier")
FIN
Sablier( Faux )

Début de la page

NetRenommeFichier (en anglais NetRenameFile)

Res est un entier
hConnect est un entier
hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "")

// Renommer un fichier sur le serveur
 Res = NetRenommeFichier (hConnect, "C:\HISTO\ANNEE98.TXT", ...
               "C:\HISTO\ANNEE98.BAK")
SI Res <> 0 ALORS
  TraiteErreur() // Procédure de traitement de l'erreur
FIN

Début de la page

NetSupprimeFichier (en anglais NetEraseFile)

hConnect est un entier
Res est un entier
hConnect = NetConnecte("148.61.125.245", ServeurFTP , "GUEST", "")
// Supprimer un fichier sur le serveur
 Res = NetSupprimeFichier (hConnect, "C:\HISTO\ANNEE98.TXT")
SI Res <> 0 ALORS
  TraiteErreur() // Procédure de traitement de l'erreur
FIN

Début de la page