Sistema Simples de Registrar Pc [ VB ]

[45thiago 0]

Salve Galera vim mostrar uma funçãozinha básica e simples que pode quebrar o galho basta usar a criatividade.
a função e o seguinte ela pega o numero do serial do hd do pc e registra no my settings dando possibilidade de criar um sistema que limite o uso da sua aplicação em um único pc.

link do video demonstrando como usa o sistema.

https://youtu.be/_tcL63t3myI

codigo :

'Função '
 
Public Function HD() As String
        Dim DriveSerial As Integer
        Dim fso As Object = CreateObject("Scripting.FileSystemObject")
        Dim Drv As Object = fso.GetDrive(fso.GetDriveName(Application.StartupPath))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else
                DriveSerial = -1
            End If
        End With
        Return DriveSerial.ToString("X2")
    End Function
 
 
'  CHECAGEM '
 
 
If My.Settings.HD = "" Then
            My.Settings.HD = HD() ' cadastra o hd do pc no programa
            MsgBox("pc cadastrado com sucesso !")
        Else
            If My.Settings.HD = HD() Then 'verifica se o hd do pc e o msm q o cadastrado
                ' se for executa o q ta aqui dentro
                MsgBox("status pc ok")
            Else
                ' se não for igual executa o q tiver aqui dentro (exemplo fecha o programa )
                MsgBox("pc n cadastrado ou diferente ")
            End If
        End If
 
 
' RESET  '