1

 
 

  
  
PrivateDeclareFunctionCreateToolhelp32SnapshotLib"kernel32"(ByValdwFlagsAsLong,ByValth32ProcessIDAsLong)AsLong@H_403_59@
  
  
PrivateDeclareFunctionProcess32FirstLib"kernel32"(ByValhSnapshotAsLong,lppeAsPROCESSENTRY32)AsLong@H_403_59@
  
  
PrivateDeclareFunctionProcess32NextLib"kernel32"(ByValhSnapshotAsLong,lppeAsPROCESSENTRY32)AsLong@H_403_59@
  
  
PrivateDeclareFunctionCloseHandleLib"kernel32"(ByValhObjectAsLong)AsLong@H_403_59@
  
  
PrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAsLong,ByValblnheritHandleAsLong,ByValdwAppProcessIdAsLong)AsLong@H_403_59@
  
  
@H_403_59@
  
  
PrivateDeclareFunctionTerminateProcessLib"kernel32"(ByValApPHProcessAsLong,ByValuExitCodeAsLong)AsLong@H_403_59@
  
  
@H_403_59@
  
  
PrivateTypePROCESSENTRY32@H_403_59@
  
  
dwSizeAsLong@H_403_59@
  
  
cntUsageAsLong@H_403_59@
  
  
th32ProcessIDAsLong@H_403_59@
  
  
th32DefaultHeapIDAsLong@H_403_59@
  
  
th32ModuleIDAsLong@H_403_59@
  
  
cntThreadsAsLong@H_403_59@
  
  
th32ParentProcessIDAsLong@H_403_59@
  
  
pcPriClassBaseAsLong@H_403_59@
  
  
dwFlagsAsLong@H_403_59@
  
  
szExeFileAsString*1024@H_403_59@
  
  
EndType@H_403_59@
  
  
@H_403_59@
  
  
ConstTH32CS_SNAPHEAPLIST=&H1@H_403_59@
  
  
ConstTH32CS_SNAPPROCESS=&H2@H_403_59@
  
  
ConstTH32CS_SNAPTHREAD=&H4@H_403_59@
  
  
ConstTH32CS_SNAPMODULE=&H8@H_403_59@
  
  
ConstTH32CS_SNAPALL=(TH32CS_SNAPHEAPLISTOrTH32CS_SNAPPROCESSOrTH32CS_SNAPTHREADOrTH32CS_SNAPMODULE)@H_403_59@
  
  
ConstTH32CS_INHERIT=&H80000000@H_403_59@
  
  
DimpidAsLong@H_403_59@
  
  
DimpnameAsString@H_403_59@
  
  
@H_403_59@
  
  
PrivateSubtaskkill(ByValtasknameAsString)@H_403_59@
  
  
DimmyAsPROCESSENTRY32@H_403_59@
  
  
DimlAsLong@H_403_59@
  
  
Diml1AsLong@H_403_59@
  
  
DimflagAsBoolean@H_403_59@
  
  
DimmNameAsString@H_403_59@
  
  
DimiAsInteger@H_403_59@
  
  
@H_403_59@
  
  
l=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0)@H_403_59@
  
  
IflThen@H_403_59@
  
  
my.dwSize=1060@H_403_59@
  
  
If(Process32First(l,my))Then@H_403_59@
  
  
Do@H_403_59@
  
  
i=InStr(1,my.szExeFile,Chr$(0))@H_403_59@
  
  
mName=LCase$(Left$(my.szExeFile,i-1))@H_403_59@
  
  
IfmName=LCase$(taskname)Then@H_403_59@
  
  
pid=my.th32ProcessID@H_403_59@
  
  
pname=mName@H_403_59@
  
  
DimmProcIDAsLong@H_403_59@
  
  
@H_403_59@
  
  
mProcID=OpenProcess(1&,-1&,pid)@H_403_59@
  
  
TerminateProcessmProcID,0&@H_403_59@
  
  
flag=True@H_403_59@
  
  
Else@H_403_59@
  
  
flag=False@H_403_59@
  
  
EndIf@H_403_59@
  
  
LoopUntil(Process32Next(l,my)<1)@H_403_59@
  
  
l1=CloseHandle(l)@H_403_59@
  
  
EndIf@H_403_59@
  
  
EndIf@H_403_59@
  
  
EndSub@H_403_59@
  
  
'×¢Òâ½ø³ÌÃûÒªÇø·Ö´óСд@H_403_59@
  
  
@H_403_59@
  
  
@H_403_59@
  
  
PrivateSubCommand1_Click()@H_403_59@
  
  
'@H_403_59@
  
  
Calltaskkill("calc.exe")@H_403_59@
  
  
EndSub@H_403_59@