![]() | |
ConneXionVerifySecurity Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oSecurity As New ConneXion.Security Dim oResult As ConneXion.ConneXionResult oSecurity.LicenseKey = "1234567 1" oSecurity.TAMCentralAgency = "DEMOAG1" oSecurity.TAMUserName = "EXEC" oSecurity.TAMPassword = "PSWD" oResult = oConneXion.VerifySecurity(oSecurity) If oResult.Success = False Then txtSecurity.Text = "VerifySecurity is false. " & oResult.Description & oResult.TAMDescription Else txtSecurity.Text = "VerifySecurity is successful. " & oResult.Description & oResult.TAMDescription End If