计算机二级VisualBasic辅导：教你如何获取机器DirectX版本

参照windows脚本宿主对象模型
private subform _ load()
dimregwsh，value，dvalue，temp As String
Set regwsh = New IWshShell _ Class
DValue = regwsh。RegRead(" HKLM \软件\微软\ DirectX \ installed version ")
Value = regwsh。RegRead(" HKLM \软件\微软\DirectX\版本")
for I = lbound(dvalue)to ubound(dvalue)
temp = temp & dvalue(I)
next I
msgbox "您机器的DirectX版本是:" & vbCrLf & temp