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
¡¯ÒÔÉÏ´úÂ빩´ó¼Ò²âÊÔһϠµ÷ÓÃÒ»´Î¿ÉÒÔ ¶à´
Ïà¹ØÎÊ´ð£º
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
µã»÷°´Å¥ºóµ¯³ö½ø¶ÈÌõ´°¿Ú£¬ÒªÔÚ30%µÄʱºòÍ£¶Ù1Ãë 40%Í£¶Ù2Ã룬Ȼºó×ßÍê½ø¶ÈÌõºóÌáʾ±£´æ³É¹¦£¡
ÇëÎÊÈçºÎд£¿
½ø¶ÈÌõÓÃÄǸöVB6×Ô´øµÄprogressbar¿Ø¼þ,¶¨Ê±ÓÃtimer
ÎÒÔÚ±¾Õ¾ÕÒÁËÕ⼸¸öÌû,¹À¼Æ¹»ÄãÓÃ
http://topic ......