Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    juin 2004
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2004
    Messages : 41
    Points : 51
    Points
    51

    Par défaut Message pour Morsi sur l'adresse IP

    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ù.
    Un chat avec des moufles n'attrape pas de souris.

  2. #2
    MC2
    MC2 est déconnecté
    Membre habitué

    Inscrit en
    août 2002
    Messages
    147
    Détails du profil
    Informations forums :
    Inscription : août 2002
    Messages : 147
    Points : 178
    Points
    178

    Par défaut

    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+

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    juin 2004
    Messages
    41
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juin 2004
    Messages : 41
    Points : 51
    Points
    51

    Par défaut

    Merci,
    ça marche nickel
    Un chat avec des moufles n'attrape pas de souris.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [OL-2010] Message non remis sur certaines adresses
    Par leloup84 dans le forum Outlook
    Réponses: 0
    Dernier message: 02/07/2012, 09h52
  2. Réponses: 2
    Dernier message: 17/07/2007, 00h01
  3. Réponses: 7
    Dernier message: 27/04/2007, 17h04
  4. Quel langage pour envoyer un fichier sur une adresse
    Par dai.kaioh dans le forum Développement
    Réponses: 2
    Dernier message: 02/04/2004, 16h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo