Advertisement.

TransHimalaya.in

Everest Helicopter Tour for a day

Book exciting packages at www.transhimalaya.in

ASP.Net VB Facebook SDK Post on User Wall or Any Page



Dim app_id As String = "654674765764"
            Dim app_secret As String = "dgfdgy465yfhy675"
            Dim scope As String = "publish_actions, manage_pages, publish_pages, public_profile"

        If Session("code") Is Nothing Then
            Response.Redirect(String.Format("https://graph.facebook.com/oauth/authorize?client_id={0}&redirect_uri={1}&scope={2}", app_id, Request.Url.AbsoluteUri, scope))
            Exit Sub
        End If
        Dim tokens As New Dictionary(Of String, String)()


        Dim url As String = String.Format("https://graph.facebook.com/oauth/access_token?client_id={0}&redirect_uri={1}&scope={2}&code={3}&client_secret={4}", app_id, Request.Url.AbsoluteUri, scope, Session("code").ToString(), app_secret)
        'Dim url = "https://graph.facebook.com/oauth/access_token?client_id=" & app_id & "&redirect_uri=" & Request.Url.AbsoluteUri.ToString & "&scope=" & scope & "&code={3}&client_secret=" & app_secret
        Dim request__1 As HttpWebRequest = TryCast(WebRequest.Create(url), HttpWebRequest)

            Using response As HttpWebResponse = TryCast(request__1.GetResponse(), HttpWebResponse)
                Dim reader As New StreamReader(response.GetResponseStream())

                Dim vals As String = reader.ReadToEnd()
                'Dim vals As String = "{'access_token':'our token value here','token_type':'bearer'}"
                Dim obj = JObject.Parse(vals)
            Dim access_token As String = DirectCast(obj("access_token").ToString, String)
            '' Now you have got user access token if you do anything onwards then it will be done as a user. To do like a page get  Page Access Token
            '            The last important Access Token Is used To manage Facebook Pages. It´s a bit more complicated To Get that Token, these are the required steps:
            'after getting a valid User Access Token with the additional permission “manage_pages”
            'make a call to /PAGE-ID?fields=access_token with the Facebook API
            'get Page Access Tokens for all your Facebook Pages in an Array


            Dim fbclient = New FacebookClient(access_token)
            Dim fbpage = "/135771030321215/feed"
            Dim fbpagefoto = "/135771030321215/photos"
            Dim msg = "Going Hi Tech. Test Post. From Monday this page will be run by BOTS. No Human intervention." & Now.ToString()
            Dim pic = Server.MapPath("./images/botpic/") & "muktinath.jpg"
            ''dim fbprofile = "/vinodkotiya/feed"
            fbclient.Post(fbpage, New With {
                             Key .message = msg
                                })

            'Dim imgstream = File.OpenRead(pic)

            'Dim res = fbclient.Post(fbpagefoto, New With {
            ' .message = msg,
            ' .file = New FacebookMediaStream() With {
            '  .ContentType = "image/jpg",
            '  .FileName = Path.GetFileName(pic)
            ' }.SetValue(imgstream)
            '})
            divMsg.InnerHtml = access_token
            End Using


Comments

Most Viewed Post

solution for facebook static.ak.fbcdn.net waiting

Connect Sony XPLOD MEX-BT2500 Bluetooth CD Receiver with ur mobile

Crystal Report : Show data horizontally (Left to right) i.e. columns as rows

Google+ Followers