FONCTION GETIP

Private Function getIp(wns As Winsock) As String

Const adresseSite As String = "www.whatismyip.com"
Const balise1 As String = "<h1>"
Const balise2 As String = "</h1>"
Const attenteMax As Long = 20000
Const txtBalise As String = "Your IP Is "

Dim a As Long
Dim codeHtml As String
Dim partieCodeHtml As String
Dim pos1 As Integer
Dim pos2 As Integer
Dim adresseIp As String

wns.Close
wns.Connect adresseSite, 80

For a = 0 To attenteMax
 DoEvents
 If wns.State = sckConnected Then Exit For
 If a = attenteMax And wns.State <> sckConnected Then
  getIp = wns.LocalIP
  Exit Function
 End If
Next a

wns.SendData "GET http://" & adresseSite & " HTTP/1.0" & vbCrLf & "Accept : text/html" & vbCrLf & vbCrLf

Do
 wns.GetData partieCodeHtml
 codeHtml = codeHtml & partieCodeHtml
 DoEvents
Loop Until wns.State <> sckConnected

wns.Close

pos1 = InStr(1, codeHtml, balise1)
pos2 = InStr(1, codeHtml, balise2)
adresseIp = Mid(codeHtml, pos1 + Len(balise1), pos2 - (pos1 + Len(balise1)))
adresseIp = Replace(adresseIp, txtBalise, "")

'pour ceux qui ont une version anterieure a vb6
'remplacer adresseIp = Replace(adresseIp, txtBalise, "")
'par
'adresseIp = Mid(adresseIp, Len(txtBalise) + 1, Len(adresseIp) - Len(txtBalise))

getIp = adresseIp

End Function

Private Sub Form_Load()

Label1.Caption = getIp(Winsock1)

End Sub