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

VBʹÓú¯ÊýÖ¸Õë~¸ßÊÖÀ´ ºÜÖµµÃÑо¿

ÍøÉÏ Ä³Ä³´óʦµÄvbº¯ÊýÖ¸Õë¿´²»¶®
²»¶®»ã±à ~~~ µÈµÈ~ ºÜ¶à²»¶®
vbÏëʹÓú¯ÊýÖ¸ÕëÄѰ¡
Ŀǰ¸ã³ö¸ö¶«Î÷£¬µ±È»Ò²¾Í´íµÄÒ»ËúºýÍ¿ÁË£¬²»¹ýÓеãЧ¹û
ÏÖÔÚ¾ÍÏëÇó¸ßÊÖ¸øµã°ïÖú
ÔÚ±ê׼ģ¿éÀï¸ãÒ»¸ö¿Õº¯Êý  Ò»¸öfun2
public function Fun1£¨byval v as long £© as long

end function

public function Fun2£¨byval v as long £© as long
    Debug.Print "fun2->" & v
end function
 
'form1
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

dim orifp as long
dim fp as long
dim callfp as long
Private Sub Form_Load()
    CopyMemory orifp, GetFunAddr(AddressOf Fun1) + 22, 4
    CopyMemory Fp, ByVal orifp, 4
    CopyMemory orifp, ByVal Fp + 1, 4

    CopyMemory callfp, GetFunAddr(AddressOf Fun2) + 22, 4
    CopyMemory callfp, ByVal callfp, 4
    CopyMemory callfp, ByVal callfp + 1, 4
    CopyMemory ByVal Fp + 1, callfp, 4
    Fun2 12345&
end sub

Private Function GetFunAddr(ByVal addr As Long) As Long
        GetFunAddr = addr
End Function

'½á¹û fun2-> 12345

¡¯ÒÔÉÏ´úÂ빩´ó¼Ò²âÊÔһϠµ÷ÓÃÒ»´Î¿ÉÒÔ  ¶à´


Ïà¹ØÎÊ´ð£º

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

vb ÖÐ - VB / »ù´¡Àà

ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ