论坛 › 已解决问题区 › 寻一个udp文件：InjectDll.au3

starfee 发表于 2008-12-10 15:51:27

寻一个udp文件：InjectDll.au3

搜索了很多都需要钱才能下载，我没有办法充值，又急需要用（校园机控制系统），不知哪位有，给共享一下啊？谢谢了

[ 本帖最后由 starfee 于 2008-12-11 09:39 编辑 ]

wolfxiong 发表于 2008-12-10 21:39:22

这个吗？$ret = _InjectDll(WinGetHandle("Calculator"), "C:\WINDOWS\system32\activeds.dll")
$err = @error
If $err < 0 Then
    MsgBox(16, $ret, $err)
Else
    MsgBox(64, $ret, "YUP!")
EndIf


#include-once



Func _InjectDll($hWnd, $dllpath)
        ;make sure the user passed valid parameters
        If $hWnd <= 0 Then
                SetError(-1)
                Return False
        ElseIf StringLen($dllpath) <= 4 Or StringRight($dllpath, 4) <> ".dll" Then
                SetError(-2)
                Return False
        EndIf
       
        Local $pid, $pHandle, $pLibRemote, $modHandle, $LoadLibraryA, $hThread
       
        ;open dll that we'll be using
        Local $kernel32 = DllOpen("kernel32.dll")
       
        ;get the pid from the window provided
        $pid = DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $hWnd, "int_ptr", 0)
        If IsArray($pid) Then
                $pid = $pid
        Else
                SetError(-3)
                Return False
        EndIf
       
        ;open the process for writing
        $pHandle = DllCall($kernel32, "int", "OpenProcess", "int", 0x1F0FFF, "int", 0, "int", $pid)
        If IsArray($pHandle) And $pHandle > 0 Then
                $pHandle = $pHandle
        Else
                SetError(-4)
                Return False
        EndIf
       
        $pLibRemote = DllCall($kernel32, "int", "VirtualAllocEx", "int", $pHandle, "short", 0, "int", 0x1000, "int", 0x1000, "int", 4)
        If IsArray($pLibRemote) Then
                If $pLibRemote > 0 Then
                        ;debug
                        ConsoleWrite("0x" & Hex($pLibRemote, 8) & @CR)
                        $pLibRemote = $pLibRemote
                Else
                        SetError(-5)
                        Return False
                EndIf
        Else
                SetError(-6)
                Return False
        EndIf
       
        For $i = 0 To StringLen($dllpath)
                $ret = DllCall("kernel32.dll", "int", "WriteProcessMemory", "int", $pHandle, "int", $pLibRemote + $i, "int_ptr", Asc(StringMid($dllpath, $i + 1, 1)), "int", 1, "int", 0)
                If IsArray($ret) Then
                        If $ret = 0 Then
                                SetError(-7)
                                Return False
                        EndIf
                Else
                        SetError(-8)
                        Return False
                EndIf
        Next
       
        $modHandle = DllCall($kernel32, "long", "GetModuleHandle", "str", "kernel32.dll")
        If IsArray($modHandle) Then
                If $modHandle > 0 Then
                        $modHandle = $modHandle
                Else
                        SetError(-9)
                        Return False
                EndIf
        Else
                SetError(-10)
                Return False
        EndIf
       
        $LoadLibraryA = DllCall($kernel32, "long", "GetProcAddress", "long", $modHandle, "str", "LoadLibraryA")
        If IsArray($LoadLibraryA) Then
                If $LoadLibraryA > 0 Then
                        $LoadLibraryA = $LoadLibraryA
                Else
                        SetError(-11)
                        Return False
                EndIf
        Else
                SetError (-12)
                Return False
        EndIf
       
        $hThread = DllCall($kernel32, "int", "CreateRemoteThread", "int", $pHandle, "int", 0, "int", 0, "long", $LoadLibraryA, "long", $pLibRemote, "int", 0, "int", 0)
        If IsArray($hThread) Then
                ConsoleWrite($hThread & @CR)
                If $hThread > 0 Then
                        $hThread = $hThread
                Else
                        SetError(-13)
                        Return False
                EndIf
        Else
                SetError(-14)
                Return False
        EndIf
       
        DllCall($kernel32, "int", "VirtualFreeEx", "int", $pHandle, "int", $pLibRemote, "int", 0x1000, "int", 0x8000)
        DllCall($kernel32, "int", "CloseHandle", "int", $hThread)
        DllCall($kernel32, "int", "CloseHandle", "int", $pHandle)
       
        DllClose($kernel32)
       
        Return True
EndFunc

starfee 发表于 2008-12-11 09:31:16

就是这个，虽然我测试不成功，但是思路可以好好学习。。。

goldinfall 发表于 2011-6-14 19:51:20

#include "InjectDll.au3"
$ret =_InjectDllByHwnd(WinGetHandle("计算器"), "C:\WINDOWS\system32\activeds.dll")
$err = @error
If $err < 0 Then
    MsgBox(16, $ret, $err)
Else
    MsgBox(64, $ret, "YUP!")
EndIf



要保证文件在同一文件下哦

查看完整版本: 寻一个udp文件：InjectDll.au3