สิ่งที่อยู่ใน Project

1.TextBox1
2.Button1
3.Module1.vb

ต้องแอดตัวนี้ด้วยนะคับไม่ให้ code error
1.ไปที่ Project
2.ไปที่ Add Reference
3.ไปที่ .NET
4.หา System.Management คลิ็ก 1 ครั่ง
5.เเละกด Ok


Code

Module1.vb

Imports System.Security.Cryptography

Imports System.IO

Imports System.Text

Imports System.Management

Imports System.Net

Module Module1

    Public Function CHWIDWEB()

        Dim GHwid = GetVolumeSerialNumber("C")

        Dim SeGHWid = StringToMD5(GHwid)

        Dim SuGHWid = StringToMD5(SeGHWid)

        Dim LinkCheck As New WebClient

        Return 0

    End Function

    Public Function StringToMD5(ByVal Content As String) As String

        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)

        ByteString = M5.ComputeHash(ByteString)

        Dim FinalString As String = Nothing

        For Each bt As Byte In ByteString

            FinalString &= bt.ToString("x2")

        Next

        Return FinalString

    End Function

    Public Function GetVolumeSerialNumber(ByVal driveletter As String) As String

        Dim mobjSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDisk WHERE Name = '" & driveletter & ":'")

        For Each obj As ManagementObject In mobjSearcher.Get

            Return obj("VolumeSerialNumber")

        Next

        Return 0

    End Function

    Public Function CHwid()

        Dim GHwid = GetVolumeSerialNumber("C")

        Dim SeGHWid = StringToMD5(GHwid)

        Form1.TextBox1.Text = SeGHWid

        Return 0

    End Function

End Module

บน Public Class Form1

Imports System.IO

Imports System.Text

Imports System.Management

Imports System.Net

ล้าง Public Class Form1

Public Function StringToMD5(ByVal Content As String) As String

        Dim M5 As New System.Security.Cryptography.MD5CryptoServiceProvider

        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)

        ByteString = M5.ComputeHash(ByteString)

        Dim FinalString As String = Nothing

        For Each bt As Byte In ByteString

            FinalString &= bt.ToString("x2")

        Next

        Return FinalString

    End Function

Form1_Load

Call CHwid()

        Dim SeGHWid = Textbox1.Text

        Dim SuGHWid = StringToMD5(SeGHWid)

        Textbox1.Text = SuGHWid

Button1

Dim GHwid = GetVolumeSerialNumber("C")

                Dim SeGHWid = StringToMD5(GHwid)

                Dim SuGHWid = StringToMD5(SeGHWid)

                Dim LinkCheck As New WebClient

                Dim ContainsCheck As String



                ContainsCheck = LinkCheck.DownloadString("http://www.เป็นเว็บของท่านที่อยู่ HWID.com/") 

                LinkCheck.Dispose()





                If ContainsCheck.Contains(SuGHWid) Then

                    MessageBox.Show("มีรหัสในระบบ" ,"ข้อความจากระบบ",

                    MessageBoxButtons.OK, MessageBoxIcon.Information)

                Else

                    MessageBox.Show("ไม่มีรหัสในระบบ", "ข้อความจากระบบ",

                    MessageBoxButtons.OK, MessageBoxIcon.Error)

                End If

ถ้าไม่เข้าใจทักมาถามได้นะคับ!!!!

แก้ไขล่าสุดเมื่อ 8 พฤษภาคม 2559 เวลา 18:03 น.