.版本 2

.DLL命令 CreateProcessA, 整数型, "kernel32.dll", "CreateProcessA", , 创建进程。

    .参数 lpApplicationName, 文本型

    .参数 lpCommandLine, 文本型

    .参数 lpProcessAttributes, 整数型

    .参数 lpThreadAttributes, 整数型

    .参数 bInheritHandles, 逻辑型

    .参数 dwCreationFlags, 整数型

    .参数 lpEnvironment, 整数型

    .参数 lpCurrentDriectory, 文本型

    .参数 lpStartupInfo, STARTUPINFO

    .参数 lpProcessInformation, 进程结构, , 进程结构

.版本 2

.支持库 spec

' //进程信息设置

si.cbSize ＝ 254

' si.lpDesktop ＝ “WinSta0\Default”

si.dwFlags ＝ #STARTF_USESHOWWINDOW

si.wShowWindow ＝ #SW_SHOW  ' 显示窗口

sret ＝ CreateProcessA (文件名路径, “”, 0, 0, 假, #CREATE_SUSPENDED, 0, 运行目录, si, pi)

调试输出 (sret)

' 申请内存空间

dll文件大小 ＝ 取文本长度 (模块名称) ＋ 1

Param ＝ VirtualAllocEx (pi.进程句柄, 0, dll文件大小, 4096, #PAGE_READWRITE)

调试输出 (“申请内存地址” ＋ 到文本 (Param))

' 将DLL路径写入内存

WriteProcessMemory (pi.进程句柄, Param, 模块名称, 取字节集长度 (到字节集 (模块名称)), 0)

' 获取LoadLibraryA函数地址

LoadlibrarA地址 ＝ GetProcAddress (GetModuleHandleA (“Kernel32.dll”), “LoadLibraryA”)

' 创建远程线程调用LoadLibraryA函数  远程线程句柄=hThread

hThread ＝ CreateRemoteThread (pi.进程句柄, 0, 0, LoadlibrarA地址, Param, 0, 0)

调试输出 (hThread)

.判断开始 (hThread ＝ 0)  ' 失败

    信息框 (“创建线程注入失败！”, 0, , )

.默认

.判断结束

' 唤醒主线程

ResumeThread (pi.线程句柄)

' 测试

WaitForSingleObject (hThread, -1)

' 关闭

CloseHandle (hThread)