[首发]CreateProcess创建暂停进程DLL注入[VC(Dll)+VB调用代码

SilenceNet · 发表于 2010-5-12 11:38:38

本帖最后由 SilenceNet 于 2010-5-12 11:41 编辑

Option Explicit
'*********************************************************************
'SN_CreateProcessA:你啥也不用干,直接给EXE路径与DLL路径就成
' strExePath:EXE路径
' strCmdLine:传递给EXE的命令行参数
' strDllPath:待注入的Dll路径
'*********************************************************************
'SN_InjectDllA:需要自己先创建一个暂停进程
' hProcess:已经创建的进程句柄{注意:加入CREATE_SUSPENDED,创建暂停的进程}
' strExePath:EXE路径
' strDllPath:待注入的Dll路径
'*********************************************************************
'HP.DLL参考网上源代码修改
'版权所有:[SilenceNet]
'Q Q:[241220652]
'E Mail:[SilenceNet@QQ.Com]
'*********************************************************************
Private Declare Function SN_CreateProcessA Lib "HP.dll" ( _
ByVal strExePath As String, _
ByVal strCmdLine As String, _
ByVal strDllPath As String) As Long
Private Declare Function SN_InjectDllA Lib "HP.dll" ( _
ByVal hProcess As Long, _
ByVal strExePath As String, _
ByVal strDllPath As String) As Long
Private Sub Command1_Click()
If SN_CreateProcessA(txtExePath.Text, txtCommandLine.Text, txtDllPath.Text) Then
MsgBox "插进去了...", vbInformation, ":)"
Else
MsgBox "没插进去", vbCritical, ":("
End If
End Sub