关闭

VB查看DIRECTX 版本

标签: vbscriptingwindowsobjectstringclass
1557人阅读 评论(0) 收藏 举报
分类:

'引用Windows Scripting Host Object
Dim regwsh, Value, DValue, temp As String
Set regwsh = New IWshShell_Class
DValue = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/InstalledVersion")
Value = regwsh.RegRead("HKLM/SOFTWARE/MICROSOFT/DirectX/Version")
For i = LBound(DValue) To UBound(DValue)
  temp = temp & DValue(i)
Next i
MsgBox "您机器DirectX版本为 :" & vbCrLf & "DirectX " & Mid(temp, 4, 1) & "." & _
Right(temp, 1) & "(" & Value & ")"
Set regwsh = Nothing

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1210266次
    • 积分:15226
    • 等级:
    • 排名:第767名
    • 原创:294篇
    • 转载:60篇
    • 译文:2篇
    • 评论:188条
    文章存档
    最新评论
    C#+Jquery
    C#+Jquery