获取机器DirectX版本
来源:互联网 发布:巴以问题的由来知乎 编辑:程序博客网 时间:2024/04/29 05:48
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
Private Sub Form_Load()
Dim regwsh, Value, DValue, temp As String
Set regwsh = New IWshShell_Class
DValue = regwsh.RegRead("HKLMSOFTWAREMICROSOFTDirectXInstalledVersion")
Value = regwsh.RegRead("HKLMSOFTWAREMICROSOFTDirectXVersion")
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
End Sub<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
'引用windows scripting host object modelPrivate Sub Form_Load()
Dim regwsh, Value, DValue, temp As String
Set regwsh = New IWshShell_Class
DValue = regwsh.RegRead("HKLMSOFTWAREMICROSOFTDirectXInstalledVersion")
Value = regwsh.RegRead("HKLMSOFTWAREMICROSOFTDirectXVersion")
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
End Sub<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 获取机器DirectX版本
- 获取机器DirectX版本
- 无法获取显存大小,请检查Directx版本
- 获取本地机器支持的.NET版本
- IOS获取当前机器ios版本
- VB查看DIRECTX 版本
- DirectX版本介绍
- DirectX版本问题
- 查看本机directx版本
- DirectX SDK 部分版本信息
- 获取本地机器支持的.NET版本,C#源代码示例
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- DirectX SDK版本与Visual Studio版本
- php:树形结构的算法1
- VB创建多线程应用程序(一)
- php:树形结构的算法2
- VB创建多线程应用程序(二)
- php:树形结构的算法4
- 获取机器DirectX版本
- php:树形结构的算法3
- 关于日期的中文转换
- 如何用php生成WAP页面
- 让图片无迹可寻
- PHP程序中的特效应用实用代码珍藏
- 如何使用PHP和PEAR进行不同时区的转换
- 如何用VB获得机器的MAC地址
- 利用PHP代码实现网页自动判断转向