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

VB³õ¼¶ÄæÏòÓëÀûÓÃ

½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
    ÎªÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊÖͷûÓÐOP×ÊÁÏ£¬×Ô¼º·ÖÎöÒ»ÏÂÕâ¸öº¯ÊýµÄµ÷Óðɡ£
    ×Ô¼ºÓÃVBдÁËÒ»¸ö¶«¶«£¬µ¯³ö¶Ô»°¿ò“Made by nbw”£¬ÄæÏò¿´ÁË¿´£¬´óÌåÈçÏ£º
* Possible StringData Ref from Code Obj ->"Made by nbw"
                                  |
:00401A25 C745A4CC144000          mov [ebp-5C], 004014CC  £»Ö¸Ïò×Ö·û´®
:00401A2C C7459C08000000          mov [ebp-64], 00000008
* Reference To: MSVBVM60.__vbaVarDup, Ord:0000h
                                  |
:00401A33 FF1568104000            Call dword ptr [00401068]  £»Ò»¸öº¯Êý£¬·çÏþµÃ¸ÉôÓÃ
:00401A39 8D45AC                  lea eax, dword ptr [ebp-54]
:00401A3C 8D4DBC                  lea ecx, dword ptr [ebp-44]
:00401A3F 50                     &n


Ïà¹ØÎĵµ£º

VBµ÷ÕûExcel¸ñʽ

Private Sub Cmd_OK_Click()
    Dim ExcelAppX As Excel.Application
    Dim ExcelBookX As Excel.Workbook
    Dim ExcelSheetX As Excel.Worksheet
   
    Dim a(1 To 3) As Single
    Dim strFormat As Variant ......

ÀûÓÃVBÔ¶Ïß³Ì×¢Èë¼¼ÊõʵÏÖ¼üÅÌÀ¹½ØµÄÀý×Ó(ÎÞDLL)

´ÓÍøÉÏËѼ¯µ½µÄVB´úÂ룬ÓÃEXE·½Ê½ÊµÏÖÁËÔ¶³Ì×¢È룬²»¹ýÔÚ·´²¡¶¾Èí¼þµÄ±£»¤Ï£¬ÓпÉÄܵ¼ÖÂ×¢Èëʧ°Ü¡£×ªÌùÕâ¸ö´úÂ룬½ö¹©´ó¼ÒѧϰºÍ²Î¿¼¡£
Ò»¡¢´°¿Ú´úÂ룺
Option Explicit

Private Sub cmdLock_Click()
If LockKeyboard(True) Then
cmdLock.Enabled = False
cmdUnLock.Enabled = Tr ......

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à

ÖØÊ°VBÖ®Ò»£¬ÈÕÖ¾±à
 
PMP  ¹Ø¾¢ËÉ
 
    ¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB½øÐпª·¢¡£
    Ê×ÏÈÊÇΪ×Ô¶¯»¯²âÊÔÈí¼þÔö¼ÓÈÕÖ¾¹¦ÄÜ£¬½«Ã¿ÌìµÄÊý¾Ý¼Ç¼µ½Ò»¸ölogÎļþ¡£ÎÒΪÁË·½±ãʹÓÃÁËFSO¶ÔÏó£¬ ......

VBÖеÄcommand

ÔÚ¿ª·¢IP-MACɨÃè¼àÊÓÆ÷ʱ£¬ÉèÖÃÁË¿ª»ú×Ô¶¯ÔËÐУ¬µ«Êǵ±WINDOWSÆô¶¯ºó£¬³ÌÐòÔËÐкóÈ´´ò¿ª´°ÌåÁË£¬²»ÊÇ×îС»¯ÔËÐеġ£ÕâÔõô°ìÄØ£¿ÓÚÊÇÏëµ½¼ÓÒ»¸ö²ÎÊý¸ø³ÌÐòÆô¶¯Ê±£¬µ«²»ÖªµÀÔõôʵÏÖ£¬½á¹û·¢ÏÖVBÖÐÓÐcommand£¬ÊÇ¿ÉÒÔ½ÓÊܲÎÊýµÄ¡£Ö±½Ó£ºAAA.EXE xxx,
ÔÚ³ÌÐòÖÐÓÃÒ»¸ö±äÁ¿µÃµ½Õâ¸ö²ÎÊý£¬ÄǾͿÉÒÔÁË¡£×ö·¨£º
1¡¢ÔÚ×¢²á±í×ÔÆô¶ ......

VBÖÐɾ³ýÊý×éÖØ¸´ÔªËØ

Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ