Discord Server Red Security Twitter Donation to Red Security Red Security Youtube Channel Red Security Tumblr Profile
Windscribe
Login or Register to Hide ads and Accessing all features on the forum
Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
hwid but think something is off not enough charters
#1
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

   



.zip   HWID.zip (Size: 751.45 KB / Downloads: 14)
[img=0x0]https://hackmyass.files.wordpress.com/2011/01/hackers.jpg[/img]
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  vb.net Hwid viruss 1 1,044 03-29-2018, 08:13 PM
Last Post: Mr.Kurd



Users browsing this thread: 1 Guest(s)