Récupération d'adresse MAC d'un pc distant

Signaler
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
-
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
-
bonjour
je développe ce code mais il y a des erreurs qui sont incompréhensibles
est ce qu'il y a quelqu'un qui peut m'aider svp j'ai besoin de ce code
Private Declare Function inet_addr Lib "wsock32.dll" _
(ByVal s As String) As Long

Private Declare Function SendARP Lib "iphlpapi.dll" _
(ByVal DestIP As Long, _
ByVal SrcIP As Long, _
pMacAddr As Long, _
PhyAddrLen As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(dst As Any, _
src As Any, _
ByVal bcount As Long)



Private Sub Form_Load()

Text1.Text = "192.168.1.101" 'or address of interest
Text2.Text = ""
Command1.Caption = "Get Remote Mac Address"

End Sub


Private Sub Command1_Click()

Dim sRemoteMacAddress As String

If Len(Text1.Text) > 0 Then

If GetRemoteMACAddress(Text1.Text, sRemoteMacAddress, "-") Then
Text2.Text = sRemoteMacAddress
Else
Text2.Text = "(SendARP call failed)"
End If

End If

End Sub


Private Function GetRemoteMACAddress(ByVal sRemoteIP As String, _
sRemoteMacAddress As String, _
sDelimiter As String) As Boolean

Dim dwRemoteIP As Long
Dim pMacAddr As Long
Dim bpMacAddr() As Byte
Dim PhyAddrLen As Long

'convert the string IP into
'an unsigned long value containing
'a suitable binary representation
'of the Internet address given
dwRemoteIP = ConvertIPtoLong(sRemoteIP)

If dwRemoteIP <> 0 Then

'must set this up first!
PhyAddrLen = 6

'assume failure
GetRemoteMACAddress = False

'retrieve the remote MAC address
If SendARP(dwRemoteIP, 0&, pMacAddr, PhyAddrLen) = NO_ERROR Then

If (pMacAddr <> 0) And (PhyAddrLen <> 0) Then

'returned value is a long pointer
'to the MAC address, so copy data
'to a byte array
ReDim bpMacAddr(0 To PhyAddrLen - 1)
CopyMemory bpMacAddr(0), pMacAddr, ByVal PhyAddrLen

'convert the byte array to a string
'and return success
sRemoteMacAddress = MakeMacAddress(bpMacAddr(), sDelimiter)
GetRemoteMACAddress = True

End If 'pMacAddr

End If 'SendARP

End If 'dwRemoteIP

End Function


Private Function ConvertIPtoLong(sIpAddress) As Long

ConvertIPtoLong = inet_addr(sIpAddress)

End Function


Private Function MakeMacAddress(b() As Byte, sDelim As String) As String

Dim cnt As Long
Dim buff As String

On Local Error GoTo MakeMac_error

'so far, MAC addresses are
'exactly 6 segments in size (0-5)
If UBound(b) = 5 Then

'concatenate the first five values
'together and separate with the
'delimiter char
For cnt = 0 To 4
buff = buff & Right$("00" & Hex(b(cnt)), 2) & sDelim
Next

'and append the last value
buff = buff & Right$("00" & Hex(b(5)), 2)

End If 'UBound(b)

MakeMacAddress = buff

MakeMac_exit:
Exit Function

MakeMac_error:
MakeMacAddress = "(error building MAC address)"
Resume MakeMac_exit

End Function

3 réponses

Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
Bonjour,

"il y a des erreurs qui sont incompréhensibles "
Quelles erreurs ?
Pour le code, lire le point 2 de ma signature.
Tu es en VB6 ou VBA, pas .NET :
VB.NET et VB 2005 > Réseaux & Internet > Internet
Je déplace, prends en note la catégorie.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Messages postés
17
Date d'inscription
dimanche 2 mai 2010
Statut
Membre
Dernière intervention
11 mai 2012
2
salut,
j'ai trouvé tout les codes en vb6
Est ce que vous pouvez me donner l'outil pour le traduire en vb.net
Merci d'avance .
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
Bonjour,

A la place de convertir un code VB6 en .NET, pourquoi ne pas le faire directement en .NET ?
http://social.msdn.microsoft.com/Forums/en-US/netfxnetcom/thread/9971c7f2-3145-4a76-a3b4-80b900eb8296

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---