Bueno eh conseguido el codigo de mi amigo y lo que me dio es esto me dijo que lo tradujera pero no entiendo mucho las syntaxis de vB para pasarlo a Delphi alguna mano ?
Aclaro la etiqueta no es código DELPHi esta programado en vB esto y necesitaría pasarlo a Delphi para que me funcione lo que intento hacer u.U !!
Código Delphi
[-] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
txthwid.Text = GetHWID()
Me.AcceptButton = btnconnect
End Sub
Function GetHWID()
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances
For Each mo As ManagementObject In moc
If cpuInfo = "" Then
cpuInfo = mo.Properties("processorID").Value.ToString
Exit For
End If
Next
Return cpuInfo
End Function
Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
Dim Request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("TU LINK")
Dim Response As System.Net.HttpWebResponse = Request.GetResponse()
Dim SR As System.IO.StreamReader = New System.IO.StreamReader(Response.GetResponseStream)
Dim HWIDAdded As String = SR.ReadToEnd
Dim ThisHWID As String = GetHWID()
If HWIDAdded.Contains(ThisHWID) Then
Form2.Show()
Me.Hide()
Else
Interaction.MsgBox("Not Licensed Yet.. @Contact your support", MsgBoxStyle.Critical, "Obtain your License")
End If
End Sub
Private Sub Form1_Load_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtHWID.Text = GetHWID()
Me.AcceptButton = btnconnect
End Sub