Private Sub cmdIPAdresiniz_Click()
Dim Ipim As String
Ipim = Inet1.OpenURL("http://www.whatismyip.org/")
If Left(Ipim, 5) <> "Error" Then
Text1.Text = Ipim
Else
MsgBox "Arka arkaya üç defadan fazla IP sorgulaması yapılmaz" & vbCrLf & _
"Lütfen bir müddet bekleyiniz", vbInformation, "Uyarı"
End If
End Sub
Projenize INET ekleyin bir tane.
PROGRAMMER MEHMET
