| 查看: 1216 | 回复: 7 | |||
[交流]
【求助】Vb寻址的一段程序，看不懂啊！高手解决下！
|
|
在Vb查找ANSYS时的一段程序，看不懂，高手能不能给解释下！ Dim hKey As Long, ret As Long, lenData As Long, typeData As Long Dim Name, nums1, nums2, nums3 As String Dim s As String Dim num As Integer '读取value. For num = 60 To 100 Step 10 nums1 = Trim(Str(num)) Name = "ANSYS" + nums1 + "_DIR" nums2 = "Software\ANSYS, Inc.\ANSYS\ANSYS " + Trim(Str(num) / 10) + ".0" ret = RegOpenKey(HKEY_LOCAL_MACHINE, nums2, hKey) If ret = 0 Then ret = RegQueryValueEx(hKey, Name, 0, typeData, ByVal vbNullString, lenData) '注意ByVal千万别忘了 s = String(lenData, Chr(0)) RegQueryValueEx hKey, Name, 0, typeData, ByVal s, lenData '注意ByVal千万别忘了 If s <> "" Then s = Left(s, InStr(s, Chr(0)) - 1) nums3 = s + "\bin\intel\ansys" + nums1 + ".exe" frmzhi.Combo1.AddItem nums3 RegCloseKey hKey End If End If Next |
回复此楼» 猜你喜欢
浙江师范大学是怎么坑我的
已经有15人回复
-
浙江师范大学是怎么坑我的
已经有4人回复
-
闲聊
已经有6人回复
-
江苏省自然基金 什么时候出结果
已经有7人回复
-
求教各位大神：2026教育部人文社科青年基金项目何时公示呀？
已经有6人回复
-
面上有专家说实验设备不是我们单位的
已经有8人回复
-
科研求助
已经有4人回复
» 抢金币啦！回帖就可以得到:
-
项目结题验收，希望一切顺利
+1/980
-
诚征女友
+1/498
-
华南理工大学 光电材料方向 王竣可教授课题组招聘博士后、博士生及科研助理
+5/480
-
材料理论模拟或理论计算的作用有多大
+1/198
-
急招科研助理/博士后
+2/134
-
美国肯塔基大学Dr. Sheng Tong博士后招聘（空间可控的基因组编辑与肿瘤免疫治疗）
+1/97
-
中科院化学所韩布兴院士团队诚聘光催化、光酶催化、光电催化领域博士后1-2名
+1/78
-
坐标天津，诚征女友，希望遇到有缘之人。
+1/31
-
中国科大-合肥国家实验室冷原子量子网络团队招聘启事
+2/26
-
27博士申请自荐
+1/26
-
深圳大学应用技术学院招聘凝聚态物理博士后
+1/17
-
【牙科生物材料特刊征稿】对牙科方向友好（Scopus、DOAJ收录的正规国际期刊）
+1/9
-
【生物材料与生物打印专题征稿】Scopus期刊，免APC
+1/8
-
【特刊征稿】BM临床诊断与治疗生物功能材料专题（Scopus、DOAJ 收录）
+1/8
-
口腔特刊客座招募客编Biofunctional Materials牙科生物功能材料专题，Scopus期刊
+1/7
-
哈工大（深圳）招收工程热物理专业2027入学博士生
+1/3
-
广东省智能院与澳门大学、澳门科技大学、澳理工联合培养博士招生
+1/3
-
招聘材料计算，分子动力学模拟相关讲师
+1/2
-
求一篇文献PDF Journal of Organic Chemistry (2026) 91 (28): 9771–9779.
+1/1
-
有人玩真心话吗
+1/1
2楼2010-12-16 22:13:00
3楼2010-12-17 09:21:53
4楼2010-12-17 10:51:19
5楼2010-12-17 15:26:09
6楼2010-12-17 18:52:07
★
lixiumei2006(金币+4): 2010-12-21 09:46:15
余泽成(金币+1):谢谢参与应助！ 2010-12-21 11:01:21
lixiumei2006(金币+4): 2010-12-21 09:46:15
余泽成(金币+1):谢谢参与应助！ 2010-12-21 11:01:21
7楼2010-12-20 14:53:17
8楼2010-12-21 09:47:51