Comment affecter une valeur booléenne d'un objet à une variable dans Visual Basic

Question

Bonjour J'essaie d'affecter la valeur booléenne d'un objet (donnée) obtenue à partir de la validation recaptcha. La valeur de l'objet est TRUE mais l'assigner à la variable ne fonctionne pas et la fin l'envoie comme False.

Protected Sub Validate_Captcha(ByRef Validation As Boolean) 

    Dim hdk As String = "ITOOKOUTTHESTRING" 
    'Dim res As Recaptcha = Recaptcha.RecaptchaResponse() 
    Dim Response As String = HttpContext.Current.Request.Form("g-recaptcha-response") 
    Dim request As WebRequest = WebRequest.Create("https://www.google.com/recaptcha/api/siteverify?secret=" & hdk & "&response=" & Response) 

    Using wResponse As WebResponse = request.GetResponse() 
     Using readStream As StreamReader = New StreamReader(wResponse.GetResponseStream()) 
      Dim jsonResponse As String = readStream.ReadToEnd() 
      Dim js As JavaScriptSerializer = New JavaScriptSerializer() 
      Dim data As Object = js.Deserialize(Of Object)(jsonResponse) 
      js.ConvertToType(Of Object)(data) 
      Try 
      '' For Each obj As Object In data 
      ''  Validation = Convert.ToBoolean(obj.Success.Value) 
       Next 

       '' **************************** 
       '' THE PROBLEM IS HERE 

       Validation = data(0).value 

       '' ************************** 

   If Validation = False Then 
        Dim se As New Exception("Object is not validated") 
        Throw se 
       End If 

      Catch ex As FormatException 
       lblError.Text = ex.Message 
      Catch ex As InvalidCastException 
       lblError.Text = ex.Message 
      Catch ex As Exception 
       lblError.Text = ex.Message 

      End Try 
     End Using 
    End Using 
End Sub 

Answer 1

Voir this codeproject page. Cela ressemble beaucoup à votre code. Sauf, cette personne effectue les opérations suivantes:

Définir une classe avec une chaîne succès

Public Class MyObject 
    Public Property Success As String 
End Class 

Puis deserialize à cette classe au lieu d'objet. Accédez à la propriété Success en convertissant la chaîne

Dim data = js.Deserialize(Of MyObject)(jsonResponse) 
Dim valid = Convert.ToBoolean(data.Success)