Dim reg As New regProcess<br /> Dim ProductCode As Byte()<br /> Dim i As Integer = 0<br /> Dim j As Integer = 0<br /> Dim num As UInt64 = 0<br /> <br /> ProductCode = reg.Register<br /> If ProductCode.Length > 0 Then<br /> txt_ProductCode.Text = ""<br /> <br /> While i < (ProductCode.Length / 8)<br /> Dim var As UInt64 = 0<br /> For j = 0 To 7<br /> var += Convert.ToUInt64(ProductCode(i))<br /> <br /> i += 1<br /> Next<br /> txt_ProductCode.Text += Convert.ToString(var)<br /> <br /> End While<br /> End If<br /> End Sub
txt_ProductCode.Text = BitConverter.ToUInt16(ProductCode, i)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)