ကျွန်တော် VB6 နဲ ့

MAC ADDRESS,

SYSTEMBIOS DATE,

SYSTEMBIOS VERSION တွေ ကို

TEXT BOX 3 ခုထဲ မှာ ပေါ် အောင် လုပ် ချင် ပါတယ် ဘယ်လို ရေး ရတယ်ဆို တာ ရှင်းပြကြ ပါအုံး.........ရေးပြီးသားရှိ ရင်လည်း SOURCECODE တွေပါတင်ပေးပါအုံး

ဖိုရမ်ပြန်လည် တည်ဆောက်နေရတာနဲ့ အလုပ်ရှုပ်နေလို့ ပိုစ့် မစစ်မိလိုက်ဘူး။
အစ်ကိုရေးထားတာ ဒီနေ့မှတွေ့တယ်ဗျို့။ စောင့်ဆိုင်းစေမိရင် တောင်းပန်ပါတယ်နော်။

ကျနော်လည်း VB6 ကို မရေးတာကြာပြီဖြစ်တော့ မေ့ကုန်လို့။ အင်တာနက်ကနေဘဲ လက်လှမ်းမှီသလောက် ရှာပေးလိုက်ပါတယ်။
For Mac Add

Code:

http://[You must be registered and logged in to see this link.]

BIOS နဲ့ ဆိုင်တာကတော့ အောက်က Coding လေးကိုလေ့လာကြည့်ပါ။
ကျနော့်မှာရှိတာတော့ ကြာပြီ။ XP မှာတော့ ကောင်းကောင်းအလုပ်လုပ်ပါတယ်။
အစ်ကို့လိုအပ်ချက်နဲ့ ကိုက်ညီအောင်တော့ ပြန်ပြင်လိုက်ပေါ့။

Code:


  1.      On Error Resume Next
  2.      Computer = "."
  3.      Set OutFile = CreateObject("WScript.Shell")
  4.      Const ForAppending = 2
  5.      Set FileSystem = CreateObject("Scripting.FileSystemObject")
  6.      Set TextFile = FileSystem.OpenTextFile ("c:\Win32_BIOS.txt", ForAppending, True)
  7.      TextFile.WriteLine
  8.      Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
  9.      Set Items = WMIService.ExecQuery("Select * from Win32_BIOS",,48)
  10.      For Each SubItems in Items
  11.      TextFile.WriteLine "********************************************************************"
  12.          TextFile.WriteLine "BiosCharacteristics: " & SubItems.BiosCharacteristics
  13.          TextFile.WriteLine "BIOSVersion: " & SubItems.BIOSVersion
  14.          TextFile.WriteLine "BuildNumber: " & SubItems.BuildNumber
  15.          TextFile.WriteLine "Caption: " & SubItems.Caption
  16.          TextFile.WriteLine "CodeSet: " & SubItems.CodeSet
  17.          TextFile.WriteLine "CurrentLanguage: " & SubItems.CurrentLanguage
  18.          TextFile.WriteLine "Description: " & SubItems.Description
  19.          TextFile.WriteLine "IdentificationCode: " & SubItems.IdentificationCode
  20.          TextFile.WriteLine "InstallableLanguages: " & SubItems.InstallableLanguages
  21.          TextFile.WriteLine "InstallDate: " & SubItems.InstallDate
  22.          TextFile.WriteLine "LanguageEdition: " & SubItems.LanguageEdition
  23.          TextFile.WriteLine "ListOfLanguages: " & SubItems.ListOfLanguages
  24.          TextFile.WriteLine "Manufacturer: " & SubItems.Manufacturer
  25.          TextFile.WriteLine "Name: " & SubItems.Name
  26.          TextFile.WriteLine "OtherTargetOS: " & SubItems.OtherTargetOS
  27.          TextFile.WriteLine "PrimaryBIOS: " & SubItems.PrimaryBIOS
  28.          TextFile.WriteLine "ReleaseDate: " & SubItems.ReleaseDate
  29.          TextFile.WriteLine "SerialNumber: " & SubItems.SerialNumber
  30.          TextFile.WriteLine "SMBIOSBIOSVersion: " & SubItems.SMBIOSBIOSVersion
  31.          TextFile.WriteLine "SMBIOSMajorVersion: " & SubItems.SMBIOSMajorVersion
  32.          TextFile.WriteLine "SMBIOSMinorVersion: " & SubItems.SMBIOSMinorVersion
  33.          TextFile.WriteLine "SMBIOSPresent: " & SubItems.SMBIOSPresent
  34.          TextFile.WriteLine "SoftwareElementID: " & SubItems.SoftwareElementID
  35.          TextFile.WriteLine "SoftwareElementState: " & SubItems.SoftwareElementState
  36.          TextFile.WriteLine "Status: " & SubItems.Status
  37.          TextFile.WriteLine "TargetOperatingSystem: " & SubItems.TargetOperatingSystem
  38.          TextFile.WriteLine "Version: " & SubItems.Version
  39.      TextFile.WriteLine "********************************************************************"
  40.      Next
  41.      TextFile.Close
  42.      OutFile.Run "notepad.exe c:\Win32_BIOS.txt",1,True


ကျေးဇူးပါဘဲ ................
အစ်ကိုလည်းဒီနေ့မှ ဘဲ online တက်ဖြစ် တာနဲ ့ အတော်ဘဲ...........