利用vb进行dll注入进程,貌似不太可能,其实也不尽然,凡事变通一下,大家知道在vc下注入很容易的事情,那么我们何不把vc下的代码写成dll供vb调用呢,我试了一下,感觉还不错.@H_502_5@

下面看代码,首先是vc下的:@H_502_5@

先建一个mfc dll工程(我一开始用的是win32 dynamic-link library,但调试总提示找不到dll入口,不知为何,望高手指教),然后在你建的cpp下写入代码:@H_502_5@

DWORD getpid(char *p){ PROCESSENTRY32 p32; p32.dwSize=sizeof(p32); HANDLE hps=::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); ::Process32First(hps,&p32); do{ if(::stricmp(p32.szExeFile,p)==0){ //::Message<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(0,"1",0); ::CloseHandle(hps); return p32.th32ProcessID; } }while(::Process32Next(hps,&p32)); return p32.th32ProcessID; return 0; } void _stdcall inject(char *name,char *process){ HANDLE ph=::OpenProcess(PROCESS_ALL_ACCESS,false,getpid(process)); char *s; s=(char *)::VirtualAllocEx(ph,strlen(name)+1,MEM_COMMIT,PAGE_READWRITE); ::WriteProcessMemory(ph,s,name,0); PTHREAD_START_ROUTINE ps=(PTHREAD_START_ROUTINE)::GetProcAddress(::GetModuleHandle("Kernel32"),"LoadLibraryA"); HANDLE hrt=::CreateRemoteThread(ph,ps,0); } @H_502_5@

@H_502_5@

然后在def中导出inject这个函数即可.@H_502_5@

然后再用vc写一个dll供调用:@H_502_5@

#include "stdafx.h" #include "windows.h" BOOL APIENTRY DllMain( HANDLE hModule,DWORD ul_reason_for_call,LPVOID lpReserved ) { switch(ul_reason_for_call){ case DLL_PROCESS_ATTACH: ::Message<a href="/tag/Box/" target="_blank" class="keywords">Box</a>(0,"a",0); } return TRUE; } @H_502_5@

@H_502_5@

最后打开vb,新建一个exe工程:@H_502_5@

Private Declare Sub inject Lib "D:/ject/sx1/Debug/sx1.dll" (ByVal name As String,ByVal process As String) Private Sub Form_Load() Dim a As String a = "D:/ject/sx/Debug/sx.dll" inject a,"ast.exe" End Sub @H_502_5@

搞定,感兴趣的朋友可以试下结果.@H_502_5@

vc写,vb调用,貌似这样vb没有什么不可能的了,呵呵.@H_502_5@