SetMutualAuthKeyISCL Example for Visual Basic
Private Type KeyLoHi
LoValue As Long
HiValue As Long
End Type
Private Type Key64
Value As Currency
End Type
Private Sub SetMutualAuthKeyISCL_Click()
Dim key As Key64
Dim compKey As KeyLoHi
' use a 64 bit key value of 0123456789ABCDEF hex.
compKey.HiValue = &H1234567
compKey.LoValue = &H89ABCDEF
LSet key = compKey
LEADDICOMNet1.SetMutualAuthKeyISCL LEADDICOMNet1.hNet, 1, key.Value
LEADDICOMNet1.SetIndexForMutualAuthISCL LEADDICOMNet1.hNet, 1
MsgBox "Index value is: " & LEADDICOMNet1.GetIndexForMutualAuthISCL (LEADDICOMNet1.hNet)
End Sub