publicfunctiongetprocessmodulehandle (byvalwindowclassvswindowtextexenameasstring， ByVal ModuleName As String ) aslongdimprasprocessentry 32 dimlpaslongdimmoasmoduleentry 32 dimlmaslongdimiaslongdimtempasvariantifmodulename=' thengetpr ocessse ctionpr.dwsize=len(pr ) lm=create toolhelp 32 snapshot (th32 csyjdxhd，getpid (windowclassvswindowtextexename ) ) ) iflp 32 instr(mo.SZExepath，chr(0)- 1 ) temp=mid (temp，instrrev ) temp，“”(1) ifucase(temp )=ucase ) modulened
VB交流站www.zai996.com q1016058890