(ת)VBÖд´½¨¿ÉÒÔÊä³öº¯ÊýµÄDLL
VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚVBµÄ¹¤³ÌÑ¡ÏîÖн«ÕâЩÆÁ±ÎÁË¡£¶øÇÒ¹ý·ÖµÄÊÇ£ºVBÔÚBuildÍê³Éºó»á½«OBJÎļþɾ³ý£¬ÕâÑù¾ÍÎÞ·¨Í¨¹ýLinkÀ´Êä³öº¯ÊýÁË¡£²»¹ýÎÒÕÒµ½Ò»¸ö±È½Ïö»õºµÄ±äͨµÄ·½·¨£¬¾ÍÊÇÏÈ´´½¨Ò»¸öExe¹¤³Ì£¬ÔÚForm_LoadʼþÀïÃæÐ´ÏÂÃæµÄÓï¾ä:
Private Sub Form_Load()
If (MsgBox("hehe", vbOKCancel) = vbOK) Then
Shell "link2.exe " & Command$
End If
End
End Sub
¡¡¡¡È»ºó±àÒëΪlinktemp.exe£¬½ÓÏÂÀ´½«LINK.EXE¸ÄÃûΪLink2.exe£¬½«linktemp.exe¸ÄÃûΪlink.exe¡£ÕâÑùÔÚVBµ÷ÓÃlink.exeʱ»áµ¯³ö¶Ô»°¿ò£¬´¦Àí¾Í»áÖжϡ£Õâʱ¾Í¿ÉÒÔÓлú»á½«OBJÎļþ¿½±´³öÀ´ÁË J
¡¡¡¡È»ºóÎÒ´´½¨ÁËÒ»¸öActiveX DLL¹¤³Ì£¬ÔÚÕâ¸ö¹¤³ÌÀïÃæÌí¼ÓÒ»¸öModule²¢´´½¨Ò»¸öPublicº¯Êýmathadd£º
Public Function mathadd(ByVal a As Long, ByVal b As Long) As Long
mathadd = a + b
End Function
¡¡¡¡BuilderÕâ¸ö¹¤³Ì£¬ÔÚLinkµÄʱºò¾Í»áÖжϡ£È»ºó°Ñ´´½¨µÄClass1.obj¡¢Module1.obj¡¢Project1.obj±¸·Ý³öÀ´¡£
¡¡¡¡È»ºó¾Í¿ÉÒÔµ÷ÓÃLink2.exeÁ¬½ÓOBJµ½DLLÁË£¬ÎÒµÄÁ¬½Ó´úÂëÊÇ£º
link2.exe "e:\vbdll\Class1.obj" "e:\vbdll\Module1.obj" "e:\vbdll\Project1.obj" "E:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:\vbdll\ProjectOK.dll" /BASE:0×11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS
¡¡¡¡×¢ÒâÀïÃæµÄ/ENTRYºÍ/EXPORT¿ª¹Ø£¬/EXPORT¿ª¹ØÉùÃ÷ÁËÊä³öº¯Êýmathadd¡£ÕâÑù¾Í´ó¹¦¸æ³ÉÁË £¬¿ÉÒÔ±»ÆäËûÓïÑÔÒýÈ룬ÀýÈçÔÚVBÖУ¬Ö»ÐèÒª£º
Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long
¡¡¡¡¾Í¿ÉÒÔÁË¡£
Ïà¹ØÎĵµ£º
vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0 mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔØµÄºÜ¶à°²×°³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......
ËäÈ»ÔÚVBÀïʵÏÖXP·ç¸ñºÜ¼òµ¥£¬µ«ÊÇҪʹÓÃXP·ç¸ñͬʱÓÖÈð´Å¥ÏÔʾͼƬ£¬ÔòʵÏÖÆðÀ´ÒªÂ鷳һЩ£¬Îª´Ë£¬ÎÒдÁËÒ»¸ö¿Ø¼þÀ´ÊµÏÖǰÊö¹¦ÄÜ£¬Í¬Ê±ÈöÁÕß¿ÉÒÔ´ÓÖÐÁ˽âXPÖ÷Ìâ½çÃæµÄ»æÖƹý³Ì¡£
ʹÓð취ºÜ¼òµ¥£¬ÔÚVBÀïн¨Ò»¸ö¹¤³Ì£¬È»ºóÌí¼ÓÒ»¸ö¿Ø¼þÄ£¿é£¬Õ³ÌùÒÔÏ´úÂ룬ÔÙ½«¿Ø¼þ·ÅÖõ½´°¿Ú¼´ ......
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 ......
Ò» ľÂíµÄÓÉÀ´
ľÂí£¬¼´“ÌØÂåÒÁľÂ픣¨trojan horse£©¡£
¶þ ËùÐèÒªµÄ¼¼Êõ
Ò»¸ö³É¹¦µÄľÂí£¬³ýÁËÖÆ×÷³öÏà¹ØµÄ³ÌÐòÒÔÍ⣬»¹ÐèҪʵÏÖÒÔϼ¸·½ÃæµÄ¹¦ÄÜ¡£1£¬Ä¾ÂíµÄÒþ²Ø 2£¬Ä¾ÂíµÄÔËÐÐ 3£¬Ä¾ÂíµÄ¸´ÖÆ 4£¬Ä¾ÂíµÄ´«²¥µÈ ......
VB Treeview¿Ø¼þÏêϸʹÓ÷½·¨
1¡¢ÊôÐÔ
ÕâÀïÖ»¸ø´ó¼Ò½éÉÜTreeview¿ ......