版本2
。子例程GetModule，整數類型，，返回指定進程中指定模塊的模塊地址。
。參數ProcessID，整數類型。
參數模塊名稱，文本類型
。局部變量hObject，整型。
。局部變量ModuleEntry32，模塊地址_
。局部變量模塊，模塊地址_
清除陣列(模塊)
ho object = API _ createtoolhelp 32 snapshot(8，processid)'如果id為0，則表示當前進程。
ModuleEntry32。結構尺寸= 1024。
。如果為真(查找第壹個32位模塊_(ho object，ModuleEntry32))
。循環判斷優先()
。如果為true(轉換為小寫(轉換為text (ModuleEntry32。模塊名))=小寫(模塊名))
API_CloseHandle (hObject)
Return (ModuleEntry32。模塊手柄)
如果真的結束了。
循環判斷尾(查找下壹個32位模塊_(ho object，ModuleEntry32))
如果真的結束了。
API_CloseHandle (hObject)
調試輸出(模塊)
返回(0)
粘貼後直接調用“GetModule”就可以得到。