Winsock: connaître l' ip du pc

Commenter

Contenu du snippet

sur un formulaire, mettre
1 winsock (Winsock1)
1 Shape (Shape1) pour faire un voyant
1 Timer (Timer1)
1 Label (Label1)

Source / Exemple : 


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyEscape              '  si la touche ESCAPE est actionnée, Ferme l'appli.
            Unload Me
        Case Else                           '  si une autre touche... fait BIP !!
            Beep
    End Select
End Sub

Private Sub Form_Load()

    Me.Label1.Caption = "IP: " & Winsock1.LocalIP

End Sub

Private Sub Timer1_Timer()
    Me.Label1.Caption = "IP: " & Winsock1.LocalIP
    Me.Shape1.Visible = Not Me.Shape1.Visible
    Me.Caption = Me.Label1.Caption
End Sub

Conclusion :


Cette source est pour les p'tits débutants (fait en 2 minutes) !!
Soyez indulgents, je le suis aussi !!

Microdav.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (microdav)