Case "compartilhouresultado"
Dim listaface3 As List
Dim parserface3 As JSONParser
Dim mface3 As Map
Dim usuariocompartilhou As Int
mface3.Initialize
parserface3.Initialize(respostadoservidor)
listaface3.Initialize
listaface3 = parserface3.NextArray
mface3 = listaface3.Get(0)
usuariocompartilhou = mface3.Get("Compartilhou")
If usuariocompartilhou = 0 Then
Private question As Int
question = Msgbox2("Compartilhe o aplicativo Achou Ganhou e ganhe 2 vallow coins!", "Achou Ganhou", "Compartilhar", "Cancelar","", Null)
If question = DialogResponse.Positive Then
Dim Result As FacebookResult = Common.FB.PublishPost("Confira o aplicativo que distribui dinheiro pela cidade. Lançamento em BREVE!!!","http://www.vallow.com.br/achouganhou/", "http://www.vallow.com.br/achouganhou/compartilhar.png" ,"Achou Ganhou", "www.vallow.com.br/achouganhou", "O aplicativo que distribui dinheiro pela cidade confira!")
If Result.Canceled Then Return
If Result.Success Then
updatecompartilhou
Else
If Not(Common.fb.HasPermission(Common.fb.Constants.Permissions.PUBLISH_ACTIONS)) Then
Common.fb.RequestPublishPermissions
Else
Msgbox("Erro ao compartilhar tente novamente!", "Achou Ganhou")
End If
End If
End If
Return
Else
Msgbox("Você já compartilhou o aplicativo usando esta conta!","Achou Ganhou")
Return
End If