.386
.model flat,stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc

include dll.inc       ;;;;;;;安装钩子的dll
includelib dll.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib

DlgFunc PROTO :DWORD,:DWORD,:DWORD,:DWORD
Strstr proto :DWORD,:DWORD      ;一个字符串搜索函数,没贴出来
FindId proto               ;寻找explorer.exe的进程句柄
                                   ;我只会这样找,,,不知道是否有更好的办法
                                   ;有的话一定要告诉我啊
.const
IDD_MAINDLG equ 101

.data
HookFlag dd FALSE
exeName db "EXPLORER.EXE",0

ppe PROCESSENTRY32 <>         

hHandle dd 0

.data?

hId dd ?                    ;the id of exporer.exe
hInstance dd ?  

hHook dd ?      

.code
start:
     invoke GetModuleHandle,NULL
     
     mov hInstance,eax
   
     call FindId
    .if eax == 0
    jmp err
    .endif
                              
invoke DialogBoxParam,hInstance,IDD_MAINDLG,NULL,addr DlgFunc,NULL

err:
   
    invoke ExitProcess,NULL

;############################################
   
DlgFunc proc hDlg:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

    .if uMsg==WM_CLOSE
        .if HookFlag==TRUE
            invoke UninstallHook
        .endif
        invoke EndDialog,hDlg,NULL
        
    .elseif uMsg==WM_INITDIALOG
   
        .if HookFlag == FALSE
            invoke InstallHook,hId,hDlg
        ;安装钩子的函数在dll中,hId是explorer.exe的进程id            
            .if eax != FALSE
                mov HookFlag,TRUE
            .endif
        .endif   
            
    .endif
    ret

DlgFunc endp

FindId proc
   
   
    invoke CreateToolhelp32Snapshot,TH32CS_SNAPPROCESS,0
   
    mov hHandle,eax
    ;问题就出在这了,我用soft-ice看,process32first老返回0

    invoke Process32First,eax,addr ppe
   
;;;;;;;下面是一个循环
    loop9:
   
       .if eax == 0
           jmp loop8
       .endif

       invoke Strstr,addr exeName,addr ppe.szExeFile
        ;在找到的进程路径中搜索 字符串 "EPLORER.EXE"  找到 返回1

       .if eax ==1
                   ;把exploer.exe的进程Id保存起来,并返回
        mov eax,ppe.th32ProcessID
        mov hId,eax
           ret
       .endif
       invoke Process32Next,hHandle,addr ppe   
       jmp loop9
    loop8:

    mov eax,0
    ret

FindId endp
end start

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！