用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 Stringa = "D:/ject/sx/Debug/sx.dll"inject a, "ast.exe"End Sub

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

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