| 查看: 853 | 回复: 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 |
回复此楼» 猜你喜欢
垃圾破二本职称评审标准
已经有18人回复
-
职称评审没过，求安慰
已经有53人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有5人回复
-
26申博自荐
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
EST投稿状态问题
已经有7人回复
» 抢金币啦！回帖就可以得到:
-
散金祈福
+1/613
-
湖南师范大学蒋乐勇教授课题组招收2026届“申请-考核”制博士生
+1/175
-
《春节催婚季，90后男生在线“招募”战友，一起过个轻松年》
+1/157
-
好用的黑科技重组蛋白和生长因子
+1/99
-
Analytical Science Advances（Wiley出版社）长期征稿中...
+1/87
-
【高温摩擦磨损试验机】接样/预存款服务
+1/83
-
天津大学化学系吴立朋课题组申请考核制博士招生/博后招聘
+1/80
-
中国科学院山西煤炭化学研究所水污染防治与资源化利用方向招本科/硕士线上实习生
+1/78
-
江西师范大学化学与材料学院2026年博士研究生招生
+1/30
-
湖南师范大学杨亚辉/江浩团队招收电催化方向2026年博士生1名
+1/27
-
上海交通大学机械与动力工程学院周宝文博士后招聘（化学、材料与能源动力等方向）
+1/25
-
口腔健康的标准
+1/13
-
招收2026级博士
+1/8
-
长春工业大学 机电工程学院 韩玲 招收申请审核制2026年秋季入学博士生
+1/5
-
实验室研究员
+1/4
-
河南师范大学植物生殖生物学科研团队博士招聘
+1/4
-
26届计算机、电子信息类、电科、控制、通信考研T j信息pp骏：74+08+76+6+20
+1/4
-
浙江大学杨林课题组招聘药物化学与有机合成方向博士后
+1/3
-
澳门大学 应用物理及材料工程研究院 孙国星课题组招收博士（2026/2027学年）
+1/3
-
英国兰卡斯特大学（Lancaster University）大模型、计算机视觉PhD招生
+1/2
5楼2010-12-17 15:26:09
2楼2010-12-16 22:13:00
3楼2010-12-17 09:21:53
4楼2010-12-17 10:51:19