Utilisateur WDF
Inscrit: 23/12/2002 13:25
De 34 (Hérault)
Post(s): 65
|
Cette classe n'est pas de moi mais récupérée pendant mes longues heures de recherche .....
ATTENTION ==>> classe non testée migrée de 5.5 en 7.x
DESCRIPTION : Cette Classe possede une methode lire_carte(Num_carte) Lire carte donne tous les elements de la carte reseau : Adrs_mac, description, adresse Ip sous mask, Passerelle, serveur DHCP Voici la declaration de la classe :
Carte_res est une Class
descript est une chaine Mac_Adr est une chaine DHCP est une chaine IP_adr est une chaine IP_mask est une chaine Passerelle est une chaine Serv_DHCP est une chaine
Fin dans le fichier zip vous avez la classe. ex d'appel : macarte est un objet carte_res macarte:lire_carte(0) // Rempli la structure
CLASSE PROPREMENT DITE : Déclaration ==>>>> Carte_res est une class descript est une chaîne Mac_Adr est une chaîne DHCP est une chaîne IP_adr est une chaîne IP_mask est une chaîne Passerelle est une chaîne Serv_DHCP est une chaîne FIN
Méthode de lire_carte ==>>>> PROCEDURE Carte_res::Lire_carte(numecarte)
//Code WinDev 5.5 remplacé par la migration : //numfic est un entier long numfic est un entier lignelue est une chaîne
Commande est une chaîne ASCIIZ sur 255
Commande = "ipconfig /all /batch "+fRepEnCours()+"\carte.txt" AppelDLL32("kernel32","WinExec" , &Commande, 0) Multitache(100) numfic = fOuvre(fRepEnCours()+"\carte.txt",foLecture) SI numfic <> -1 lignelue = fLitLigne(numfic) TANTQUE lignelue <> EOT SI Position(lignelue,numecarte+" - Carte") > 0 TANTQUE Position(lignelue,"Bail expirant",0) = 0 ET lignelue <> EOT SI Position(lignelue,"Description",1) > 0 :descript=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"Adresse physique",1) > 0 :Mac_Adr=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"DHCP activ",1) > 0 :DHCP=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"Adresse IP",1) > 0 :IP_adr=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"Masque de sous-",1) > 0 :IP_Mask=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"Passerelle par",1) > 0 :passerelle=ExtraitChaîne(lignelue,2,":") FIN SI Position(lignelue,"Serveur DHCP",1) > 0 :serv_DHCP=ExtraitChaîne(lignelue,2,":") FIN lignelue = fLitLigne(numfic) FIN FIN lignelue = fLitLigne(numfic) FIN fFerme(numfic) FIN fSupprime(fRepEnCours()+"\carte.txt")
@+ et bon développement Vianney
Contribution le : 09/07/2003 15:12
|