Imports System.Net
 
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        MessageBox.Show(GetIP)
    End Sub
 
    Function GetIP() As String
        Dim IP As New WebClient
        Return IP.DownloadString("http://icanhazip.com/")
    End Function
 
End Class

EALA FREYA FRESENA

Beitrag wurde zuletzt am 06.09.15 um 13:00:31 editiert.