Bem-vindo à SACheats

Registre-se para obter acesso a todos os nossos recursos. Uma vez registrado e logado, você poderá criar tópicos, postar respostas a tópicos já existentes, dar reputação aos seus companheiros, realizar downloads e muito mais.
Registre-se Agora

SISTEMA HWID

Discussão em 'Delphi / Visual Basic' iniciado por SteelGhost, Fevereiro 12, 2017.

  1. SteelGhost

    SteelGhost Membro Avançado

    55
    5
    8
    SACoins:
    165
    Olá pessoal, tudo bem?!
    Bom, estou eu aqui novamente a postar tutoriais/ajudas para vocês. Queria pedir a atenção de todos para o início do vídeo, pois eu falo algo muito importante sobre o porque que eu dei uma "parada" nos fóruns e no meu antigo canal.
    Desde já, agradeço a todos, e bons estudos.


    Código:
    Código:
    Imports System.Management
    Public Class Form1
    
    'ABM 2016
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim HWID As String = String.Empty
            Dim mcl As New ManagementClass("win32_processor")
            Dim MOBC As ManagementObjectCollection = mcl.GetInstances()
    
            For Each mob As ManagementObject In MOBC
                If HWID = "" Then
                    HWID = mob.Properties("processorID").Value.ToString()
                    Exit For
                End If
    
            Next
            MsgBox("Seu HWID é : " & HWID)
        End Sub
    End Class
    Créditos:
    OverKiller (ABMS)
     

Compartilhe esta Página

Please enable / Bitte aktiviere JavaScript!
Veuillez activer / Por favor activa el Javascript![ ? ]