Sub casa
ProgressDialogShow2("Efetuando Cadastro", False)
confereusuarioface
End Sub
Sub confereusuarioface
ExecuteRemoteQuery("SELECT NickName,StatConta FROM usuarios Where SocID='" &idfacebook& "' and SocNet='" &fa& "' " , verificausuarioface)
End Sub
Case "verificausuarioface"
Dim lface As List
Dim contaface As String
lface = parser.NextArray
'ProgressDialogHide
If cass = "[]" Then
Panel1.visible = True
Msgbox("Olá Seja bem vindo, precisamos de mais alguns dados para completar seu cadastro!", "Click Fight")
Return
End If
Dim mface As Map
mface.Initialize
Dim contaface As String
mface = lface.Get(0)
contaface = mface.Get("StatConta")
If contaface = "0" Then
Msgbox("Sua conta está bloqueada! Por favor entre em contato com a administração Click Fight em www.clickfight.com.br ", "Click Fight")
Else If contaface = "1" Then
confirmacadastro
Else If contaface = "2" Then
Msgbox("Este usuário ja esta cadastrado","Click Fight")
Panel1.Visible = False
'vai para proxima tela
Else
Msgbox(contaface,"Click Fight")
End If