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

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌرðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâƪÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆѧÓ빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡¢½âÃܵļ¼Êõϸ½Ú¡£ÎÄÖÐÉîÈëµØ̽ÌÖÁËVB6Öкº×Ö¼Ó¡¢½âÃܵÄÔ­Àí¡¢É¢Áк¯ÊýµÄ¹¹Ôì·½°¸£¬ÔÚ¼Ó¡¢½âÃÜ·½²úÉúÉ¢Áк¯ÊýµÄÖÖ×ÓÖµ£¨³õʼֵ£©ºÍÓÃÓÚ¼Ó¡¢½âÃܵÄËæ»úÐòÁÐÊýµÄ·½·¨¡£×îºó¸Ã¼¼ÊõʵÏÖÁËÒ»¸ö¼òµ¥µÄ128λµÄ¼Ó¡¢½âÃÜ·½°¸¡£ÎÄÖÐÉæ¼°µ½Á˼ÓÃܼ¼ÊõµÄһЩÖ÷Òª¹Ø¼ü¸ÅÄî¼°Æä¾ßÌåʵÏÖ¼¼Êõ£¬ÈçÉ¢Áк¯Êý¡¢¼ÓÃÜÇ¿¶ÈµÈ¡£¡¡
Ð÷ ÂÛ
¡¡¡¡¼ÓÃÜ£¨Encryption£©ÊÇÐÅÏ¢±£»¤µÄÒ»Öֱز»¿ÉÉÙµÄÊֶΡ£Ä¿Ç°ÓÐÁ½ÖÖ»ù±¾µÄ¼ÓÃÜ·½·¨£¬¼´Ë½Ô¿¼ÓÃܺ͹«Ô¿¼ÓÃÜ¡£ÓÃVB¼È¿ÉÓÃ×Ô¶¨ÒåË㷨ʵÏÖ¼ò±ãµÄ˽Կ¼ÓÃÜ£¬Ò²¿Éͨ¹ýµ÷ÓÃCrypto API½Ó¿ÚʵÏÖ¸´ÔӵĹ«Ô¿¼ÓÃÜ¡£
¡¡¡¡±¾ÎĽéÉÜÒ»ÖÖ˽Կ¼ÓÃܼ¼Êõ£¬²»½öÄܼÓÃÜÓ¢ÎÄÎı¾£¬¶øÇÒÄÜÓÐЧ¼ÓÃܺº×Ö¡£
¡¡¡¡ÃÜÎÄÎı¾=HASH(DateTime)£«HASH(DateTime£«Key)£« Encryption(Text,HASH(DateTime)£«HASH(DateTime£«Key)
¡¡¡¡ VB¾ßÌåʵÏÖ¼¼Êõ
¡¡¡¡1£® »ù±¾¼Ó½âÃܺ¯Êý£¨XOR£©
¡¡¡¡ÔÚVBÖÐÌṩÁËÒ»¸öXORº¯Êý£¬Ëü¼È¿É¶Ô×Ö·ûÒ²¿É¶ÔÊý×Ö¡¢²¼¶û±äÁ¿½øÐÐÒì»ò£¬Á½´ÎÒì»òµÄ½á¹û¼´ÎªÔ­Öµ¡£Òò´Ë£¬ËüÊÇ»ù±¾¼Ó½âÃܺ¯Êý¡£
¡¡¡¡ÀýÈ磺Ascw£¨“Ï¢”£©XOR 28ֵΪ24943£¬24943 XOR 28ֵΪ24687£¬Chrw(24687) ֵΪ“Ï¢”¡£
¡¡¡¡2.ºº×ֵļÓÃÜÓë½âÃÜ·½·¨
¡¡¡¡ÔÚVBÖУ¬×Ö·ûµÄ´¦ÀíÏ൱¸´ÔÓ£¬ÌرðÊǺº×ÖºÍÓ¢ÎÄ×Ö·û»ìºÏ´¦Àí£¬Æä½á¹û¸üÊÇÎÞ·¨Ô¤ÁÏ¡£ÔÚVBÄÚ²¿£¬×Ö·ûÈ«²¿×÷ΪUnicode´¦Àí£¬²¢ÇÒVBÖ§³ÖÈýÖÖÀàÐ͵Ä×Ö·û¼¯£¬²¢ÌṩÁËÏàÓ¦µÄ×Ö·û´¦Àíº¯Êý¡£
¡¡¡¡VBÖ§³ÖµÄÈýÖÖÀàÐÍ×Ö·û¼¯ÊÇ£º
¡¡¡¡¢Å ANSI£ºÒ»¸ö×Ö½Ú±íʾһ¸ö×Ö·û£¬ºº×Ö±»×÷ΪÁ½¸ö ANSI×Ö·û£»
¡¡¡¡¢Æ DBCS£ºË«×Ö½Ú×Ö·û¼¯£¬0¡«128±íʾASCII×Ö·û£¬ ASCII×Ö·û³¤¶ÈΪ1¸ö×Ö½Ú£¬ºº×ֵȶ«ÑÇ×Ö·ûµÄ³¤¶ÈΪ2¸ö×Ö½Ú£¬ºº×Ö±»×÷Ϊһ¸öDBCS×Ö·û£»
¡¡¡¡¢Ç Unicode£ºÓÃÁ½¸ö×Ö½Ú±íʾÿ¸ö×Ö·û¡£ISO¼¸ºõΪÿÖÖÓïÑÔµÄÿ¸ö×Ö·ûºÍ·ûºÅÔÚ0¡«65£¬535£¨216£­1£©·¶Î§¶¨ÒåÁËÒ»¸öÊý×Ö£¬ºº×Ö±»×÷Ϊһ¸öUnicode×Ö·û¡£
¡¡¡¡ÔÚVB6ÖУ¬×Ö·û´®µÄ´¦Àíº¯ÊýÓÐANSI/DBCS°æ±¾¡¢¶þ½øÖÆ°æ±¾ºÍUnicode°æ±¾¡£Òò´Ë£¬¶ÔÓÚºº×ֵĴ¦ÀíÏ൱¸´ÔÓ¡£
¡¡¡¡ÀýÈ磺Asc£¨·µ»ØµÚÒ»¸ö×Ö·ûµÄANSI/DBCS×Ö·û´úÂ룩£»
¡¡¡¡AscB£¨·µ»


Ïà¹ØÎĵµ£º

C´úÂëÓïÑÔתVB´úÂëµÄÎÊÌ⣺

Ë­ÄÜ°ïÎÒ°ÑÕâ¶Î´úÂëת³ÉVbµÄ´úÂ룬²»Ê¤¸Ð¼¤£¬Ð»Ð»£¡
void CTempDlg::OnOK()
{
  UpdateData(1);
  int nlen=m_edit1.GetLength();
  char *username=m_edit1.GetBuffer(nlen);//¶¨ÒåÒ»¸öÐÂ×Ö·û´®username,³¤¶ÈΪnlen£¬²¢½«m_edit1ÖеÄ×Ö·û´®Ò»¸ö¸ö·ÅÈëµ½usernameÊý×éÖÐ
  char strA[]="90123456 ......

VBÖеÄUnicode ºÍ Ansi ¸ñʽ ת»»


 VBÖеÄUnicode ºÍ Ansi ¸ñʽ
    Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÿ¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
 Len("´ó¼ÒºÃ")
 Len("abc")
& ......

[VB]ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï

 ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï
  ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï¡£²»¹ýÒª¿Ø¼þÓÐHWNDÊôÐÔ¡£ÀýÈ磺
    New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
    °Ñtxt¿Ø¼þÌí¼Óµ½picture¿Ø¼þÀïʹÓá£
    ×¢£ºÊ¹Óà ......

VB .Net ÀûÓÃFTP.exeÉÏ´«ÎļþÖÁFTP·þÎñÆ÷

Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......

VB ÖÐÑÕÉ«»¥Ïàת»»µÄÁ½¸öСº¯Êý(REGºÍ VBÑÕ)

VBÑÕÉ«ºÍRGBÉ«»¥Ïàת»»Í·ÌÛÁËÎÒºÃÒ»¶Îʱ¼ä,Èç½ñÕÒµ½½â¾ö°ì·¨ÁË
ÌرðÌù³öÀ´Óë´ó¼Ò¹²Ïí 
Type RGB
    Red As String
    Green As String
    Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
    Dim clrHex ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ