Muchas Gracias y disculpen por el x2 post
ya solucione el problema
ya solucione el problema
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Imports System.Management
Imports System.Net
Friend Function hwid() As String
Return GetProcessorId() & "-" & GetMACAddress() & "-" & GetVolumeSerial()
End Function
Friend FuEmpty
Dim query As New SelectQuery("Win32_prnction GetProcessorId() As String
Dim strProcessorId As String = String.ocessor")
Dim buscar As New ManagementObjectSearcher(query)
Dim info As ManagementObject