用vb进行dll进程注入

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

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

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

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){ //::MessageBox(0,"1","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,0,strlen(name)+1,MEM_COMMIT,PAGE_READWRITE); ::WriteProcessMemory(ph,s,name,strlen(name)+1,0); PTHREAD_START_ROUTINE ps=(PTHREAD_START_ROUTINE)::GetProcAddress(::GetModuleHandle("Kernel32"),"LoadLibraryA"); HANDLE hrt=::CreateRemoteThread(ph,0,0,ps,s,0,0); }

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

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

#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: ::MessageBox(0,"a","a",0); } return TRUE; }

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

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

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

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