±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 959  |  »Ø¸´: 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µÄ»ØÌû

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µÄ»ØÌû
²é¿´È«²¿ 8 ¸ö»Ø´ð

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µÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©Àí¹¤´óѧ±¾¿Æ211²ÄÁϹ¤³Ì294Çóµ÷¼Á +6 mikasaµÄΧ½í 2026-03-28 6/300 2026-03-29 01:32 by fmesaito
[¿¼ÑÐ] µ÷¼ÁÇóԺУÕÐÊÕ +5 º×¾¨¸ë 2026-03-28 5/250 2026-03-29 01:10 by ÎÒÊÇС¿µ
[¿¼ÑÐ] 085600 ²ÄÁÏÓ뻯¹¤ 329·ÖÇóµ÷¼Á +10 Mr. Z 2026-03-25 10/500 2026-03-29 00:34 by ÎÒÊÇС¿µ
[¿¼ÑÐ] 22408 359·Öµ÷¼Á +4 Qshers 2026-03-27 5/250 2026-03-28 21:26 by zhq0425
[¿¼ÑÐ] 083000ѧ˶274Çóµ÷¼Á +8 LiÀîÓã 2026-03-26 8/400 2026-03-28 20:33 by ¼ÓÓÍÏòδÀ´°¡
[¿¼ÑÐ] 394Çóµ÷¼Á +3 ºÃʶàÄ¥¾²ºò¼ÑÒ 2026-03-26 5/250 2026-03-28 14:24 by ÌÆãå¶ù
[¿¼ÑÐ] 329Çóµ÷¼Á +6 ÐÇÒ°? 2026-03-26 6/300 2026-03-28 14:14 by ÌÆãå¶ù
[¿¼ÑÐ] ¡¾Çóµ÷¼Á¡¿085601²ÄÁϹ¤³Ìר˶ | ×Ü·Ö272 | +6 ½Å»¬µÄÊØ·¨¹«Ãñ 2026-03-27 6/300 2026-03-28 11:02 by gjlllb
[¿¼ÑÐ] 331»·¾³¿ÆÑ§Ó빤³ÌÇóµ÷¼Á +3 ìÚÈ»ºÃÔËÆø 2026-03-27 3/150 2026-03-28 04:11 by fmesaito
[¿¼ÑÐ] 279 ·Ö Çóµ÷¼Á +4 ˯¸öºÃ¾õ_16 2026-03-24 4/200 2026-03-27 15:05 by ×íÔÚ·çÀï
[¿¼ÑÐ] Ò»Ö¾Ô¸¼ª´ó071010£¬316·ÖÇóµ÷¼Á +3 xgbiknn 2026-03-27 3/150 2026-03-27 10:36 by guoweigw
[¿¼ÑÐ] 341Çóµ÷¼Á +7 ÇàÄûÃÊ1 2026-03-26 7/350 2026-03-27 00:19 by wxiongid
[¿¼ÑÐ] 349Çóµ÷¼Á +4 Àîľ×Ó°¡¹þ¹þ 2026-03-25 4/200 2026-03-26 22:49 by fmesaito
[¿¼ÑÐ] »¯Ñ§¹¤³Ì085602 305·ÖÇóµ÷¼Á +17 RichLi_ 2026-03-25 17/850 2026-03-26 19:44 by plmuchong
[¿¼ÑÐ] ²ÄÁÏ¿¼ÑÐÇóµ÷¼Á +3 Dendel 2026-03-23 6/300 2026-03-26 17:51 by fmesaito
[¿¼ÑÐ] ²ÄÁÏ¿ÆÑ§Ó빤³Ì 317Çóµ÷¼Á +4 JKSOIID 2026-03-26 4/200 2026-03-26 15:58 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 297Çóµ÷¼Á +6 ÌïºéÓÐ 2026-03-26 6/300 2026-03-26 15:55 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 293Çóµ÷¼Á +7 ¼ÓÒ»Ò»¾Å 2026-03-24 7/350 2026-03-25 12:02 by userper
[¿¼ÑÐ] 277·ÖÇóµ÷¼Á£¬¿çµ÷²ÄÁÏ +3 ¿¼Ñе÷¼Álxh 2026-03-24 3/150 2026-03-24 13:52 by JourneyLucky
[ÂÛÎÄͶ¸å] ¼±·¢ºËÐÄÆÚ¿¯ÂÛÎÄ +3 ÏÍ´ïÎʽò 2026-03-23 5/250 2026-03-23 17:13 by ÃÃ×Ó²»ºÃÈÇ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û