Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/asp.net/30.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Facebook ASP.NET编码问题(试图让CodePlex示例正常工作)_Asp.net_Facebook - Fatal编程技术网

Facebook ASP.NET编码问题(试图让CodePlex示例正常工作)

Facebook ASP.NET编码问题(试图让CodePlex示例正常工作),asp.net,facebook,Asp.net,Facebook,我正在尝试让以下代码正常工作: Imports Microsoft.VisualBasic Imports System Imports System.Data Imports System.Configuration Imports System.Web Imports System.Web.Security Imports System.Web.UI Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.W

我正在尝试让以下代码正常工作:

Imports Microsoft.VisualBasic  
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Collections.ObjectModel
Imports Facebook
Imports Facebook.WebControls

Public Partial Class _Default
    Inherits CanvasIFrameBasePage
    Private Const FACEBOOK_API_KEY As String = "xxxxxxxxxx"
    Private Const FACEBOOK_SECRET As String = "yyyyyyyyyy"

    Shadows Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        MyBase.Api = FACEBOOK_API_KEY
        MyBase.Secret = FACEBOOK_SECRET
        MyBase.Page_Load(sender, e)

        If (Not IsPostBack) Then
            Try
                ' Use the FacebookService Component to populate Friends
                Dim u As Facebook.Entity.User = Me.FBService.GetUserInfo()

                Dim f As Collection(Of Facebook.Entity.User) = Me.FBService.GetFriends()


                Dim s As String = ""
                If f.Count <> 1 Then
                    s = "s"
                End If
                lblHelloWorld.Text = "Hello " & u.Name & " you have " & f.Count & " friend" & s & "..." & Me.FBService.SessionKey
                Me.FBService.SetFBML("Hello " & u.Name & " you have " & f.Count & " friend" & s)
            Catch e1 As Exception
                'Throw
            End Try
        End If
    End Sub
End Class
有人能帮忙吗


它被称为Facebook Toolkit,位于

,您可能需要指定您正在从Codeplex使用的Facebook客户端API。谢谢Kurt。。。它是Facebook工具包,位于
Dim u As Facebook.Entity.User = Me.FBService.GetUserInfo()