grab hwid
whats needed
1 textbox
1 link label
HWID.zip (Size: 751.45 KB / Downloads: 226)
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.zip (Size: 751.45 KB / Downloads: 226)
[img=0x0]https://hackmyass.files.wordpress.com/2011/01/hackers.jpg[/img]
(This post was last modified: 08-13-2020, 05:25 PM by viruss.)