24小时热门版块排行榜    

查看: 845  |  回复: 7

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
回复此楼

» 猜你喜欢

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

查看全部散金贴

已阅   回复此楼   关注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是版本号。
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
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 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见