用VB 关闭其他应用程序

发布时间：2020-12-16 22:34:16 所属栏目：大数据来源：网络整理

导读：1 Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" ( ByVal dwFlags As Long , ByVal th32ProcessID As Long ) As Long Private Declare Function Process32First Lib "kernel32" ( ByVal hSnapshot As Long ,lppe As PROCESSENTRY32) As

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!