VPF::windows key - Форум программистов

vovaking

Дата 5.7.2015, 13:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.10.2008

Репутация: нет
Всего: нет

Доброе время суток.
Подскажите пожалуйста где ошибка и как ее исправить.

Код


    Public Function mywinkey(ByVal path As String, ByVal name As String) As String
        Dim A As Object = My.Computer.Registry.GetValue(path, name, 0)
        Dim B As String = ""
        Dim C As String = ""
        Dim D As Integer = 52
        Dim E As Integer = 67
        Dim F(24) As String
        Dim G As Integer = 29
        Dim H As Integer = 15
        Dim J(15) As String
        Dim K(30) As String
        Dim L As String = ""
 
        If A Is Nothing Then Return "No Value"
 
        Try
            For i As Integer = LBound(A) To UBound(A)
                B = B & "" & Hex(A(i))
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        F(0) = "B" : F(1) = "C" : F(2) = "D" : F(3) = "F" : F(4) = "G" : F(5) = "H"
        F(6) = "J" : F(7) = "K" : F(8) = "M" : F(9) = "P" : F(10) = "Q" : F(11) = "R"
        F(12) = "T" : F(13) = "V" : F(14) = "W" : F(15) = "X" : F(16) = "Y"
        F(17) = "2" : F(18) = "3" : F(19) = "4" : F(20) = "5" : F(21) = "6" : F(22) = "7"
        F(23) = "8" : F(24) = "9"
 
        Try
            For i = D To E
                J(1 - D) = A(i)
                C = C & "" & Hex(J(i - D))
 
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
 
        For i As Integer = G - 1 To 0 Step -1
            If ((i + 1) Mod 6) = 0 Then
                K(i) = "-"
                L = L & "-"
            Else
                Dim M As Integer = 0
                For n As Integer = (H - 1) To 0 Step -1
                    Dim O As Integer = ((M * 2 ^ 8) Or J(n)) ' this dim is not a zero but the letter O
                    J(n) = O \ 24 ' this is also the letter O
                    M = (O Mod 24) ' this is alsi the letter O
                Next
                K(i) = F(M)
                L = L & F(M)
 
            End If
        Next
        Return StrReverse(L)
 
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox20.Text = mywinkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId")
 
    End Sub

Присоединённый файл ( Кол-во скачиваний: 9 )

img_2015_07_04_00_41_17.png 14,22 Kb

diadiavova

Дата 5.7.2015, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Вообще неплохо было бы указать на какой строке ругается, да и вообще вкратце описать что делаешь. Так предполагаю, что ветка реестра возвращает число, а ты применяешь к нему функции массива. 17 строка.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

vovaking

Дата 5.7.2015, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.10.2008

Репутация: нет
Всего: нет

Хочу вывести в текстбоксе серийный ключ винды при запуске программы.

код подсмотрел тут

При запуске появляется ошибка которая на верху, затем еще одна

Присоединённый файл ( Кол-во скачиваний: 1 )

img_2015_07_04_00_41_20.png 15,46 Kb

vovaking

Дата 5.7.2015, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 2.10.2008

Репутация: нет
Всего: нет

Там не число а 25 символов разделнные "-" в каждой по 5 символов

Это сообщение отредактировал(а) vovaking - 5.7.2015, 14:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »