{"id":1002,"date":"2013-02-21T12:46:59","date_gmt":"2013-02-21T12:46:59","guid":{"rendered":"http:\/\/frank-it-beratung.com\/blog\/?p=1002"},"modified":"2013-02-27T10:05:37","modified_gmt":"2013-02-27T10:05:37","slug":"tutorial-mit-visual-basic-ein-facebook-event-mit-foto-erstellen-teil-1","status":"publish","type":"post","link":"https:\/\/frank-it-projekte.de\/blog\/2013\/02\/21\/tutorial-mit-visual-basic-ein-facebook-event-mit-foto-erstellen-teil-1\/","title":{"rendered":"Tutorial: Mit Visual Basic ein Facebook-Event mit Foto-Upload erstellen (Teil 1)"},"content":{"rendered":"

Eigentlich bin ich kein gro\u00dfer Freund von Visual Basic, aber aufgrund vielfachen Wunschs habe ich hier ein kleines Tutorial geschrieben, wie man mit VB ein Event mit Foto erstellt.<\/p>\n

1. Vorbereitung: App anlegen und Access-Token generieren – wie ich das z. B. hier<\/a> beschrieben habe (Punkt 1.-5.)<\/p>\n

2. Als n\u00e4chstes sollte folgendes Formular angelegt werden (in meinem Beispiel mit Visual Studio Express 2010):<\/p>\n

\"Bild1\"<\/a><\/p>\n

Hinweis: F\u00fcr die zwei DateTimePicker verwende ich Format:Custom und dann in CustomFormat: „yyyy-MM-dd HH:mm“<\/p>\n

<\/p>\n

3. So sieht der Code f\u00fcr den Button aus:<\/p>\n

Dim Nachricht, Antwort As Byte()\r\nDim AccessToken As String = \"...\"\r\nDim StartZeit, EndZeit As String\r\n\r\n' Erstellt ein Event f\u00fcr den User des Access-Tokens\r\nDim GraphURL As String = _\r\n  \"https:\/\/graph.facebook.com\/me\/events\"\r\n\r\n'WebClient anlegen\r\nDim myWebClient As New Net.WebClient\r\n\r\n'Except100 ausschalten, sonst gibt es u. U. Fehlermeldungen\r\nNet.ServicePointManager.Expect100Continue = False\r\n\r\n'Die Start- und Endzeit richtig formatieren...\r\nStartZeit = DateTimePickerStartDatum.Text\r\nEndZeit = DateTimePickerEndDatum.Text\r\n'statt dem Leerzeichen zwischen Datum und \r\n'Uhrzeit steht ein \"T\"\r\nStartZeit = Replace(StartZeit, \" \", \"T\")\r\nEndZeit = Replace(EndZeit, \" \", \"T\")\r\n'au\u00dferdem muss die Timezone angeh\u00e4ngt werden, also\r\n'+0100 - das \"+\" wird URL-codiert (%2B)\r\nStartZeit = StartZeit & \"%2B0100\"\r\nEndZeit = EndZeit & \"%2B0100\"\r\n\r\nNachricht = Encoding.UTF8.GetBytes(\r\n  \"name=\" & TextBoxVeranstaltung.Text _\r\n  & \"&description=\" & TextBoxBeschreibung.Text _\r\n  & \"&start_time=\" & StartZeit _\r\n  & \"&end_time=\" & EndZeit _\r\n  & \"&privacy=OPEN\" _\r\n  & \"&access_token=\" & AccessToken)\r\n\r\nTry\r\n  Antwort = myWebClient.UploadData(GraphURL, Nachricht)\r\n  'Erfolgsmeldung (ID des Posts) in JSON\r\n  'MsgBox(System.Text.Encoding.ASCII.GetString(Antwort))\r\n  MsgBox(\"Event Erfogreich gepostet!\")\r\nCatch ex As Exception\r\n  MsgBox(\"Fehler: \" & ex.Message)\r\n  Return\r\nEnd Try\r\n\r\n'jetzt die ID des neuen Events auslesen...\r\n\r\n'optimalerweise k\u00f6nnte man JSON deserialisieren, wie\r\n'ich das in meinem Blog beschrieben habe:\r\n'http:\/\/bit.ly\/YoDmgc\r\n\r\n'schneller geht es in diesem Fall mit\r\n'einem regul\u00e4ren Ausdruck - einfach\r\n'die Zahl mit \\d extrahieren:\r\n\r\nDim pattern As String = \"\\d{1,}\"\r\nDim matches As MatchCollection\r\nDim defaultRegex As New Regex(pattern)\r\nmatches = defaultRegex.Matches(\r\n  System.Text.Encoding.ASCII.GetString(Antwort))\r\n\r\nIf matches.Count > 0 Then\r\n  'Erfolg - EventID in Form schreiben\r\n  LabelEventID.Text = matches(0).Value\r\nElse\r\n  'Fehler\r\n  MsgBox(\"Keine ID in Antwort gefunden: \" _\r\n    & System.Text.Encoding.ASCII.GetString(Antwort))\r\n  Return\r\nEnd If\r\n\r\n'jetzt das Bild uploaden...\r\nGraphURL = \"https:\/\/graph.facebook.com\/\" _\r\n  & LabelEventID.Text _\r\n  & \"\/picture?access_token=\" _\r\n  & AccessToken\r\n\r\nTry\r\n  Antwort = myWebClient.UploadFile(GraphURL, TextBoxBild.Text)\r\n  'MsgBox(System.Text.Encoding.ASCII.GetString(Antwort))\r\n  MsgBox(\"Bild erfogreich gepostet!\")\r\nCatch ex As Exception\r\n  MsgBox(\"Fehler: \" & ex.Message)\r\nEnd Try<\/pre>\n
Tipps:<\/p>\n