VBÈçºÎʵÏÖÏóÆåµÄ¹þÏ£±í
sdadads
²¹³ä£º
ÏóÆå±íʾ·½·¨
REM ½«107¡¢Ê¿106¡¢Ïó105¡¢³µ104¡¢Âí103¡¢°ü102¡¢×ä101(ºÚ)
REM ˧207¡¢ÊË206¡¢Ïà205¡¢³µ204¡¢Âí203¡¢ÅÚ202¡¢±ø201(ºì)
¹þÏ£±í½á¹¹
Public type HistoryTable
Public ZZ As String ''ÆåÅÌÇé¿ö£º×Ö·ûÃèÊö·½Ê½
Public Value As Long ''µÃ·Ö
End type
rem 'ÆåÅÌ(ºá9ÁУ¬Êú10ÐÐ)
Dim ChessBoard(9, 10) As Integer
Dim Ht(HASH_SIZE) As HistoryTable ''Öû»±í×î¶à´æ2000ÌõÐÅÏ¢
Function NextByte() As Byte '' Éú³ÉÃÜÂëÁ÷µÄÏÂÒ»¸ö×Ö½Ú
Dim uc As Byte, x As Integer, y As Integer
x = (x + 1) And 255
y = (y + rc4_s(x)) And 255
uc = rc4_s(x)
rc4_s(x) = rc4_s(y)
rc4_s(y) = uc
NextByte = rc4_s(rc4_s(x) + rc4_s(y)) And 255
End Function
REM Éú³ÉÃÜÂëÁ÷µÄÏÂËĸö×Ö½Ú
Function Rc4() As Long
Dim uc0 As Byte, uc1 As Byte, uc2 As Byte, uc3 As Byte
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......