[VB]»ñÈ¡SYSKEY
ºÜ¾ÃÒÔÇ°µÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£
'**************************************************
'Èí¼þÃû£º»ñȡϵͳ SYSKEY
'·ÒëÖÆ×÷£ºTZWSOHO
'»¶Óµ½ÎÒµÄ BLOG£ºHTTP://BLOG.CSDN.NET/TZWSOHO
'
'±¾Èí¼þ²ÎÕÕ¡¶SAMµÄÉ¢Áд洢¼ÓÃܽâÃÜËã·¨ÒÔ¼°SYSKEYµÄ¼ÆËã¡·ÖÆ×÷¶ø³É
'
'£¨ÏÖ½ÚÑ¡ÎÄÖеÄÒ»¶Î»°...£©
'
'……ÄÇôSYSKEYÊÇÈçºÎ¼ÆËã³öÀ´µÄÄØ£¿Õâ¿ÉÄÜÊÇÎÒ·¢ÏÖMS×îţƤµÄ
'Ò»¸öµØ·½ÁË£¬ÏÈ¿ªÊ¼ÏëÒ»¶¨»á´æ·ÅÔÚ×¢²á±íij´¦£¬ºÇºÇ£¬
'×îºó¸ú×ÙMSÒýµ¼Ê±ºòµÄWINLOGON½ø³Ì²ÅÖªµÀ£¬
'SYSKEYÊÇÕâÑù¼ÆËã³öÀ´µÄ£¬ºÜ¶àÈË»á´óµôÑÛ¾µ°É£º
'SYSKEYµÄ¼ÆËãÊÇ£ºSYSTEM\\CurrentControlSet\\Control\\LsaϵÄ
'JD£¬Skew1£¬GBG£¬DataËĸö¼üÖµµÄCLASSֵͨ¹ý»»Î»µÃÀ´µÄ……
'
'£¨È»ºóÎÄÕÂ×÷Õ߸ø³öÁ˲¿·ÖµÄ C Ô´´úÂ룬
'ÎÒ½«»ñÈ¡ SYSKEY ²¿·ÖµÄ´úÂëת³ÉÁË VB ´úÂë¸ø´ó¼ÒʹÓã©
'
'×¢Ò⣺±¾Èí¼þ´¿ÊôËã·¨½»Á÷£¬Çë²»ÒªÓÃÓÚ·Ç·¨ÓÃ;£¡
'
'**************************************************
Option Explicit
Private Const KEY_NOTIFY As Long = &H10
Private Const KEY_QUERY_VALUE As Long = &H1
Private Const SYNCHRONIZE As Long = &H100000
Private Const READ_CONTROL As Long = &H20000
Private Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Private Const STANDARD_RIGHTS_READ As Long = (READ_CONTROL)
Private Const KEY_READ As Long = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "Reg
Ïà¹ØÎĵµ£º
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
²»ÓÃFSOµÄ¸´ÖÆÎļþ¼ÐµÃ·½·¨£¿
ÓÃAPIº¯Êý SHFileOperation
ÒÔÏÂÊÇʹÓÃSHFileOperationɾ³ý¸´ÖÆÒƶ¯ÎļþµÄÀý×Ó£¬¿ÉÒÔ¸´ÖÆÎļþ¼Ð
Private Type SHFILEOPSTRUCT
¡¡¡¡hwnd As Long
¡¡¡¡wFunc As Long
¡¡¡¡pfrom As String
¡¡¡¡pTo As String
¡¡¡¡fFlags As ......
×î½üÓÉÓÚ¹¤×÷ÏîÄ¿ÔÒò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøɨÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......
'*********************************************************************
' ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ ......
VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚV ......
¿´Á˱ðÈËдµÄC#µÄ ×Ô¼º×ªÁËһϠȻºóºóÖØиÄÁË¸Ä Ð´³ÉÁËÕâ¸ö
ÁíÍ⻹ÓÐÒ»¸öÎÒдµÄÑéÖ¤ÈÕÆÚÊÇ·ñºÏ·¨µÄ´úÂë ÔÚºóÃæ ¶¼ÊÇvbµÄ c#Ö»»á¿´²»»áд
'ÅжÏÈòÄê=======================
Private Function CheckLeap(ByVal year As Integer) As Boolean
If (year Mod 4 = 0) AndAlso (year Mod 100 <> ......