hwid but think something is off not enough charters

grab hwid

whats needed
1 textbox
1 link label
Code:
Imports System.Management
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = GetHDSerial()
    End Sub
    Public Function GetHDSerial() As String
        Dim disk As New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
        Dim diskPropertyA As PropertyData = _
        disk.Properties("VolumeSerialNumber")
        Return diskPropertyA.Value.ToString()
    End Function

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("https://redsecurity.info/cc/private.php?action=send&uid=1")
    End Sub
End Class


.png   hwid.png (Size: 7.17 KB / Downloads: 5)



.zip   HWID.zip (Size: 751.45 KB / Downloads: 0)

* This article was originally published here

Comments