版塊導(dǎo)航: 正在加載中...

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號(hào)能夠正常使用，請(qǐng)盡快對(duì)帳號(hào)進(jìn)行手機(jī)號(hào)驗(yàn)證，感謝您的理解與支持！

24小時(shí)熱門版塊排行榜

返回列表

lixiumei2006

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 555.8
帖子: 54
在線: 56.5小時(shí)
蟲號(hào): 1158225

[交流] 【求助】Vb尋址的一段程序，看不懂啊！高手解決下！

在Vb查找ANSYS時(shí)的一段程序，看不懂，高手能不能給解釋下！

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千萬(wàn)別忘了
         s = String(lenData, Chr(0))
         RegQueryValueEx hKey, Name, 0, typeData, ByVal s, lenData '注意ByVal千萬(wàn)別忘了
         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

回復(fù)此樓

» 猜你喜歡

284求調(diào)劑已經(jīng)有10人回復(fù)
一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑已經(jīng)有4人回復(fù)
07化學(xué)280分求調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有12人回復(fù)
求材料，環(huán)境專業(yè)調(diào)劑已經(jīng)有3人回復(fù)
335求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
一志愿吉大化學(xué)322求調(diào)劑已經(jīng)有4人回復(fù)
環(huán)境學(xué)碩288求調(diào)劑已經(jīng)有8人回復(fù)
341求調(diào)劑(一志愿湖南大學(xué)070300) 已經(jīng)有6人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-12-16 20:18:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

gcssg1

金蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 773.6
帖子: 154
在線: 29.8小時(shí)
蟲號(hào): 1117373

我剛學(xué)VB，無(wú)能為力�。。�！

贊一下

回復(fù)此樓

2樓2010-12-16 22:13:00

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強(qiáng)帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
帖子: 699
在線: 102.6小時(shí)
蟲號(hào): 913482

★ ★
余澤成(金幣+2):謝謝參與應(yīng)助！ 2010-12-20 20:20:46

HKEY_LOCAL_MACHINE\Software\ANSYS, Inc.\ANSYS\ANSYS " + Trim(Str(num) / 10) + ".0"
程序就是到注冊(cè)表里找個(gè)值這么簡(jiǎn)單一個(gè)事情阿。
注冊(cè)表鍵如上，中間那個(gè)num是版本號(hào)。

贊一下(1人)

回復(fù)此樓

3樓2010-12-17 09:21:53

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lixiumei2006

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 555.8
帖子: 54
在線: 56.5小時(shí)
蟲號(hào): 1158225

是的，但是自己對(duì)VB調(diào)用注冊(cè)表的基本內(nèi)容不是很了解，大神，能否給點(diǎn)詳細(xì)資料啊。

贊一下

回復(fù)此樓

4樓2010-12-17 10:51:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

sjh717142

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 109.4
帖子: 45
在線: 12.8小時(shí)
蟲號(hào): 1122710

lixiumei2006(金幣+1):謝謝啊 2010-12-17 17:38:16

去看MSDN
看看那幾個(gè)API函數(shù)你就明白了

贊一下

回復(fù)此樓

5樓2010-12-17 15:26:09

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lixiumei2006

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 555.8
帖子: 54
在線: 56.5小時(shí)
蟲號(hào): 1158225

有MSDN完整版嗎》？

引用回帖:

Originally posted by sjh717142 at 2010-12-17 15:26:09:
去看MSDN
看看那幾個(gè)API函數(shù)你就明白了

呵呵前輩你有MSDN完整版嗎？

贊一下

回復(fù)此樓

6樓2010-12-17 18:52:07

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

sjh717142

新蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 109.4
帖子: 45
在線: 12.8小時(shí)
蟲號(hào): 1122710

★
lixiumei2006(金幣+4): 2010-12-21 09:46:15
余澤成(金幣+1):謝謝參與應(yīng)助！ 2010-12-21 11:01:21

引用回帖:

Originally posted by lixiumei2006 at 2010-12-17 18:52:07:

呵呵前輩你有MSDN完整版嗎？

給你個(gè)在線的
http://www.vbgood.com/api.html

贊一下(1人)

回復(fù)此樓

7樓2010-12-20 14:53:17

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

lixiumei2006

銀蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 555.8
帖子: 54
在線: 56.5小時(shí)
蟲號(hào): 1158225

引用回帖:

Originally posted by sjh717142 at 2010-12-20 14:53:17:

給你個(gè)在線的
http://www.vbgood.com/api.html

謝謝前輩哈，這個(gè)很不錯(cuò)，能給個(gè)文件就最好不過(guò)了

贊一下

回復(fù)此樓

8樓2010-12-21 09:47:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 lixiumei2006 的主題更新

返回列表

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 一志愿吉大化學(xué)322求調(diào)劑 +3	17501029541 2026-03-23	4/200	2026-03-23 23:47 by Txy@872106
[考研] 材料調(diào)劑 +3	匹克i 2026-03-23	3/150	2026-03-23 23:18 by peike
[考研] 一志愿國(guó)科過(guò)程所081700，274求調(diào)劑 +3	三水研0水立方 2026-03-23	3/150	2026-03-23 23:11 by MajorWen
[考研] 一志愿211 初試270分求調(diào)劑 +4	谷雨上岸 2026-03-23	5/250	2026-03-23 21:18 by 不惑可樂
[考研] 一志愿東華大學(xué)化學(xué)070300，求調(diào)劑 +7	2117205181 2026-03-21	8/400	2026-03-22 22:55 by chixmc
[考研] 324求調(diào)劑 +6	lucky呀呀呀鴨 2026-03-20	6/300	2026-03-22 16:01 by ColorlessPI
[考研] 319求調(diào)劑 +4	小力氣珂珂 2026-03-20	4/200	2026-03-22 15:53 by ColorlessPI
[考研] 318求調(diào)劑 +4	plum李子 2026-03-21	7/350	2026-03-22 14:17 by ColorlessPI
[考研] 求調(diào)劑 +5	Zhangbod 2026-03-21	7/350	2026-03-22 13:13 by Zhangbod
[考研] 求調(diào)劑 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 學(xué)員8dgXkO
[考研] 311求調(diào)劑 +3	勇敢的小吳 2026-03-20	3/150	2026-03-21 17:40 by ColorlessPI
[考研] 302求調(diào)劑 +12	呼呼呼。。。。 2026-03-17	12/600	2026-03-21 17:29 by ColorlessPI
[考研] 332求調(diào)劑 +3	鳳凰院丁真 2026-03-20	3/150	2026-03-21 10:27 by luoyongfeng
[考研] 材料學(xué)學(xué)碩080502 337求調(diào)劑-一志愿華中科技大學(xué) +4	順順順mr 2026-03-18	5/250	2026-03-21 10:22 by luoyongfeng
[考研] 083200學(xué)碩321分一志愿暨南大學(xué)求調(diào)劑 +3	innocenceF 2026-03-17	3/150	2026-03-21 02:35 by JourneyLucky
[考研] 化學(xué)求調(diào)劑 +4	臨澤境llllll 2026-03-17	5/250	2026-03-21 02:23 by JourneyLucky
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5	Charlieyq 2026-03-19	5/250	2026-03-20 20:35 by JourneyLucky
[考研] 廣西大學(xué)家禽遺傳育種課題組2026年碩士招生（接收計(jì)算機(jī)專業(yè)調(diào)劑） +3	123阿標(biāo) 2026-03-17	3/150	2026-03-20 15:58 by 飛行琦
[考博] 申博26年 +3	八6八68 2026-03-19	3/150	2026-03-19 19:43 by nxgogo
[考研] 0703化學(xué)調(diào)劑 +4	18889395102 2026-03-18	4/200	2026-03-19 16:13 by 30660438

24小時(shí)熱門版塊排行榜

[交流] 【求助】Vb尋址的一段程序，看不懂啊！高手解決下！

» 猜你喜歡

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

有MSDN完整版嗎》？

[交流] 【求助】Vb尋址的一段程序，看不懂啊！高手解決下！

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

有MSDN完整版嗎》？