| 查看: 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









回复此楼
