Hi also ich bin gerade dabei nen kleines Programm zu machen wo man per Programm auf facebook posten und ein foto hochladen kann.
Posten und hochladen geht auf der eigenen seite problemlos
posten auf der Fanpage/page geht auch also, dass er als Page postet.
nur Postet er das Foto nicht als Page sondern als Ich"z.b. andrejd"
hier der Code für das normale Posten (es wird abgerufen ob mit oder ohne Foto)
und hier der code fürs Foto mit Text posten
ich finde irgendwie kein fehler warum als Page Postet aber nicht Foto hochlädt
mfg Andrejd
*Topic verschoben*
Posten und hochladen geht auf der eigenen seite problemlos
posten auf der Fanpage/page geht auch also, dass er als Page postet.
nur Postet er das Foto nicht als Page sondern als Ich"z.b. andrejd"
hier der Code für das normale Posten (es wird abgerufen ob mit oder ohne Foto)
VB.NET-Quellcode
- Sub normalerpost()
- Dim Nachricht, Antwort As Byte()
- Dim AccessToken As String
- mitoderohnefoto()
- If TextBox2.Text = "" Then
- MessageBox.Show("Bitte erst auf 'Login' klicken")
- End If
- AccessToken = TextBox2.Text
- 'WebClient anlegen
- Dim myWebClient As New Net.WebClient
- 'Except100 ausschalten, sonst gibt es u. U. Fehlermeldungen
- Net.ServicePointManager.Expect100Continue = False
- Nachricht = Encoding.UTF8.GetBytes("message=" & TextBox1.Text _
- & "&access_token=" & AccessToken)
- Try
- Antwort = myWebClient.UploadData(GraphURL, Nachricht)
- 'Erfolgsmeldung (ID des Posts) in JSON
- 'MsgBox(System.Text.Encoding.ASCII.GetString(Antwort))
- MsgBox("Erfogreich gepostet!")
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
und hier der code fürs Foto mit Text posten
VB.NET-Quellcode
- Sub fotopost()
- Dim Nachricht As Byte() = Nothing
- Dim AccessToken As String
- Dim u As String = ""
- mitoderohnefoto()
- AccessToken = TextBox2.Text
- If TextBox2.Text = "" Then
- MessageBox.Show("Bitte erst auf 'Login' klicken")
- End If
- 'WebClient anlegen
- Dim myWebClient As New System.Net.WebClient()
- 'Except100 ausschalten, sonst gibt es u. U. Fehlermeldungen
- System.Net.ServicePointManager.Expect100Continue = False
- u = "?message=" + TextBox1.Text + "&access_token=" + AccessToken
- Nachricht = Encoding.UTF8.GetBytes(u)
- Try
- myWebClient.UploadFileAsync(New Uri(GraphURL + u), "POST", TextBox4.Text)
- MsgBox("Erfogreich gepostet!")
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
ich finde irgendwie kein fehler warum als Page Postet aber nicht Foto hochlädt
mfg Andrejd
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()