========又遇到一个奇怪的问题，请大家帮帮我=========
下面一段程序:
Option Explicit
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETCOLUMNWIDTH As Long = (LVM_FIRST + 30)
Private Const LVSCW_AUTOSIZE As Long = -1
Private Const LVSCW_AUTOSIZE_USEHEADER As Long = -2
Private Sub Form_Load()
With ListView1
.ListItems.Clear
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "WMI Property"
.ColumnHeaders.Add , , "Value(s)"
.View = lvwReport
.Sorted = False
End With
Command1.Caption = "BIOS Info"
End Sub
Private Sub Command1_Click()
ListView1.ListItems.Clear
Call wmiBiosInfo
End Sub
Private Sub wmiBiosInfo()
Dim BiosSet As SWbemObjectSet
Dim bios As SWbemObject
Dim itmx As ListItem
Dim cnt As Long
Dim msg As String
Set BiosSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
InstancesOf("Win32_BIOS")
On Local Error Resume Next
For Each bios In BiosSet
Set itmx = ListView1.ListItems.Add(, , "PrimaryBIOS")
itmx.SubItems(1) = bios.PrimaryBIOS
Set itmx = ListView1.ListItems.Add(, , "Status")
itmx.SubItems(1) = bios.Status
For cnt = LBound(bios.BIOSVersion) To UBound(bios.BIOSVersion)
Set itmx = ListView1.ListItems.Add(, , IIf(cnt = 0, "BIOSVersion strings", ""))
itmx.SubItems(1) = bios.BIOSVersion(cnt)
Next
Set itmx = ListView1.ListItems.Add(, , "Caption")
itmx.SubItems(1) = bios.Caption
Set itmx = ListView1.ListItems.Add(, , "Description")
itmx.SubItems(1) = bios.Description
Set itmx = ListView1.ListItems.Add(, , "Name")
itmx.SubItems(1) = bios.Name
Set itmx = ListView1.ListItems.Add(, , "Manufacturer")
itmx.SubItems(1) = bios.Manufacturer
Set itmx = ListView1.ListItems.Add(, , "ReleaseDate")
itmx.SubItems(1) = bios.ReleaseDate
Set itmx = ListView1.ListItems.Add(, , "SerialNumber")
itmx.SubItems(1) = bios.SerialNumber
Set itmx = ListView1.ListItems.Add(, , "SMBIOSBIOSVersion")
itmx.SubItems(1) = bios.SMBIOSBIOSVersion
Set itmx = ListView1.ListItems.Add(, , "SMBIOSMajorVersion")
itmx.SubItems(1) = bios.SMBIOSMajorVersion
Set itmx = ListView1.ListItems.Add(, , "SMBIOSMinorVersion")
itmx.SubItems(1) = bios.SMBIOSMinorVersion
Set itmx = ListView1.ListItems.Add(, , "SMBIOSPresent")
itmx.SubItems(1) = bios.SMBIOSPresent
Set itmx = ListView1.ListItems.Add(, , "SoftwareElementID")
itmx.SubItems(1) = bios.SoftwareElementID
Set itmx = ListView1.ListItems.Add(, , "SoftwareElementState")
Select Case bios.SoftwareElementState
Case 0: msg = "deployable"
Case 1: msg = "installable"
Case 2: msg = "executable"
Case 3: msg = "running"
End Select
itmx.SubItems(1) = msg
Set itmx = ListView1.ListItems.Add(, , "Version")
itmx.SubItems(1) = bios.Version
Set itmx = ListView1.ListItems.Add(, , "InstallableLanguages")
itmx.SubItems(1) = bios.InstallableLanguages
Set itmx = ListView1.ListItems.Add(, , "CurrentLanguage")
itmx.SubItems(1) = bios.CurrentLanguage
For cnt = LBound(bios.ListOfLanguages) To UBound(bios.ListOfLanguages)
Set itmx = ListView1.ListItems.Add(, , IIf(cnt = 0, "ListOfLanguages", ""))
itmx.SubItems(1) = bios.ListOfLanguages(cnt)
Next cnt
For cnt = LBound(bios.BiosCharacteristics) To UBound(bios.BiosCharacteristics)
Set itmx = ListView1.ListItems.Add(, , IIf(cnt = 0, "BIOS Characteristics", ""))
Select Case bios.BiosCharacteristics(cnt)
Case 0: msg = "reserved"
Case 1: msg = "reserved"
Case 2: msg = "unknown"
Case 3: msg = "BIOS characteristics not supported"
Case 4: msg = "ISA supported"
Case 5: msg = "MCA supported"
Case 6: msg = "EISA supported"
Case 7: msg = "PCI supported"
Case 8: msg = "PC Card (PCMCIA) supported"
Case 9: msg = "Plug and Play supported"
Case 10: msg = "APM is supported"
Case 11: msg = "BIOS upgradable (Flash)"
Case 12: msg = "BIOS shadowing allowed"
Case 13: msg = "VL-VESA supported"
Case 14: msg = "ESCD support available"
Case 15: msg = "Boot from CD supported"
Case 16: msg = "Selectable boot supported"
Case 17: msg = "BIOS ROM socketed"
Case 18: msg = "Boot from PC card (PCMCIA) supported"
Case 19: msg = "EDD (Enhanced Disk Drive) specification supported"
Case 20: msg = "Int 13h, Japanese Floppy for NEC 9800 1.2mb (3.5, 1k b/s, 360 RPM) supported"
Case 21: msg = "Int 13h, Japanese Floppy for Toshiba 1.2mb (3.5, 360 RPM) supported"
Case 22: msg = "Int 13h, 5.25 / 360 KB floppy services supported"
Case 23: msg = "Int 13h, 5.25 /1.2MB floppy services supported"
Case 24: msg = "Int 13h 3.5 / 720 KB floppy services supported"
Case 25: msg = "Int 13h, 3.5 / 2.88 MB floppy services supported"
Case 26: msg = "Int 5h, print screen service supported"
Case 27: msg = "Int 9h, 8042 keyboard services supported"
Case 28: msg = "Int 14h, serial services supported"
Case 29: msg = "Int 17h, printer services supported"
Case 30: msg = "Int 10h, CGA/Mono video aervices supported"
Case 31: msg = "NEC PC-98"
Case 32: msg = "ACPI supported"
Case 33: msg = "USB Legacy supported"
Case 34: msg = "AGP supported"
Case 35: msg = "I2O boot supported"
Case 36: msg = "LS-120 boot supported"
Case 37: msg = "ATAPI ZIP drive boot supported"
Case 38: msg = "1394 boot supported"
Case 39: msg = "Smart battery supported"
End Select
itmx.SubItems(1) = msg
Next
Next
End Sub
ListView1、Command1、Form1
在生成.exe文件之前都能顺利运行，可生成.exe文件执行时却总是程序无响应！
大家帮我想想这是为什么？我先谢谢大家了！
另外我这里现在有大量的gmail的邀请函，不知道现在还有没有人需要，如果有需要的话，请把E-mail地址留下来，我会尽快给大家发过去的！
问题点数：50、回复次数：2Top
1 楼samwzhang（分全给我）回复于 2005-05-06 02:50:58 得分 50
这种问题往往是冲突引起的，也有可能是控件版本不对引起，这个就要你自己查了，具体情况偶们临空的也没法给你调试。Top
2 楼jason19831（小强）回复于 2005-05-06 09:27:25 得分 0
谢谢您！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
