어떻게 내가 내 자신의 팬 페이지의 프로필 페이지에서 응용 프로그램 탭에 (<a href="http://apps.facebook.com/my-app-name" rel="nofollow noreferrer">http://apps.facebook.com/my-app-name</a>를 통해 테스트) 작업은 iframe 응용 프로그램을로드 할 수있는 방법을 프로필 페이지

Question

에 응용 프로그램 탭에 페이스 북 iframe이-앱을로드합니다. 탭이 있는데 탭에서 아무 것도 보지 못했습니다. 탭을 처음 호출했을 때 몇 가지 오류가있었습니다. 하지만 지금은 아무 것도 볼 수 없습니다. 소스 코드에는 몇 가지 CSS 정의가 포함되어 있습니다.

프로필 탭은 FBML 만 사용할 수 있습니다. 이게 옳은 거니? 사실이라면 FBML이있는 iframe 응용 프로그램을 프로필 탭에로드하려면 어떻게해야합니까?

미리 감사드립니다.

마르코

Answer 1

프로필 탭에서 iFrame을 사용할 수 있습니다.
단계 :

1. 고토 작업은 iframe 응용 프로그램 (추가하려는 앱).
2. 왼쪽 메뉴에서 "내 페이지에 추가"를 클릭하십시오.
3. 팬 페이지를 선택하십시오.
4. 당신은 꽤 많이 끝났습니다.

Answer 2

앱을 탭에 추가하려면 앱 설정에서 탭 URL을 작성해야합니다. 520px에 맞거나 해당 너비에 맞게 사용자 정의 UI를 만들면이 앱을 가리킬 수 있습니다.

앱의 프로필 페이지로 이동이 완료되면 : https://www.facebook.com/apps/application.php?id=YOUR_APP_ID

그리고 "내 페이지에 추가"에서 하단의 클릭으로 이 페이지를 선택하고 수행됩니다.

Answer 3

앞의 포스터에서 설명한대로 탭 설정에 URL을 추가하고 페이지에 탭을 추가하십시오.

앱 탭로드, 당신은 일반 캔버스 페이지에서 값의 다른 세트를 얻을 것이다 때. 다음은 VB.NET 코드입니다.

Public Class TabSignedRequest 
    Public user 
    '"user":{"country":"us","locale":"en_US","age":{"min":21}} 
    Public algorithm 
    '"algorithm":"HMAC-SHA256" 
    Public issued_at 
    '"issued_at":1302500880 
    Public user_id 
    '"user_id":"148.....47" 
    Public oauth_token 
    '"oauth_token":"1230................acUfvg" 
    Public expires 
    '"expires":1302505200 
    Public app_data 
    Public page As pageObject 
    '"page":{"id":"22.........40","liked":true,"admin":true} 
    Public profile_id 


    Public Shared Function getRequest(ByVal sr As String) As TabSignedRequest 
     sr = Replace(sr, "-", "+") 
     sr = Replace(sr, "_", "/") 
     Dim sig As String 
     Dim requestStr As String 
     Dim s = Split(sr, ".") 
     Try 
      sig = iTeam.Common.FromBase64(s(0)) 
     Catch ex As Exception 
     End Try 
     requestStr = iTeam.Common.FromBase64(s(1)) 
     Dim o = Newtonsoft.Json.JsonConvert.DeserializeAnonymousType(Of iTeam.Facebook.TabSignedRequest)(requestStr, New iTeam.Facebook.TabSignedRequest()) 
     Return o 
    End Function 
End Class 
Public Shared Function FromBase64(ByVal base64 As String) As String 
    If base64 Is Nothing Then Throw New ArgumentNullException("base64") 

    Do Until isMult4(base64.Length) 
     base64 = base64 & "=" 
    Loop 

    Dim b() As Byte 
    b = Convert.FromBase64String(base64) 
    Return System.Text.Encoding.UTF8.GetString(b) 
End Function 
Public Shared Function isMult4(ByVal n As Integer) As Boolean 
    Dim r As Integer 
    Math.DivRem(n, 4, r) 

    Return (r = 0) 

End Function