ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÈÃVB²ËÄñ×î¿ìд³ö×Ô¼ºµÄÍâ¹Ò.ͨɱËùÓÐÓÎÏ·.ºÇºÇ.
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃÇ°´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖظ´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇôÎÒÃÇÔõÑù²ÅÄÜÓÃVBÀ´Ð´Ò»¸ö³ÌÐò£¬´ïµ½Óë°´¼ü¾«ÁéÀàËƵŦÄÜÄØ£¿ÄǾÍÈÃÎÒÃÇÀ´ÏÈÁ˽âÒ»ÏÂwindowsÖÐÏìÓ¦¼üÅÌʼþµÄ»úÖÆ¡£
µ±Óû§°´Ï¼üÅÌÉϵÄÒ»¸ö¼üʱ£¬¼üÅÌÄÚµÄоƬ»á¼ì²âµ½Õâ¸ö¶¯×÷£¬²¢°ÑÕâ¸öÐźŴ«Ë͵½¼ÆËã»ú¡£ÈçºÎÇø±ðÊÇÄÄÒ»¸ö¼ü±»°´ÏÂÁËÄØ£¿¼üÅÌÉϵÄËùÓа´¼ü¶¼ÓÐÒ»¸ö±àÂ룬³Æ×÷¼üÅÌɨÃèÂë¡£µ±Äã°´ÏÂÒ»¸ö¼üʱ£¬Õâ¸ö¼üµÄɨÃèÂë¾Í±»´«¸øϵͳ¡£É¨ÃèÂëÊǸú¾ßÌåµÄÓ²¼þÏà¹ØµÄ£¬Í¬Ò»¸ö¼ü£¬ÔÚ²»Í¬¼üÅÌÉϵÄɨÃèÂëÓпÉÄܲ»Í¬¡£¼üÅÌ¿ØÖÆÆ÷¾ÍÊǽ«Õâ¸öɨÃèÂë´«¸ø¼ÆËã»ú£¬È»ºó½»¸ø¼üÅÌÇý¶¯³ÌÐò¡£¼üÅÌÇý¶¯³ÌÐò»áÍê³ÉÏà¹ØµÄ¹¤×÷£¬²¢°ÑÕâ¸öɨÃèÂëת»»Îª¼üÅÌÐéÄâÂ롣ʲôÊÇÐéÄâÂëÄØ£¿ÒòΪɨÃèÂëÓëÓ²¼þÏà¹Ø£¬²»¾ßÓÐͨÓÃÐÔ£¬ÎªÁËͳһ¼üÅÌÉÏËùÓмüµÄ±àÂ룬ÓÚÊǾÍÌá³öÁËÐéÄâÂë¸ÅÄî¡£ÎÞÂÛʲô¼üÅÌ£¬Í¬Ò»¸ö°´¼üµÄÐéÄâÂë×ÜÊÇÏàͬµÄ£¬ÕâÑù³ÌÐò¾Í¿ÉÒÔʶ±ðÁË¡£¼òµ¥µã˵£¬ÐéÄâÂë¾ÍÊÇÎÒÃǾ³£¿ÉÒÔ¿´µ½µÄÏñVK_A,VK_BÕâÑùµÄ³£Êý£¬±ÈÈç¼üAµÄÐéÄâÂëÊÇ65£¬Ð´³É16½øÖƾÍÊÇ&H41£¬×¢Ò⣬ÈËÃǾ³£ÓÃ16½øÖÆÀ´±íʾÐéÄâÂë¡£µ±¼üÅÌÇý¶¯³ÌÐò°ÑɨÃèÂëת»»ÎªÐéÄâÂëºó£¬»á°ÑÕâ¸ö¼üÅ̲Ù×÷µÄɨÃèÂëºÍÐéÄâÂ뻹ÓÐÆäËüÐÅÏ¢Ò»Æ𴫵ݸø²Ù×÷ϵͳ¡£È»ºó²Ù×÷ϵͳÔò»á°ÑÕâЩÐÅÏ¢·â×°ÔÚÒ»¸öÏûÏ¢ÖУ¬²¢°ÑÕâ¸ö¼üÅÌÏûÏ¢²åÈëµ½ÏûÏ¢Áжӡ£×îºó£¬ÒªÊDz»³öÒâÍâµÄ»°£¬Õâ¸ö¼üÅÌÏûÏ¢×îÖջᱻË͵½µ±Ç°µÄ»î¶¯´°¿ÚÄÇÀ»î¶¯´°¿ÚËùÔÚµÄÓ¦ÓóÌÐò½ÓÊÕµ½Õâ¸öÏûÏ¢ºó£¬¾ÍÖªµÀ¼üÅÌÉÏÄĸö¼ü±»°´Ï£¬Ò²¾Í¿ÉÒÔ¾ö¶¨¸Ã×÷³öʲôÏìÓ¦¸øÓû§ÁË¡£Õâ¸ö¹ý³Ì¿ÉÒÔ¼òµ¥µÄÈçϱíʾ£º
Óû§°´Ï°´¼ü-----¼üÅÌÇý¶¯³ÌÐò½«´Ëʼþ´«µÝ¸ø²Ù×÷ϵͳ-----²Ù×÷ϵͳ½«¼üÅÌʼþ²åÈëÏûÏ¢¶ÓÁÐ-----¼üÅÌÏûÏ¢±»·¢Ë͵½µ±Ç°»î¶¯´°¿Ú
Ã÷°×ÁËÕâ¸ö¹ý³Ì£¬ÎÒÃǾͿÉÒÔ±à³ÌʵÏÖÔÚÆäÖеÄij¸ö»·½ÚÀ´Ä£Äâ¼üÅ̲Ù×÷ÁË¡£ÔÚVBÖУ¬ÓжàÖÖ·½·¨¿ÉÒÔʵÏÖ¼üÅÌÄ£Ä⣬ÎÒÃǾͽéÉܼ¸ÖֱȽϵäÐ͵ġ£
1.¾Ö²¿¼¶Ä£Äâ
´ÓÉ
Ïà¹ØÎĵµ£º
YXOnlineÒѾ½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......
¡¡¡¡ÐÅÏ¢¼à¿ØÓëÒþ˽±£»¤ÓÀÔ¶ÊÇÒ»¶Ôì¶Ü¡£
ÔÚ¶Ô¸¶¸÷ÖÖÐÅÏ¢ÇÔÈ¡Èí¼þÉÏ¡£
м¼Êõ×ÜÊDzã³ö²»Çî¡£±¾ÎĽéÉÜÒ»ÖÖ¹ÅÀϵļüÅ̼ǼÆ÷¼¼Êõ£¬È·ÊµºÜ¹ÅÀÏ¡£
DOSʱ´úÈËÃǾÍÔÚÓÃÁË¡£
µ«ÊÇÏÖÔÚËüÈÔÈ»ºÜÓÐЧ£¬ÔÚ¼üÅ̹ýÂËÇ ......
Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
If Not Directory.Exists(strPath) Then
Directory ......
Private Function Utf8ToUni(B() As Byte) As String
'²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
Dim BU As Long
On Error Resume Next
BU = -1: BU = UBound(B)
If BU = -1 Then Exit Function
On Error GoTo 0
&n ......
±¾ÎÄÒý×Ô¡£¸ÐлԴ´£¡http://useway.blog.51cto.com/736087/176913
VBÎÞËù²»ÄÜÖ®Èý£ºVB½Ø»ñWindowsÏûÏ¢µÄ¹³×Ó
——×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://useway.blog.51cto.com
VBÒ»Ö±±»ÈÏΪÊÇÒ»¸ö¿ÉÒÔͨ¹ý¼òµ¥µÄ·½·¨£¬Íê³ÉWindows½çÃæÓ¦ÓóÌÐòµÄÒ»¸öÓïÑÔ¡£¶ÔWindowsϵͳ·½ÃæµÄ±à³ÌËƺõÊ× ......