grab hwid
whats needed
1 textbox
1 link label
hwid.png (Size: 7.17 KB / Downloads: 5)
HWID.zip (Size: 751.45 KB / Downloads: 0)
* This article was originally published here
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
hwid.png (Size: 7.17 KB / Downloads: 5)
HWID.zip (Size: 751.45 KB / Downloads: 0)
* This article was originally published here
Comments
Post a Comment