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

ÇëÎÊ[Ò»Ö§Î÷Î÷],vbÈçºÎµ÷ÓÃdll(delphi)

ʹÓÃDll Export Viewer¿´µ½dllÓÐ2¸öµ¼³öº¯Êý
º¯ÊýÃû            µØÖ·              Ïà¶ÔÆ«ÒÆµØÖ·      ÐòºÅ    ÎļþÃû
Dll_EncIn  0x00403780 0x00003780 2 (0x2) EncryptionA.dll
Dll_EncOut 0x00403aa4 0x00003aa4 1 (0x1) EncryptionA.dll


·´»ã±àÔ´³ÌÐò,µ÷ÓÃÁ˵Ädll»ã±à´úÂë


Ó¦¸ÃÖ»´«ÁËÒ»¸ö²ÎÊý½øÈ¥

¿ÉÒÔ¾ÍÊDz»ÖªµÀÔõôд²ÎÊý

Ô½À´Ô½·¢ÏÖÊܲ»ÁËvbÁË.....°¥....

¾ÍÊÇÒ»¸ö¼ÓÃܽâÃܺ¯Êý.....°¡.°¡°¡°¡°¡ °¡°¡°¡°¡ °¡
¾ÈÃü°¡  °¡°¡ °¡°¡°¡°¡ °¡°¡


£¬°³¿´ÆðÀ´ÓÐÕâôţÁËô£¿ÕâÖÖÎÊÌâÓ¦¸ÃÎʳ»ÔÀÏÂíÀÏ»¢¶¹×Ó°¡


Î÷Î÷,ÄãÌ«»µÁË......²»¿ÉÒÔÕâÑùµÄ
²ÎÊýÔõôŪ

ÓÃÁËvarptr,strptr

ÎÒÉùÃ÷µÄÊÇ

Private Declare Function Dll_EncIn Lib "EncryptionA.dll" (ByVal Str As Long) As String

·µ»ØµÄÊÇÒ»¸ö×Ö·û´®,ÔõôÔÚvbÀïÃæ½ÓÊÕ,º¯ÊýÔõôÉùÃ÷?,²îÊý´«½øÈ¥µÄʱºòÓÃstrptrת»»ÁË...



ÔÚÕâЩ¸ßÈËûÀ´Ö®Ç°£¬ÎÒÀ´Ó²×ÅͷƤ¿´Ò»¹þ¡£

»ã±à°³²»¶®£¬ÄãÖмäÄÇÒ»³¤´®ASCII"(")ÊÇʲô£¿ÊÇ·µ»ØµÄ×Ö·û´®»¹ÊÇ´«½øÈ¥µÄ×Ö·û´®£¿



123ÊǼÓÃܵÄÃ÷ÎÄ
·µ»ØµÄASCII("ºÃ³¤µÄ....")ÊǼÓÃÜÖ®ºóµÄÃÜÎÄ,³öÏÖÓÚÄÚ´æµ±ÖеÄ

ÏÖÔÚ°´ÄãµÄÉùÃ÷ÄãÔËÐгöÀ´ÊǸöʲôÇé¿ö£¿

³ÌÐò±ÀÀ£

ÎÒÏëÏÈÈ·¶¨ÄãµÄDLLÊÇÓõÄANSI×Ö·û´®»¹ÊÇUNICODE×Ö·û´®¡£ÄãÄܲé²é´«½øÈ¥¡°123¡±ºóÔÚ¶ÑÕ»À


Ïà¹ØÎÊ´ð£º

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vbÖÐsqlÓï¾äÒýºÅÎÊÌâ

"insert into user1(name,age) values('" & Text1.Text & "','" & Text2.Text & "' )"
ÎÊÌ⣺¶ÔsqlÓï¾äÖе¥¡¢Ë«ÒýºÅÄ£ºý¡£¼ÈÈ» Text1.Text¾Í±íʾ ......

VB ÍøÒ³×Ô¶¯µÇ½

Option Explicit

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ