原文链接：http://hi.baidu.com/coo_boi/item/e1e0f5ab45bddbdd5af191df

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Sub RtlZeroMemory Lib "kernel32" (dest As Any, ByVal numBytes As Long)

Private Type POINTAPI

        x As Long

        y As Long

End Type

Private Type DROPFILES

    pFiles As Long

    pt As POINTAPI

    fNC As Long

    fWide As Long

End Type

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _

    ByVal bInheritHandle As Long, _

    ByVal dwProcessId As Long) As Long

Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, _

    ByVal lpAddress As Long, _

    ByVal dwSize As Long, _

    ByVal flAllocationType As Long, _

    ByVal flProtect As Long) As Long

Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _

    ByVal lpBaseAddress As Long, _

    lpBuffer As Any, _

    ByVal nSize As Long, _

    lpNumberOfBytesWritten As Long) As Long

Private Declare Function VirtualFree Lib "kernel32" (lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _

    ByVal wMsg As Long, _

    ByVal wParam As Long, _

    lParam As Any) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const WM_DROPFILES = &H233&

Private Const PROCESS_VM_OPERATION = &H8&

Private Const PROCSS_VM_READ = &H100&

Private Const PROCESS_VM_WRITE = &H20&

Private Const MEM_COMMIT = &H1000&

Private Const PAGE_READWRITE = &H4&

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()

    Dim hWnd As Long

    Dim dwPid As Long

    Dim hProc As Long

    Dim pMem As Long

    Dim pBuff() As Byte

    Dim objDFS As DROPFILES

    Dim dwBuffSize As Long

    Dim szFileName() As Byte

    szFileName = StrConv("d:\1.txt", vbFromUnicode)

    dwBuffSize = Len(objDFS) + UBound(szFileName) + 

    ReDim pBuff(dwBuffSize - )

    Call RtlZeroMemory(ByVal VarPtr(pBuff()), dwBuffSize)

    Call RtlZeroMemory(ByVal VarPtr(objDFS), Len(objDFS))

    objDFS.pFiles = Len(objDFS)

    Call CopyMemory(ByVal VarPtr(pBuff()), ByVal VarPtr(objDFS), Len(objDFS))

    Call CopyMemory(ByVal VarPtr(pBuff(Len(objDFS))), ByVal VarPtr(szFileName()), UBound(szFileName) + )

    hWnd = FindWindow("notepad", vbNullString)

    If hWnd Then

        Call GetWindowThreadProcessId(hWnd, dwPid)

        hProc = OpenProcess(&H8& + &H20&, False, dwPid)

        If hProc Then

            pMem = VirtualAllocEx(hProc, &, dwBuffSize, MEM_COMMIT, PAGE_READWRITE)

            If pMem Then

                Debug.Print pMem

                If WriteProcessMemory(hProc, pMem, pBuff(), dwBuffSize, &) Then

                    Call SendMessage(hWnd, WM_DROPFILES, pMem, ByVal &)

                    Debug.Print "SendMessage OK"

                Else

                    Debug.Print "WriteProcessMemory Failed"

                End If

                Call VirtualFree(ByVal pMem, dwBuffSize, &)

            End If

            Call CloseHandle(hProc)

        End If

    End If

End Sub