用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",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); }

然后在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",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没有什么不可能的了,呵呵.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!