Imports System
Imports Microsoft.Win32

Public Class hwdcNG

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.TextBox2.Text = Convert.ToString(Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\IDConfigDB\Hardware Profiles\0001", "HwProfileGuid", Nothing))
        CheckBox1.Checked = My.Settings.check1
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles LKOFM123.Click

        Registry.SetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\IDConfigDB\Hardware Profiles\0001", "HwProfileGuid", Me.LOLASDOMG.Text)
        LKOFM123.Enabled = False
    End Sub

    Private Sub LKOFM123_Click(sender As Object, e As EventArgs) Handles BLASD123.Click

        Me.MaximumSize = New System.Drawing.Size(291, 287)
        Me.Size = New System.Drawing.Size(291, 287)

        LKOFM123.Enabled = True
        BLASD123.Enabled = True

        LOLASDOMG.Text = "{" & GenerateKeysCode() & "}"




        'Dim Key As Integer
        'Key = Int(Rnd() * 3)
        'Select Case Key
        '    Case 0
        '        LOLASDOMG.Text = "{846eb340-7039-11de-9d20-826e6f6e6963}"
        '    Case 1
        '        LOLASDOMG.Text = "{846ek340-7039-11de-9d20-836e6f6e6963}"
        '    Case 2
        '        LOLASDOMG.Text = "{846es340-7039-11de-9d20-856e6f6e6963}"
        '    Case 3
        '        LOLASDOMG.Text = "{846ej340-7039-11de-9d20-896e6f6e6963}"
        '    Case 4
        '        LOLASDOMG.Text = "{846es340-7039-11de-9d20-826e6f6e6963}"
        '    Case 5
        '        LOLASDOMG.Text = "{846eh340-7039-11de-9d20-896e6f6e6963}"
        '    Case 6
        '        LOLASDOMG.Text = "{846ep340-7039-11de-9d20-836e6f6e6963}"
        '    Case 7
        '        LOLASDOMG.Text = "{846ec340-7039-11de-9d20-876e6f6e6963}"
        '    Case 8
        '        LOLASDOMG.Text = "{846eg340-7039-11de-9d20-896e6f6e6963}"
        'End Select


    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Text = "http://greatergood.zz.mu*"

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Me.Text = "HWID CHANGER-GreaterGood"

    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs)
        Me.Text = "http://greatergood.zz.mu*"

    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs)
        Me.Text = "HWID CHANGER-GreaterGood"

    End Sub

    Private Sub Timer3_Tick_1(sender As Object, e As EventArgs) Handles Timer3.Tick

        Label5.Left = Label5.Location.X + 1
        If Label5.Location.X = 251 Then
            Timer4.Start()
        End If


    End Sub

    Private Sub Timer4_Tick_1(sender As Object, e As EventArgs) Handles Timer4.Tick
        Timer3.Enabled = False

        Label5.Left = Label5.Location.X - 1

        If Label5.Location.X = 7 Then
            Timer3.Enabled = True
            Timer4.Enabled = False
        End If
    End Sub

    Public Function GenerateKeysCode() As Object
        Dim intRnd As Object
        Dim intStep As Object
        Dim strName As Object
        Dim intNameLength As Object
        Dim intLenght As Object
        Dim strInputString As Object

        strInputString = "1234567890abcdefghijklmnopqrstuvwxyz"

        intLenght = Len(strInputString)

        intNameLength = 30

        Randomize()

        strName = ""


        For intStep = 1 To intNameLength
            intRnd = Int((intLenght * Rnd()) + 1)

            strName = strName & Mid(strInputString, intRnd, 1)

        Next
        GenerateKeysCode = strName
    End Function

    Private Sub Label5_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub





    Private Sub Label5_Click_1(sender As Object, e As EventArgs) Handles Label5.Click

    End Sub

    Private Sub Label7_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub LOLASDOMG_TextChanged(sender As Object, e As EventArgs) Handles LOLASDOMG.TextChanged

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then

            Dim regKey As Microsoft.Win32.RegistryKey
            If CheckBox1.Checked = True Then
                My.Settings.check1 = CheckBox1.Checked = True
            Else
                My.Settings.check1 = CheckBox1.Checked = False
            End If
            regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            regKey.SetValue("Multi-Hack Tool", "Multi-Hack Tool")
            regKey.Close()

        End If
    End Sub


    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
        My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)
        If CheckBox1.Checked = True Then
            CheckBox1.Checked = False
            My.Settings.check1 = False
        End If
    End Sub

    Private Sub HOMDS_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.TextBox2.Text = Convert.ToString(Registry.GetValue("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\IDConfigDB\Hardware Profiles\0001", "HwProfileGuid", Nothing))
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)
        If CheckBox1.Checked = True Then
            CheckBox1.Checked = False
            My.Settings.check1 = False
        End If

    End Sub
End Class