Dış İp Bulma Programı

04/11/2010, 15:24

gitarc

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



05/11/2010, 10:13

akd

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