Sub btninit_click (e As BANanoEvent)
e.PreventDefault
'check the status
Dim bIsInit As Boolean = BM.IsInited
If bIsInit = False Then
'initialize the biometrics
BM.Init(Me)
Else
app.ShowToastSuccess("Biometrics already init!")
End If
End Sub
'
Sub btnrequestaccess_click (e As BANanoEvent)
e.PreventDefault
BM.RequestAccess(Me, "The bot uses biometrics for testing purposes")
End Sub
'
'called by request access
Sub Biometric_RequestAccess (Granted As Boolean)
chkisaccessrequested.Checked = BM.IsAccessRequested
chkisaccessgranted.Checked = BM.IsAccessGranted
Select Case Granted
Case True
app.ShowToastSuccess("Biometrics access granted")
Case False
app.ShowToastError("Biometrics access NOT granted")
End Select
End Sub
Sub btnauthenticate_click (e As BANanoEvent)
e.PreventDefault
BM.Authenticate(Me, "The bot uses biometrics for testing purposes")
End Sub
Sub Biometric_Authenticate (Success As Boolean, Token As String)
Select Case Success
Case False
BM.Token = ""
txttoken.Value = ""
Case Else
BM.Token = Token
txttoken.Value = BM.Token
End Select
End Sub
Sub btnupdatetoken_click (e As BANanoEvent)
e.PreventDefault
End Sub
'
Sub btnopensettings_click (e As BANanoEvent)
e.PreventDefault
BM.OpenSettings
End Sub