24-02-18, 04:42 AM
24-02-18, 05:02 AM
السّلام عليكم و رحمة الله و بركاته
متابع إن شاء الله..
تحياتي
24-02-18, 10:12 AM
توجد طريقة من خلال التأكد من سيريال البروسيسر أو المذربورد :
أتمنى إني أكون أفدتك ...
تحياتي ...
كود :
Private Function SystemSerialNumber() As String
' Get the Windows Management Instrumentation object.
Dim wmi As Object = GetObject("WinMgmts:")
' Get the "base boards" (mother boards).
Dim serial_numbers As String = ""
Dim mother_boards As Object = _
wmi.InstancesOf("Win32_BaseBoard")
For Each board As Object In mother_boards
serial_numbers &= ", " & board.SerialNumber
Next board
If serial_numbers.Length > 0 Then serial_numbers = _
serial_numbers.Substring(2)
Return serial_numbers
End Function
Private Function CpuId() As String
Dim computer As String = "."
Dim wmi As Object = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Dim processors As Object = wmi.ExecQuery("Select * from " & _
"Win32_Processor")
Dim cpu_ids As String = ""
For Each cpu As Object In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If cpu_ids.Length > 0 Then cpu_ids = _
cpu_ids.Substring(2)
Return cpu_ids
End Functionأتمنى إني أكون أفدتك ...
تحياتي ...
25-02-18, 03:01 AM
اخي العزيز جزاك الله خير الجزاء
ولكن لا اعرف كيف استخدم الكود.هل اضعه في button ام ماذا
وجزاك الله خيرا
ولكن لا اعرف كيف استخدم الكود.هل اضعه في button ام ماذا
وجزاك الله خيرا
26-02-18, 05:01 PM
يتم وضعه في
Form1_Load
Form1_Load