IP

Question

Ptit question ???
comment faire pour recuper differente ip ?? ex je possede deux carte rezo et un modem  connecter sur le net !
j'aimerai savoir comment faire pour choper tout ces ip ?? j'arrive avec winsock a avoir la 1er ip mais pas les autres !

JP · Answer

Bonjour,
Je suis aussi interressé par la réponse.
J'aimerai aussi savoir comment tu as fais pour avoir la 1er ip avec WinSock.

Merci, d"avance.

MajorDOOM · Answer

il suffit de placer le composant winSock..
et de rentrer dans une variable l'ip

ip = winsockname.localip

JP · Answer

Bonjour,
J'ai trouvé ceci sur le net :
'----- A placer dans un module -----
Public Type HOSTENT
hName As Long
haliases As Long
hAddrtype As Integer
hLength As Integer
hAddrList As Long
End Type
'
Public Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To 256) As Byte
szSystemStatus(0 To 128) As Byte
iMaxsockets As Integer
iMaxUpDg As Integer
lpszVendorInfo As Long
End Type

'
Public Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersion&, lpWSAData As WSADATA) As Long
Public Declare Function WSACleanup Lib "wsock32.dll" () As Long
Public Declare Function gethostname Lib "wsock32.dll" (ByVal HostName As String, ByVal HostLen As Integer) As Long
Public Declare Function gethostbyname Lib "wsock32.dll" (ByVal HostName As String) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, ByVal source As Long, ByVal cbCopy As Long)

Public Const SOCKET_ERROR = -1
'
Public Type IPtype
Nom As String * 256
AdresseIP As String * 64
End Type

Public Function ObtenirAdresseIP() As IPtype

Dim WSAD As WSADATA
Dim Host As HOSTENT
Dim RetVal As Long
Dim Nom As String * 256
Dim Adresse As Long
Dim IPadr As String
Dim Temp() As Byte
'
RetVal = WSAStartup(&H101, WSAD)
If RetVal <> 0 Then
MsgBox "Winsock.dll ne répond pas"
ObtenirAdresseIP.Nom = ""
ObtenirAdresseIP.AdresseIP = ""
Exit Function
End If

If gethostname(Nom, Len(Nom)) = SOCKET_ERROR Then
MsgBox "Erreur Winsock"
ObtenirAdresseIP.Nom = ""
ObtenirAdresseIP.AdresseIP = ""
Exit Function
End If
Adresse = gethostbyname(Nom)
If Adresse = 0 Then
MsgBox "Winwock.dll ne repond pas"
ObtenirAdresseIP.Nom = ""
ObtenirAdresseIP.AdresseIP = ""
Exit Function
End If

'
CopyMemory Host, Adresse, Len(Host)
CopyMemory Adresse, Host.hAddrList, 4
'
ReDim Temp(1 To Host.hLength)
'
CopyMemory Temp(1), Adresse, Host.hLength
'
For i% = 1 To Host.hLength
IPadr = IPadr & Temp(i%) & "."
Next i%
'
IPadr = Left$(IPadr, Len(IPadr) - 1)
ObtenirAdresseIP.Nom = Nom
ObtenirAdresseIP.AdresseIP = IPadr
RetVal = WSACleanup()

End Function

'--- A placer dans un Form ou module ---
Sub GetAdrIp()

Dim Adr As IPtype
Dim Nom As String
Dim Adresse As String
'
Adr = ObtenirAdresseIP
'
p% = InStr(Adr.Nom, Chr$(0))
If p% <> 0 Then
Nom = Left$(Adr.Nom, p% - 1)
Adresse = Trim$(Adr.AdresseIP)
MsgBox Nom & vbCrLf & "Adresse IP = " & Adresse
End If

End Sub

sub-zero · Answer

Toutes ces adresses IP sont inscrites dans la base de registre avec des clefs statiques.Vous pouvez facilement récupérer autant d'adresse IP kil n'y a de cartes réso: vous devez ensuite les tester por vérifier leur validité. Le controle Winsock ne gère qu'une seule adresse IP!

cs_GoldenEye · Answer

-------------------------------
 Réponse au message :	Que se passe t'il au juste ?	  
-------------------------------

Je demande la suppression de mon compte sur www.codes-sources.com et aussi mon droit d'opérateur sur le chan #programmation.

www.codes-sources.com
Login: NitRic_
Password: couguar28

#programmation
Mail: NitRic28@Hotmail.com
Password: couguar28

Raison: Lis les logs du chan #programmation

Fin du message.

En passant c très sérieux alors delete!

NitRic28@Hotmail.com

bye all!

IP

5 réponses

Discussions similaires