[TUTORIAL] Cara membuat MAC Address Changer untuk Gwarnet dengan VB NET

By: Unknown on 19.25

Alat & Bahan
[-] Microsoft Visual Basic NET (Saran : Versi 2008/2010)

Tutorial :

1. Buka Microsoft Visual Basic  -> New Project -> Pilih Windows Form Application -> Kasih nama projectnya -> OK

2. Tambahkan :
[-] 1 Combo box -> Ganti Textnya menjadi : Select Adapter
[-] 1 Label -> Ganti Textnya menjadi : MAC
[-] 1 Textbox
[-] 2 Button -> Ganti Textnya menjadi  :
Button 1 : Default
Button 2 : Update

3.  Lalu klik kanan di bagian project -> properties

4. Lalu ke tab references -> add -> tab NET -> cari System.management lalu Ok

5. Lalu  ke tab properties kembali -> view windows settings

6. lalu pada app.manifest -> cari kode ini

<requestedExecutionLevel level="asInvoker" uiAccess="false" />

ganti menjadi
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

7. Setelah itu klik dua kali form nya -> Hapus semua codenya

8. Masukan code ini

Imports System.Management
Public Class Form1

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

    End Sub
    Private Sub FillNetworkAdapters()
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)

                ComboBox1.Items.Add(strAdapter)
            End If
        Next
    End Sub

    Private Function GetMACAddress(ByVal Adapter As String) As String
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                Dim strAdapter As String
                strAdapter = mo.Item("Caption").ToString().Substring(11)
                If strAdapter = Adapter Then
                    Return mo.Item("MacAddress").ToString()
                End If
            End If
        Next
    End Function
    Private Sub combobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Label1.Text = GetMACAddress(ComboBox1.SelectedItem.ToString)
    End Sub

    Private Function DoPadding(ByVal x As String) As String
        Dim Ret As String
        Dim z As Integer

        Ret = x
        If Len(x) < 4 Then
            For z = 1 To 4 - Len(x)
                Ret = "0" & Ret
            Next
        End If

        Return Ret
    End Function
    Private Sub ShowRestart()
        Dim res As MsgBoxResult = MsgBox("MAC Address berhasil di ganti , silahkan restart sistem operasi anda", MsgBoxStyle.Information)


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IsOkay = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(ComboBox1.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)

        regKey.SetValue("NetworkAddress", TextBox1.Text.Replace(":", ""))
        ShowRestart()
    End Sub

    Private Function GetRoot(ByVal Adapter As String) As String
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim i As Integer = 0

        Do
            Dim Root As String = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
            Dim Last As String = DoPadding(i)
            regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Root & Last, True)

            Try
                Dim cAdapter As String = regKey.GetValue("DriverDesc").ToString()
                If cAdapter = Adapter Then
                    Return Root & Last
                End If
            Catch
                Exit Do
            End Try
            i += 1
        Loop


    End Function
    Private Function IsOkay() As Boolean
        If Label1.Text = "" Then
            MsgBox("Belum memasukan MAC", MsgBoxStyle.Critical)
            Return False
        End If

        Dim ed As String = Label1.Text.Replace(":", "")

        If ed.Length <> 12 Then
            MsgBox("Harus terdiri dari 12 Kombinasi", MsgBoxStyle.Critical)
            Return False
        End If

        Try
            If ComboBox1.SelectedItem.ToString = "" Then
                MsgBox("Pilih dulu adapternya", MsgBoxStyle.Critical)
                Return False
            End If
        Catch
            MsgBox("Tidak ada adapter yang di pilih", MsgBoxStyle.Critical)
            Return False
        End Try


        Dim noerror As Boolean = True
        Dim i As Integer
        For i = 0 To ed.Length - 1
            If IsHex(ed.Substring(i, 1)) = False Then
                MsgBox("MAC Address in wrong format", MsgBoxStyle.Critical)
                Return False
            End If
        Next

        Return True
    End Function



    Private Function IsHex(ByVal l As String) As Boolean
        Dim table As String = "0123456789ABCDEF"
        Dim i As Integer
        For i = 0 To table.Length - 1
            If l = table.Substring(i, 1) Then
                Return True
            End If
        Next
        Return False


    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsOkay() = False Then
            Exit Sub
        End If
        Dim regKey As Microsoft.Win32.RegistryKey
        Dim Addr As String = GetRoot(ComboBox1.SelectedItem.ToString())
        regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(Addr, True)

        Try
            regKey.DeleteValue("NetworkAddress")
        Catch
            'Do NOTHING
        End Try
        ShowRestart()
    End Sub
End Class

9. Debug -> Build