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
#2
Merhaba gitarc,
Bu kodlar vb.net için mi,
INET hangi menü bloğunda ?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task