Accueil > > > LISTER LES ADRESSES IP DE LA MACHINE
LISTER LES ADRESSES IP DE LA MACHINE
Information sur la source
Description
Lister les adresses IP de la machine
Source
- * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/getipaddrtable.asp
- * les adresses IP de la machine
-
- DECLARE INTEGER GetIpAddrTable IN iphlpapi;
- STRING @ pIpAddrTable,;
- INTEGER @ pdwSize,;
- INTEGER bOrder
- DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr
-
- pdwSize =0
- =GetIpAddrTable (NULL, @pdwSize, 1)
-
- pIpAddrTable = REPLICATE(CHR(0), pdwSize)
- =GetIpAddrTable (@pIpAddrTable, @pdwSize, 1)
-
- nombre = buf2dword(SUBSTR(pIpAddrTable, 1, 4))
-
- FOR i=1 TO nombre
- Adresse = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 5 + (i-1)*24, 4)))
- Masque = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 13 + (i-1)*24, 4)))
- ? adresse + "/" + masque
- Next
-
- FUNCTION buf2dword(cBuffer)
- RETURN Asc(SUBSTR(cBuffer, 1,1)) + ;
- Asc(SUBSTR(cBuffer, 2,1)) * 256 +;
- Asc(SUBSTR(cBuffer, 3,1)) * 65536 +;
- Asc(SUBSTR(cBuffer, 4,1)) * 16777216
* http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/getipaddrtable.asp
* les adresses IP de la machine
DECLARE INTEGER GetIpAddrTable IN iphlpapi;
STRING @ pIpAddrTable,;
INTEGER @ pdwSize,;
INTEGER bOrder
DECLARE STRING inet_ntoa IN ws2_32 INTEGER in_addr
pdwSize =0
=GetIpAddrTable (NULL, @pdwSize, 1)
pIpAddrTable = REPLICATE(CHR(0), pdwSize)
=GetIpAddrTable (@pIpAddrTable, @pdwSize, 1)
nombre = buf2dword(SUBSTR(pIpAddrTable, 1, 4))
FOR i=1 TO nombre
Adresse = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 5 + (i-1)*24, 4)))
Masque = INET_NTOA(buf2dword(SUBSTR(pIpAddrTable, 13 + (i-1)*24, 4)))
? adresse + "/" + masque
Next
FUNCTION buf2dword(cBuffer)
RETURN Asc(SUBSTR(cBuffer, 1,1)) + ;
Asc(SUBSTR(cBuffer, 2,1)) * 256 +;
Asc(SUBSTR(cBuffer, 3,1)) * 65536 +;
Asc(SUBSTR(cBuffer, 4,1)) * 16777216
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
API windows [ par captainstf ]
Salut à tous!Je travaille actuelle sur l'api windows et je gallère pas mal :1- Je cherche à mettre une application au premier plan, j'utilise :showwin
combobox dans un formulaire [ par brunaux ]
Bonjour à tous !utilisant VFP 6.0 occasionnellement pour faire des écrans de saisie,je voudrais savoir comment l'on fait dans un combobox(donc avec un
parution vfp 9.0 [ par brunaux ]
bonjour !je vois que visual foxpro 9.0 va sortir ?sera t-elle en vente en france ? et en francais,evidemment ?puisque je crois que les versions 7.0 et
VFP vers VB [ par senaco ]
Développeur sous Visual Foxpro, je dois développer un exemple d'utilisation de ma DLL sous VB. Or je ne connais pas VB. Existe-t-il une programme de c
VFP 6 Beta : Comment générer les disquettes d'installation? [ par petrone ]
Salut!Utilisateur de Visual FoxPro 6, je me suis mis depuis quelques mois à VFP 9 bêta que j'ai téléchagée sur le net.Depuis j'ai trouvé que des avan
Partage avec DLL [ par delphifox ]
Je voudrais structurer mon projet VFP entre un EXE et plusieurs DLL.L'EXE est en VFP et les DLL aussi. La DLL doit afficher un écran de saisieAu
"Handwriting Recognition" - Signature manuscrite sur un rapport imprimé vs VFP 6.0 [ par BuckStar ]
Appel à tous,J'ai une application en VFP 6.0 en trois modules: 1. Module-Client: Le client passe une commande2. Module-Approbation - La commande
a faire et ne pas faire en VFP [ par brunaux ]
Je suis utilisateur occasionnel et en lisant une contribution dans ATOUTFOX il y a un article qui s'intitule ' a faire et ne pas faire en VFP' j'aimer
Insertion de photo dans vfp [ par mimyangelworld ]
Coucou, voila, je debute un peu dans vfp et je voudrais savoir commeny faire pour pouvoir inserer une photo dans un formulaire qui pourra etre changer
Dificulté avec vfp [ par ladjos ]
salut moi c'est ladjos et j'ai du mal à telecharger visual foxproje demande de l'aide
|
Derniers Blogs
ENUMERABLECOLLECTIONENUMERABLECOLLECTION par Matthieu MEZIL
Prenons le scénario suivant. On utilise MVVM. On a les deux classes suivantes dans le model : public class Child { } public class Parent { private ObservableCollection < Child > _children; public ObservableCollection < Child > Children { get {...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [HS] CHROME 6 + MOI = COUP DE GUEULE ![HS] CHROME 6 + MOI = COUP DE GUEULE ! par JeremyJeanson
Attention, le poste qui suit n'est pas la complainte d'une personne : Qui n'aime pas Chrome. D'un anti Google. D'un développeur qui a un poil énorme dans la main. Ceux qui me fréquentent savent que je change de navigateur favori tous les 2 ou 3 mois afin ...
Cliquez pour lire la suite de l'article par JeremyJeanson [WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7[WP7] UTILISER UN WRAPPANEL DANS UNE APPLICATION WINDOWS PHONE 7 par Audrey
Lors de la réalisation de ma 2ème application Windows Phone 7, j'ai souhaité utiliser un WrapPanel pour afficher plusieurs photos. Mais le contrôle WrapPanel ne fait pas parti de la liste des contrôles inclus dans le SDK de la version Beta des outils pour...
Cliquez pour lire la suite de l'article par Audrey [WP7] BESOIN D'AVOIR DES DONNéES EN CACHE[WP7] BESOIN D'AVOIR DES DONNéES EN CACHE par Nicolas
Les développeurs ASP.NET ont l'habitude de mettre des données en cache pour éviter de requêter a chaque fois la base de données. Et il est toujours utilie de penser que vos utilisateurs mobiles n'ont pas troujours une super connexion 3G/WIFI et un for...
Cliquez pour lire la suite de l'article par Nicolas [TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION[TFS] COMMENT FORCER LA SAISIE D'UN AREA OU ITERATION par cyril
Lorsque l'on créé un Work Item dans TFS, il est possible de le classer dans un "area" et dans une "iteration". Dans la plupart des types de projet, un "area" correspond à une catégorie, une "iteration" à un numéro de version. Il est possible de cré...
Cliquez pour lire la suite de l'article par cyril
Logiciels
uTorrent (2.0.4)UTORRENT (2.0.4)C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m... Cliquez pour télécharger uTorrent Bureau de Gestion - ERP Devis Facturation (2.02)BUREAU DE GESTION - ERP DEVIS FACTURATION (2.02)- Version gratuite du 10/06/2010
Le Bureau de Gestion est un logiciel dédié à la gestion de l'en... Cliquez pour télécharger Bureau de Gestion - ERP Devis Facturation 4Videosoft Transfert iPod Mac (3.2.08)4VIDEOSOFT TRANSFERT IPOD MAC (3.2.08)4Videosoft Transfert iPod-Mac caractérise principalement à transférer les fichiers iPod vers Mac.... Cliquez pour télécharger 4Videosoft Transfert iPod Mac 4Videosoft HD Convertisseur (3.3.08)4VIDEOSOFT HD CONVERTISSEUR (3.3.08)Etant le meilleur HD Vidéo Convertisseur, 4Videosoft HD Convertisseur, vous pouvez regarder la vi... Cliquez pour télécharger 4Videosoft HD Convertisseur 4Videosoft Transfert iPad Mac (3.2.08)4VIDEOSOFT TRANSFERT IPAD MAC (3.2.08)4Videosoft Transfert iPad-Mac est un logiciel managérial iPad professionnel qui a des fonctions i... Cliquez pour télécharger 4Videosoft Transfert iPad Mac
|