| 查看: 997 | 回复: 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 |
回复此楼» 猜你喜欢
博士招生
已经有5人回复
-
夜，静悄悄的
已经有8人回复
-
国自科送审了吗
已经有8人回复
-
收到国自然专家邀请后几年才会有本子送过来评
已经有5人回复
-
研究生做的很差，你们会让毕业吗？
已经有6人回复
-
26年博士申请自荐-电催化
已经有5人回复
-
2026博士或科研助理转27年博士
已经有5人回复
-
26年申博自荐-计算机视觉
已经有4人回复
» 抢金币啦！回帖就可以得到:
-
坐标南京，诚租女友
+5/9326
-
上海嘉定周边俩小时车程
+5/170
-
工科男，工作稳定，希望能遇到有趣的她
+1/169
-
东南大学废弃碳资源利用团队（杰青/海优团队）27级博士研究生和科研助理招生
+1/127
-
有经费能报销的老师合作发表SCI开源期刊吗？
+1/92
-
太行山徒步之凌水河（一）
+1/79
-
昆明理工大学交通载运车辆方向招收2026年秋季入学博士生2名
+4/72
-
2026年江西师范大学流动化学与工程研究院陈芬儿院士团队化学博士招生
+3/71
-
求认识靠谱妹纸@山西
+1/71
-
北京邮电大学电子科学与技术招收博士
+1/30
-
诚征女友，坐标西安
+1/23
-
天津医科大学王霆教授团队，诚招2026级申请考核制博士生1名
+1/11
-
英国大学招收电子散热及数字孪生研究方向的博士生
+1/9
-
爱思维尔旗下LWT投稿
+1/6
-
李老师课题组急招收生物信息学方向博士研究生！
+1/6
-
河北工业大学人工智能与数据科学学院刘卫朋课题组招收2026年考察-审核制博士
+1/5
-
UIO-66-NH2/RGO如何碳化，求助！！！！！
+1/4
-
招收2026年秋季入学博士生1名（河北工业大学/北京科技大学联合 增材制造/生物材料）
+1/3
-
中南大学地信院潘老师团队招收航天摄影测量与三维计算机视觉方向2026年入学博士生
+1/3
-
科研新人必看：立项/开题/报奖都绕不开科技查新
+1/2
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