ايران ويج

با سلــــــــــ Wink

ـــــــــــــــام و تشکر Heart

دوستان من یک اطلاعاتی از سیستم می خواهم که بعد از عوض کردن ویندوز تغییر نکند مثلا یک کد از نمی دونم CPU،مادربورد یا ...
با تشکـــــــــــــــــــــــــــــــــــــــ Heart

ــــــــــــــــــــــــــــــــــــر

سلام
سوالاتتون رو خیلی بد میپرسید؛ آدم حوصلش نمیکشه بخونتوشون!

یعنی چی؟ خب خودون دارین میگین از کد cpu و ... استفاده کنید دیگه! الآن باید چه راهنمایی کنن بچه ها؟!

با تشکــــــــــــــــــــــ Heart

ـــــــــــــــــــــــــــــر
من نحوه ی دریافت سریال بخش هایی مثل CPU،مادربرد و ... می خواستم
کد یا آموزشی دارید بدید ممنون می شم
ببخشید سوالو خیلی بد پرسید یعنی اصلا کامل نبود،وقت کم بود خلاصه شد Shy

من سورس دریافت سریال رو می خواستم
با تشکــــــــــــــــــــــــــــ Heart

ـــــــــــــــــــــــــــــــر

سلام.

کد: 
Private Function SystemSerialNumber() As String

Dim mother_boards As Variant

Dim board As Variant

Dim wmi As Variant

Dim serial_numbers As String

    ' Get the Windows Management Instrumentation object.

    Set wmi = GetObject("WinMgmts:")

    ' Get the "base boards" (mother boards).

    Set mother_boards = wmi.InstancesOf("Win32_BaseBoard")

    For Each board In mother_boards

        serial_numbers = serial_numbers & ", " & board.SerialNumber

    Next board

    If Len(serial_numbers) > 0 Then serial_numbers = Mid$(serial_numbers, 3)

    SystemSerialNumber = serial_numbers

End Function

Private Function CpuId() As String

Dim computer As String

Dim wmi As Variant

Dim processors As Variant

Dim cpu As Variant

Dim cpu_ids As String

    computer = "."

    Set wmi = GetObject("winmgmts:" & _

        "{impersonationLevel=impersonate}!\\" & _

        computer & "\root\cimv2")

    Set processors = wmi.ExecQuery("Select * from Win32_Processor")

    For Each cpu In processors

        cpu_ids = cpu_ids & ", " & cpu.ProcessorId

    Next cpu

    If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)

    CpuId = cpu_ids

End Function

javaweb

babyy

javaweb

Payman62