Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB ʹÓÃCÓïÑÔEscapeµÄ·½·¨

ÔÚCÓïÑÔÖУ¬escapeµÄ·ûºÅºÜºÃÓã¬
±ÈÈç
 "ÖйúÒ»¶¨Ç¿"
Õâ¸ö×Ö´®¿ÉÒÔд³É£º
"\x4E2D\x56FD\x4E00\x5B9A\x5F3A"
ÓÃ×ÖÔª±àÂë±àд³ÌÐò£¬ÔÚÆäËû²»Í¬ÓïÑÔµÄwindowsÔË×÷ʱ£¬±È½Ï²»»áÓÐÎÊÌâ¡£
£¨ÎÒ¾¡Á¿²»ÏëÔÚ³ÌÐòÖÐдÈëÖÐÎÄ£©
µ«ÊÇvbÈç¹ûÈ«²¿ÒªÓÃ×ÖÔª±àÂëдµÄ»°£¬¾Í»áºÜÂé·³¶øÇÒÒ»¸öÒ»¸ö¶¼ÒªÊÖд³É£º
ChrW(&H4E2D) & ChrW(&H56FD) & ChrW(&H4E00) & ChrW(&H5B9A) & ChrW(&H5F3A)
ËùÒÔÎÒдÁËÒ»Ìõ¶Ì¶ÌµÄfunction:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Public Function EscToStr(ByVal c As String) As String
        Dim tmp, str1, str2, str3, str4 As String
        Dim i, outend1, outend2 As Integer
        i = 1
        outend1 = 1
        Do While outend1 <> 0
            str1 = c
            outend1 = InStr(i, str1, "\x")
            i = outend1 + 1
            outend2 = InStr(i, str1, "\x")
            If outend2 = 0 Then
                outend2 = Len(str1) + 1
            End If
            str2 = Mid(str1, outend1 + 2, outend2 - outend1 - 2)
            str3 = "&H" & str2
            str4 = ChrW(str3)
            tmp = tmp &


Ïà¹ØÎĵµ£º

Ò»¸öLinuxÏÂCÏ̳߳صÄʵÏÖ

ʲôʱºòÐèÒª´´½¨Ï̳߳ØÄØ£¿¼òµ¥µÄ˵£¬Èç¹ûÒ»¸öÓ¦ÓÃÐèҪƵ·±µÄ´´½¨ºÍÏú»ÙỊ̈߳¬¶øÈÎÎñÖ´ÐеÄʱ¼äÓַdz£¶Ì£¬ÕâÑùÏ̴߳´½¨ºÍÏú»ÙµÄ´øÀ´µÄ¿ªÏú¾Í²»ÈݺöÊÓ£¬ÕâʱҲÊÇÏ̳߳ظóö³¡µÄ»ú»áÁË¡£Èç¹ûÏ̴߳´½¨ºÍÏú»Ùʱ¼äÏà±ÈÈÎÎñÖ´ÐÐʱ¼ä¿ÉÒÔºöÂÔ²»¼Æ£¬ÔòûÓбØÒªÊ¹ÓÃÏ̳߳ØÁË¡£ÏÂÃæÊÇLinuxϵͳÏÂÓÃCÓïÑÔ´´½¨µÄÒ»¸öÏ̳߳ء£Ïß³Ì³Ø ......

pb調ÓÃVB寫µÄDLL·½·¨

1¡¢ÏȰÑVB±àÒëºÃµÄDLLÎļþ·Åµ½ÏµÍ³µÄSYSTEM32Îļþ¼ÐÏÂ
2¡¢ÓÃregsvr32×¢²áÕâ¸öDLLÎļþ
3¡¢Pbϵ÷ÓÃ
oleobject   ole_1
ole_1=create   oleobject
long   ll_ret
ll_ret=ole_1.connecttonewobject( 'add.addstring ')//ÆäÖÐaddΪVBµÄ¹¤³ÌÃû£¬addstringΪVBµÄÀàÄ£¿éÃû
string   ls_message, ......

CÑÕÉ«±ÈÕÕ±í


·½Ê½ ·ûºÅ³£Á¿ ÏÔʾÁÐ×ÐÐÊýºÍÑÕÉ«
0 BW40 40×25 ºÚ°×ÏÔʾ
1 C40 40×25 ²ÊÉ«ÏÔʾ
2 BW80 80×25 ºÚ°×ÏÔʾ
3 C80 80×25 ²ÊÉ«ÏÔʾ
7 MONO 80×25 µ¥É«ÏÔʾ
-1 LASTMODE ÉÏÒ»´ÎµÄÏÔʾ·½Ê½
Turbo C Ò²¿ÉÒÔÈÃÓû§¸ù¾Ý×Ô¼ºµÄÐèÒªÖØÐÂÉ趨ÏÔʾ´°¿Ú£¬Ò²¾ÍÊÇ˵£¬Í¨¹ýʹÓô°¿ÚÉè
Öú¯Êýwi ......

C´úÂëÓÅ»¯·½°¸

1¡¢Ñ¡ÔñºÏÊʵÄËã·¨ºÍÊý¾Ý½á¹¹
Ñ¡ÔñÒ»ÖÖºÏÊʵÄÊý¾Ý½á¹¹ºÜÖØÒª£¬Èç¹ûÔÚÒ»¶ÑËæ»ú´æ·ÅµÄÊýÖÐʹÓÃÁË´óÁ¿µÄ²åÈëºÍɾ³ýÖ¸ÁÄÇʹÓÃÁ´±íÒª¿ìµÃ¶à¡£Êý×éÓëÖ¸ÕëÓï¾ä¾ßÓÐÊ®·ÖÃÜÇеĹØÏµ£¬Ò»°ãÀ´Ëµ£¬Ö¸Õë±È½ÏÁé»î¼ò½à£¬¶øÊý×éÔò±È½ÏÖ±¹Û£¬ÈÝÒ×Àí½â¡£¶ÔÓڴ󲿷ֵıàÒëÆ÷£¬Ê¹ÓÃÖ¸Õë±ÈʹÓÃÊý×éÉú³ÉµÄ´úÂë¸ü¶Ì£¬Ö´ÐÐЧÂʸü¸ß¡£
ÔÚÐí¶àÖÖÇ ......

»æÖÆ»úеͼ£¨ÓÃC³ÌÐò£©


ÌâÄ¿£ºÔÚÆÁÄ»ÉÏ»­Ò»¸ö¾ØÐÎ
ÒªÇó£ºÃ¿°´Ò»´Î¼üÅÌ£¬¸Ã¾ØÐÎת¶¯45¶È¡£¾ØÐεĴóСºÍת¶¯µÄ·½ÏòÓмüÅÌÊäÈ룬²¢½«ÊäÈëµÄÊý¾ÝËÍÎļþ±£´æ£¬°´»Ø³µ¼ü³ÌÐò½áÊø¡££¨¹¦ÄÜÑÓÉ죺¸Ä±äÊý¾ÝÎļþµÄÄÚÈݺó£¬ÔÙ¸ù¾ÝÊý¾ÝÎļþÀïµÄÊý¾Ý»æÖƾØÐΣ©
 
 
  ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ