Discussion :

[bizu31]

Salut Morsi,
j'ai parcouru ton astuce sur "Comment récupérer mon adresse IP", que tu as laissée à disposition sur les trucs et astuces pour access, et j'ai quelques problèmes.
Je dois créer une application access en réseau sur 10 postes, et j'ai besoin justement de récupérer l'adresse IP de la machine pour déterminer sur quel poste je suis (de 0 à 9; ce numéro sert à constituer un identifiant "personnage" avec d'autres valeurs).
Mes questions sont :
1) tu dis que la dernière partie (à partir de -->Maintenant, sur l'évenement click du bouton IP doit se mettre sur la procédure événementielle - sur clic - du bouton IP.
Il faut donc créer un bouton, mais comment un bouton peut-il afficher une adresse ?
-> du coup j'ai mis la dernière partie à la suite de mon module, puis j'ai créé une zone de texte avec l'appel de fonction :>N°P.Value = Get_IP_Click() mais là: problème: ->GetWanIP n'est pas déclaré
En effet dans ta fonction Get_IP, GetWanIP n'est pas déclaré.
Comme je ne comprend pas bien comment ta fonction fonctionne, j'aimerais bien que tu m'explique (un petit peu stp)

2)ta fonction Get_IP_Click() renvoie une chaine de caractère,
mais j'ai pas trouvé où.

[MC2]

Salut,
il y a une erreur dans cet item, à la place de "Et Maintenant...", il faut lire :
Maintenant, la fonction à appeler pour obtenir l'adresse IP :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Function GetWanIP() As String
Dim Ret As Long, Tel As Long
Dim bBytes() As Byte
Dim TempList() As String
Dim TempIP As String
Dim Tempi As Long
Dim Listing As MIB_IPADDRTABLE
Dim L3 As String
On Error GoTo END1
    GetIpAddrTable ByVal 0&, Ret, True
    If Ret <= 0 Then Exit Function
    ReDim bBytes(0 To Ret - 1) As Byte
    ReDim TempList(0 To Ret - 1) As String
    GetIpAddrTable bBytes(0), Ret, False
    CopyMemory Listing.dEntrys, bBytes(0), 4
    For Tel = 0 To Listing.dEntrys - 1
        CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel))
        TempList(Tel) = ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr)
    Next Tel
    TempIP = TempList(0)
    For Tempi = 0 To Listing.dEntrys - 1
        L3 = Left(TempList(Tempi), 3)
        If L3 <> "169" And L3 <> "127" And L3 <> "192" Then
            TempIP = TempList(Tempi)
        End If
    Next Tempi
    GetWanIP = TempIP 'Return The TempIP
    Exit Function
END1:
    GetWanIP = ""
End Function

Enfin, sur l'évènement click du bouton IP:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub btn_IP_Click()
    msgbox GetWanIP
End Sub

A+

[bizu31]

Merci,
ça marche nickel