Bu dersimizde Visual Basic 2010'da "What İs My IP" ile IP adresi öğrenmeyi göreceğiz.
İlk önce boş alana şu kodu yazalım:
Kod:
Private Overloads Function IPogren() As String
Try
Dim Spy As New System.Net.WebClient
Dim ipStr As String = System.Text.Encoding.ASCII.GetString(Spy.DownloadData(?http://automation.whatismyip.com/n09230945.asp?))
Spy.Dispose()
Return (ipStr)
Catch
Return (?Coder kaNon?)
End Try
End Function
Daha sonra bir butonun kod bölümüne:
Kod:
Msgbox(IPogren)
Msgbox(IPogren)
0 yorum:
Yorum Gönder