08-13-2020, 05:22 PM
grab hwid
whats needed
1 textbox
1 link label
[attachment=150]
[attachment=149]
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
[attachment=150]
[attachment=149]