2010-04-28 62 views
5

我怎麼可以加載一個工作iframe應用程序(通過http://apps.facebook.com/my-app-name測試)到我自己的粉絲專頁的個人資料頁上的應用程序選項卡。我得到了這個標籤,但沒有看到標籤中的任何內容。第一次我打電話給我的標籤我有幾個錯誤。但現在我什麼都看不到。在源代碼中包含一些css定義。如何Facebook的iframe的應用程序加載到應用程序選項卡上的個人主頁

我看,該配置文件選項卡只能使用FBML。這是正確的嗎?如果爲true,那麼我如何使用FBML將iframe應用程序加載到配置文件選項卡中?

在此先感謝。

Marco

回答

0

Profile選項卡當然可以使用iFrame。
步驟:

  1. 轉到工作iframe應用程序(你要添加的應用程序)。
  2. 點擊左側菜單中的「添加到我的頁面」。
  3. 選擇你的粉絲頁面。
  4. 你已經完成了很多工作。
2

要添加一個應用程序到一個標籤,你需要確保你填寫了你的應用程序設置中的標籤網址。 如果它適合520px或爲該寬度創建自定義UI,則可以將它指向您的應用。

一旦你這樣做,是進入個人資料頁爲您的應用程序: https://www.facebook.com/apps/application.php?id=YOUR_APP_ID

並在「添加到我的網頁」底角點擊,選擇一個頁面就大功告成了。

1

正如前面的海報說,添加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 
相關問題