| 查看: 850 | 回复: 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 |
回复此楼» 猜你喜欢
职称评审没过，求安慰
已经有49人回复
-
26申博自荐
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
垃圾破二本职称评审标准
已经有17人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有22人回复
-
EST投稿状态问题
已经有7人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
三无产品还有机会吗
已经有6人回复
» 抢金币啦！回帖就可以得到:
-
虚位以待，共探前沿：热烈欢迎报考北京工业大学纳米多孔材料课题组2026级博士研究生
+1/265
-
湖北大学食品安全研究团队诚招博士后
+1/185
-
【宁德时代招聘】AI 物理学家
+1/178
-
87 年东北小哥定居苏州/杭州/上海，诚寻携手余生的你
+1/157
-
好用的黑科技重组蛋白和生长因子
+1/99
-
【高温摩擦磨损试验机】接样/预存款服务
+1/84
-
澳門大學 土木工程碩士和建造项目管理碩士招聘
+1/80
-
诚聘生物有化学方向博士后
+1/77
-
重庆大学杰青团队诚招2026年博士研究生
+2/56
-
中南民族大学超支化聚合物团队2026年博士研究生招生
+1/30
-
哈工大深圳校区 博士招生 燃料电池/电解制氢
+1/29
-
博士后招聘
+1/28
-
中科大环境系张常勇教授课题组招聘副研/博士后（一人一议）
+1/23
-
复旦大学彭慧胜院士团队 | 招聘有机合成方向博士后、博士生及科研助理
+1/22
-
求租南京-栖霞区-尧化门附件有虫友有房子要往外出租吗？来个一室的就行。
+1/18
-
澳门科技大学药学院诚招2026年秋季药剂学/生物材料方向博士研究生
+1/12
-
中科院精密测量院（原武汉物数所）诚招磁共振成像方向申请考核制博士（2026.1.9截止）
+1/9
-
SCI，计算机相关可以写
+1/6
-
中国地质大学（武汉）戴志高课题组诚招2026级硕博研究生
+1/5
-
同济大学电信学院，肖李课题组招收2026年统考硕士生1-2名。
+1/1
8楼2010-12-21 09:47:51
2楼2010-12-16 22:13:00
3楼2010-12-17 09:21:53
4楼2010-12-17 10:51:19