应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » VB » 【求助】Vb寻址的一段程序，看不懂啊！高手解决下！
81/1返回列表
查看: 925  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lixiumei2006

银虫 (小有名气)

[交流] 【求助】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
回复此楼

» 猜你喜欢

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2010-12-16 20:18:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

gcssg1

金虫 (小有名气)
我刚学VB，无能为力啊！！！
赞一下 回复此楼
2楼2010-12-16 22:13:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★
余泽成(金币+2):谢谢参与应助！ 2010-12-20 20:20:46
HKEY_LOCAL_MACHINE\Software\ANSYS, Inc.\ANSYS\ANSYS " + Trim(Str(num) / 10) + ".0"
程序就是到注册表里找个值这么简单一个事情阿。
注册表键如上，中间那个num是版本号。
赞一下(1人) 回复此楼
3楼2010-12-17 09:21:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lixiumei2006

银虫 (小有名气)
是的，但是自己对VB调用注册表的基本内容不是很了解，大神，能否给点详细资料啊。
赞一下 回复此楼
4楼2010-12-17 10:51:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sjh717142

新虫 (初入文坛)
lixiumei2006(金币+1):谢谢啊 2010-12-17 17:38:16
去看MSDN
看看那几个API函数你就明白了
赞一下 回复此楼
5楼2010-12-17 15:26:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lixiumei2006

银虫 (小有名气)

有MSDN完整版吗》？

引用回帖:
Originally posted by sjh717142 at 2010-12-17 15:26:09:
去看MSDN
看看那几个API函数你就明白了

呵呵 前辈你有MSDN完整版吗？
赞一下 回复此楼
6楼2010-12-17 18:52:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

sjh717142

新虫 (初入文坛)
★
lixiumei2006(金币+4): 2010-12-21 09:46:15
余泽成(金币+1):谢谢参与应助！ 2010-12-21 11:01:21
引用回帖:
Originally posted by lixiumei2006 at 2010-12-17 18:52:07:

呵呵 前辈你有MSDN完整版吗？

给你个在线的
http://www.vbgood.com/api.html
赞一下(1人) 回复此楼
7楼2010-12-20 14:53:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lixiumei2006

银虫 (小有名气)
引用回帖:
Originally posted by sjh717142 at 2010-12-20 14:53:17:


给你个在线的
http://www.vbgood.com/api.html

谢谢前辈哈，这个很不错，能给个文件就最好不过了
赞一下 回复此楼
8楼2010-12-21 09:47:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lixiumei2006 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0856化工专硕求调剂 +15 董boxing 2026-03-01 15/750 2026-03-02 15:06 by 晃晃不许晃
[考研] 290分材料工程085601求调剂 数二英一 +3 llx0610 2026-03-02 3/150 2026-03-02 14:15 by yc258
[考研] 0856调剂 +7 刘梦微 2026-02-28 7/350 2026-03-02 14:11 by liyongv
[考研] 292求调剂 +7 yhk_819 2026-02-28 7/350 2026-03-02 12:43 by 无际的草原
[考研] 085600 英一数二272求调剂 5+4 vida_a 2026-03-01 10/500 2026-03-02 12:33 by vida_a
[考研] 求调剂 +3 熬夜的猫头鹰 2026-03-02 3/150 2026-03-02 11:45 by 刘兵
[考研] 281求调剂 +5 2026计算机_诚心 2026-03-01 8/400 2026-03-02 11:05 by 汪！？！
[考研] 284求调剂 +10 天下熯 2026-02-28 11/550 2026-03-02 11:03 by 无际的草原
[考研] 材料调剂 +6 爱擦汗的可乐冰 2026-02-28 7/350 2026-03-02 10:42 by Jy?
[考研] 欢迎采矿、地质、岩土、计算机、人工智能等专业的同学报考 +5 pin8023 2026-02-28 7/350 2026-03-02 10:33 by ZY，先生
[考研] 0854复试调剂 276 +4 wmm9 2026-03-01 6/300 2026-03-02 09:28 by 热情沙漠
[考研] 材料工程269求调剂 +3 白刺玫 2026-03-02 3/150 2026-03-02 09:25 by 一休哥FU
[考研] 材料类求调剂 +11 wana_kiko 2026-02-28 14/700 2026-03-02 08:46 by 聪明的大松鼠
[基金申请] 本子写完了，给DS兄弟看了，得了92分 +3 Doma 2026-03-01 7/350 2026-03-02 00:00 by jnzsy
[考研] 材料化工调剂 +12 今夏不夏 2026-03-01 13/650 2026-03-01 23:32 by L135790
[硕博家园] 博士自荐 +7 科研狗111 2026-02-26 11/550 2026-03-01 22:24 by 哲平L
[基金申请] 刚录用，没有期刊号，但是在线可看的论文可以放为代表作吗 10+3 arang1 2026-03-01 3/150 2026-03-01 16:43 by babero
[考研] 295复试调剂 +3 简木ChuFront 2026-03-01 3/150 2026-03-01 14:27 by zzxw520th
[考博] 博士自荐 +4 kkluvs 2026-02-28 4/200 2026-03-01 10:19 by 馥安馥安
[硕博家园] 【博士招生】太原理工大学2026化工博士 +4 N1ce_try 2026-02-24 8/400 2026-02-26 08:40 by N1ce_try
信息提示
关闭
请填处理意见
关闭