| 查看: 1187 | 回复: 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 |
回复此楼» 猜你喜欢
2026国自然函评费到账
已经有17人回复
-
让我中一个面上吧！
已经有15人回复
-
2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战
已经有5人回复
-
跳槽后在研项目怎么办？
已经有10人回复
-
什么时候开奖？
已经有10人回复
-
今天放榜吗？
已经有16人回复
-
93BebMhtakh前后11位开头都是大写
已经有8人回复
-
范进中举一文的中心思想
已经有4人回复
-
只有每年这种时候来逛逛小木虫
已经有26人回复
-
filecode，4个jtjc了
已经有16人回复
» 抢金币啦！回帖就可以得到:
-
散金祈福
+5/1095
-
散金币
+1/931
-
面上第三年申请，改了一遍又一遍，希望能中啊！散金祈福！！！
+5/625
-
何不食肉糜
+1/476
-
每年这时候我都再仔细读一遍《范进中举》
+1/472
-
五大联赛看好哪支球队
+5/180
-
诚征另一半
+1/170
-
中国药科大学博士，博后招聘（高分子，金属有机方向），欢迎大家交流推荐
+1/85
-
那年春暖花开，今朝如梦初醒 —— 北漂十五载，相亲十年，归乡孑然一身
+1/68
-
焦虑
+1/64
-
瑞典-博后-固态电池-粘结剂-锂离子电池方向
+1/36
-
瑞典-博后-固态电池-粘结剂-锂离子电池方向
+1/32
-
瑞典-博后-固态电池-粘结剂-锂离子电池方向
+1/25
-
南京理工大学优青团队催化化学方向招收推免研究生
+1/22
-
***大叔找对象（沪深等地）
+1/20
-
pcold 原核表达载体
+1/8
-
2027环境工程博士申请
+1/8
-
出全新蔡司 Plan?APOCHROMAT 20×/0.8 平场复消色差物镜
+1/2
-
清华大学环境课题组招聘环境工作专业客座生研究生2-3名（应用导向）
+1/2
-
2026年国自然
+1/1
3楼2010-12-17 09:21:53
2楼2010-12-16 22:13:00
4楼2010-12-17 10:51:19
5楼2010-12-17 15:26:09
