Private Sub buttonOK_Click(ByVal A_0 As Object, ByVal A_1 As EventArgs)
        ' This item is obfuscated and can not be translated.
        Try
            Dim strArray As String()
            Dim str As String
            Dim str2 As String
            Dim str3 As String
            Dim num As Integer
            goto Label_005B
        Label_0002:
            Select Case num
                Case 0, 9
                    goto Label_036C
                Case 1, &H12
                    Try
                        Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings", True)
                        key.SetValue(("MachineCode" & Me.Field_10.ToString), Me.textBoxTypeDescription.Text.Trim, RegistryValueKind.String)
                        key.SetValue(("KeyCode" & Me.Field_10.ToString), "", RegistryValueKind.String)
                        key.Flush
                        key.Close
                    Catch obj1 As Object
                    End Try
                    goto Label_036C
                Case 2
                    If Not String.IsNullOrEmpty(Me.textBox1.Text) Then
                        goto Label_0143
                    End If
                    num = &H13
                    goto Label_0002
                Case 3
                    If Not (str2 = "zh-CN") Then
                        goto Label_02E2
                    End If
                    num = &H10
                    goto Label_0002
                Case 4
                    goto Label_01AE
                Case 5
                    If Not String.IsNullOrEmpty(str3) Then
                        goto Label_01AE
                    End If
                    num = 14
                    goto Label_0002
                Case 6
                    If (strArray.Length >= 4) Then
                        goto Label_01DF
                    End If
                    num = 15
                    goto Label_0002
                Case 7
                    MessageBox.Show(ChrW(32593) & ChrW(32476) & ChrW(36830) & ChrW(25509) & ChrW(25110) & ChrW(27880) & ChrW(20876) & ChrW(30721) & ChrW(38169) & ChrW(35823) & "," & ChrW(27880) & ChrW(20876) & ChrW(22833) & ChrW(36133) & ChrW(65281), "Info", MessageBoxButtons.OK, MessageBoxIcon.None)
                    num = &H12
                    goto Label_0002
                Case 8, 12, 13
                    goto Label_0393
                Case 10
                    str3 = Class_231.Method_02("KEY")
                    num = 5
                    goto Label_0002
                Case 11
                    If Not (str2 = "zh-CN") Then
                        goto Label_011E
                    End If
                    num = 7
                    goto Label_0002
                Case 14
                    Class_231.Method_06("KEY", str)
                    num = 4
                    goto Label_0002
                Case 15
                    num = 12
                    goto Label_0002
                Case &H10
                    MessageBox.Show(ChrW(27880) & ChrW(20876) & ChrW(25104) & ChrW(21151) & "," & ChrW(35874) & ChrW(35874) & ChrW(24744) & ChrW(30340) & ChrW(25903) & ChrW(25345) & ChrW(65281), "Info", MessageBoxButtons.OK, MessageBoxIcon.None)
                    num = 9
                    goto Label_0002
                Case &H11
                    If Not Me.Method_05 Then
                        goto Label_00A9
                    End If
                    num = 10
                    goto Label_0002
                Case &H13
                    num = 13
                    goto Label_0002
            End Select
        Label_005B:
            Me.textBox1.Text = Me.textBox1.Text.Trim
            num = 2
            goto Label_0002
        Label_00A9:
            Class_231.Method_06("KEY", "")
            num = 11
            goto Label_0002
        Label_011E:
            MessageBox.Show("License incorrect, unsuccessful registration!", "Info", MessageBoxButtons.OK, MessageBoxIcon.None)
            num = 1
            goto Label_0002
        Label_0143:
            strArray = Me.textBox1.Text.Split(New Char() { " "c, "-"c, ChrW(8212), "_"c, ";"c, ","c, "."c, "/"c })
            num = 6
            goto Label_0002
        Label_01AE:
            num = 3
            goto Label_0002
        Label_01DF:
            str = String.Concat(New String() { strArray(0), "-", strArray(1), "-", strArray(2), "-", strArray(3) })
            Class_231.Method_06("KEY", str)
            str2 = Class_231.Method_02("ROBOTCulture")
            num = &H11
            goto Label_0002
        Label_02E2:
            MessageBox.Show("Registration successful, thank you for your support!", "Info", MessageBoxButtons.OK, MessageBoxIcon.None)
            num = 0
            goto Label_0002
        Label_036C:
            num = 8
            goto Label_0002
        Catch exception As Exception
            MessageBox.Show(exception.Message)
        End Try
        goto Label_0393
        If (1 <> 0) Then
        End If
    End Sub