Imports System.IO
Imports System.Text
Imports System.Net
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles Button1.Click
 
        Dim address As String = _
        "http://graph.facebook.com/4"
        Dim client As WebClient = New WebClient()
        Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
        Label1.Text = reader.ReadToEnd
        Dim strDatei As String = Label1.Text
        Dim strInhalt As String = Label1.Text
        Label1.Text = DatenAuswerten(strInhalt)
        Label2.Text = DatenAuswertenLand(strInhalt)
 
    End Sub
 
    Private Function DatenAuswerten(ByVal strInhalt As String) As String
 
        Dim strArr() As String = strInhalt.Split(",")
        Dim strZeile() As String
        Dim i As Integer
 
        For i = 0 To UBound(strArr) - 1
 
            If InStr(strArr(i), Chr(34) & "name" & Chr(34) & ":") Then
                strZeile = strArr(i).Split(":")
                Return (strZeile(1).Replace(Chr(34), ""))
                Exit Function
            End If
        Next
 
        Return ""
 
    End Function
 
    Private Function DatenAuswertenLand(ByVal strInhalt As String) As String
 
        Dim strArr() As String = strInhalt.Split(",")
        Dim strZeile() As String
        Dim i As Integer
 
        For i = 0 To UBound(strArr) - 1
 
            If InStr(strArr(i), Chr(34) & "locale" & Chr(34) & ":") Then
                strZeile = strArr(i).Split(":")
                Return (strZeile(1).Replace(Chr(34), ""))
                Exit Function
            End If
        Next
 
        Return ""
 
    End Function
 
 
End Class[/code
 
Ich habe jetzt nur noch ein Problem, wenn ich eine Facebook ID nehme, auf der _
  kein Account ist.
z.B. http://graph.facebook.com/44444
 
Dann bekomme ich in folgender Zeile eine Fehlermeldung
 
<pre><code>Dim reader As StreamReader = New StreamReader(client.OpenRead( _
  address))