| 查看: 1238 | 回复: 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 |
回复此楼» 猜你喜欢
我应该选哪条合成路线让实验成功率高一些？
已经有7人回复
-
烦躁
已经有8人回复
-
入职后第一次管课题组的专利缴费，对账才发现官费比别人多掏了一倍
已经有3人回复
-
各位大佬，路线设计求助
已经有7人回复
» 抢金币啦！回帖就可以得到:
-
2026年人文教育与社会发展国际会议（HESD 2026）
+1/954
-
求助DL 5009.1-2014
规程 第1部分：火力发电》
+1/487
-
沈阳工业大学 环境电化学技术研究团队 招收硕士研究生（学硕/专硕）
+2/180
-
双一流大学湘潭大学“化工过程模拟与强化”国家地方联合工程研究中心招收博士生
+1/44
-
双一流湘潭大学化工学院招收化工、能源动力、工程热物理相关研究生调剂
+1/42
-
深圳技术大学药学院｜接收2026年推免季研究生
+1/40
-
爱丁顿实验
+1/39
-
深圳技术大学药学院接收2026年推免季研究生
+1/37
-
电子科技大学2027年博士生招生｜电池材料与AI4S方向｜拟招3名
+1/37
-
中科院地质地球所招收博士/博士后，待遇优厚！！！！
+1/21
-
高分辨质谱测试丨科研单位对外服务
+1/20
-
【博士招生】招收材料、化工、环境、冶金类2027年“申请-考核”制博士生
+1/16
-
深圳理工大学史志方课题组招聘研究助理教授、博士后和工程师
+1/15
-
重庆大学国家储能技术产教融合创新平台招收2027年入学博士及博士后
+1/14
-
[求助] 环丁基溴的合成遇到困难，求懂得大佬指点迷津。。
+1/6
-
上海交通大学化学化工学院张智涛课题组诚聘博士后
+1/6
-
江苏科技大学有机合成课题组招聘2027博士研究生
+1/5
-
智能传感器网络实时数据处理：时序分析、DNN调度与MQTT边缘AI工作站配置
+1/4
-
2026年诺贝尔生理学或医学奖深度解读：一束光如何 “指挥” 大脑？
+1/2
-
武汉大学电信学院-梁国镇课题组-诚招硕士博士 - 深紫外光源方向 - 2027年入学
+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