Skip to main content

AccessTr.neT


Dış İp Bulma Programı

Dış İp Bulma Programı

#1
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



PROGRAMMER MEHMET
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Dış İp Bulma Programı - Yazar: gitarc - 04/11/2010, 15:24
Cvp: Dış İp Bulma Programı - Yazar: akd - 05/11/2010, 10:13