HWID [Unreal$kill-VIP]

[lucas102030 0]

Olá pessoal da WC tou aqui hoje para ensinar a fazerem um HWID igual da [***********-VIP]

 

 

1º Abram o Visual Basic e criem uma Windows Form

 

2º Deem 2 clicks sobre a Form1

 

Depois coloquem o codigo a seguir:

 

 

Nessesario: 1 textbox mudem o nome para txtHWID

 

 

 

Imports System

Imports System.Management

 

 

 

Public Class Form1

 

 

 

Dim HWID As String

Function GetHWID()

Dim mc As New ManagementClass("Win32_PhysicalMedia")

Dim moc As ManagementObjectCollection = mc.GetInstances

For Each mo As ManagementObject In moc

If HWID = "" Then

HWID = mo.Properties("SerialNumber").Value.ToString

Exit For

End If

Next

Return HWID

End Function

 

 

 

e depois este:

 

 

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

txtHWID.Text = GetHWID()

 

 

 

 

Creditos By: Unreal$kill-VIP

[fontana2010 0]

NOSSA LUCAS COMO VC É LIXO DPS FIKA PEDINDO AS COISA NO SKYPE .. AFF KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK :conversando::conversando::conversando::conversando::conversando::conversando::conversando::pensando::pensando: