Преобразование ActiveDs.LargeInteger в Long в VB.net?

Question

Я пытаюсь вычислить срок действия пароля, и большая часть кода примера находится на C #

Один образец имеет:

IADsLargeInteger largeInt;
largeInt = (IADsLargeInteger) largeIntVal;   
myLong = (long)largeInt.HighPart << 32 | (uint)largeInt.LowPart;

Если я попробую нечто подобное в VB.net:

dim myLong as Long
myLong = largeInt.HighPart << 32 Or largeInt.LowPart

Тогда я, кажется, получаю недопустимое значение. Как я могу получить похожие результаты в VB?

Answer 1

Согласно это проблема в том, что VB.Net не имеет целочисленного класса без знака.

Решение:

props = resultDE.Properties("pwdLastSet")
Dim prop As ActiveDs.LargeInteger
prop = props(0)

Dim int64Value As Long
Dim strTemp As String
strTemp = "&H" + CStr(Hex(prop.HighPart)) + CStr(Hex(prop.LowPart))
int64Value = Val(strTemp)