Dış İp Bulma Programı

Projenize INET ekleyin bir tane.

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

	

	

	

Merhaba gitarc,
Bu kodlar vb.net için mi,
INET hangi menü bloğunda ?