PB 三种获取IP的方法 以及 杀掉进程

原创 2018年04月16日 16:34:41


下载网址
https://download.csdn.net/download/yangjinchao/10353101



function long CreateToolhelp32Snapshot(ulong dwFlags, ulong th32ProcessID) library "kernel32"
function boolean Process32First(long hSnapshot, ref PROCESSENTRY32 lppe) library "kernel32"
function boolean Process32Next(long hSnapshot, ref PROCESSENTRY32 lppe) library "kernel32"
function boolean Module32First(long hSnapshot, ref MODULEENTRY32 lpme) library "kernel32"
function boolean Module32Next(long hSnapshot, ref MODULEENTRY32 lpme) library "kernel32"
function boolean Thread32First(ulong hSnapshot, ref THREADENTRY32 lpte) library "kernel32"
function boolean Thread32Next(ulong hSnapshot, ref THREADENTRY32 lpte) library "kernel32"
function boolean CloseHandle(long hObject) library "kernel32"
FUNCTION ulong OpenProcess(ulong dwDesiredAccess,ulong bInheritHandle,ulong dwProcessId) LIBRARY "kernel32.dll " 
FUNCTION ulong ReadProcessMemory(ulong hProcess,ulong lpBaseAddress,ref blob lpBuffer,ulong nSize,ref ulong lpNumberOfBytesWritten) LIBRARY "kernel32.dll " 
FUNCTION ulong TerminateProcess(ulong hProcess,ulong uExitCode) LIBRARY "kernel32.dll"


//====================================================================
// 函数: w_main::kill_proc()
//--------------------------------------------------------------------
// 描述: kill掉指定进程。
//--------------------------------------------------------------------
// 参数:
// 	value	string	app_proc	
//--------------------------------------------------------------------
// 返回值:  boolean
//--------------------------------------------------------------------
// 修改历史: 
//	
//====================================================================


Long ll_hSnapshot,ll_th32ProcessID
Long u_pid,hwdprocess

PROCESSENTRY32 lpe_ProcessEntry
constant long TH32CS_SNAPHEAPLIST = 1
constant long TH32CS_SNAPPROCESS  = 2
constant long TH32CS_SNAPTHREAD   = 4
constant long TH32CS_SNAPMODULE   = 8
ULONG PROCESS_TERMINATE = 0001


SetNull(ll_th32ProcessID)
//获取当前进程快照句柄
ll_hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,ll_th32ProcessID)
if ll_hSnapshot > 0 then
 	//初试化结构PROCESSENTRY32大小
 	lpe_processentry.dwSize = 296
 	//获取所有进程列表
 	if Process32First(ll_hSnapshot,lpe_ProcessEntry) then
 		Do 
   		if lpe_processentry.szExeFile = app_proc then
    			u_pid = lpe_processentry.th32ProcessID
    			exit
   		end if
  		Loop While Process32Next(ll_hSnapshot,lpe_ProcessEntry)
 	end if
 	CloseHandle(ll_hSnapshot)
end if

if u_pid = 0 then return false
	hwdprocess = OpenProcess(PROCESS_TERMINATE,1,u_pid)
if hwdprocess = 0 then return false

if TerminateProcess(hwdprocess,0) <> 0 then 
 	return true
else
 	return false
end if

版权声明:所有文章,欢迎评论,欢迎转载。 https://blog.csdn.net/yangjinchao/article/details/79962533

三种方法获取外网(公网)IP

  • 2010年06月17日 22:36
  • 10KB
  • 下载

VB杀Excel进程

Dim before_time As Date = Now Dim xlsWorkbook As Excel.Workbook '文档’ Dim xlssheet As Excel...
  • qi49125
  • qi49125
  • 2016-10-26 15:21:34
  • 585

pb中获得本机IP地址的另一个方法

 pb中获得本机IP地址的另一个方法 一般人多用run("regsvr32 /s MSWINSCK.OCX")注册后,利用这个控件,获得包括IP地址在内的本机各种信息。这里介绍的是  利用访问注册表的...
  • JohnPhan
  • JohnPhan
  • 2007-08-27 10:28:00
  • 2611

Android 杀掉自己进程的方法

Process.killProcess(Process.myPid());
  • ym19860303
  • ym19860303
  • 2012-03-12 01:47:38
  • 3151

使用Selenium杀掉进程

package com.gloryroad.Browser; import org.openqa.selenium.os.WindowsUtils; public class Se...
  • douyunqian668
  • douyunqian668
  • 2017-03-22 13:48:52
  • 408

PB获取本机Mac地址

//得到计算机名字 function boolean GetComputerNameA(ref string lpBuffer, ref ulong nSize) library "KERNEL32...
  • kennyzjk
  • kennyzjk
  • 2014-03-14 16:28:14
  • 2405

PB得到本机的名称和IP地址MAC地址

//函数名称:         f_getip  //调用方法:         f_getip(ip_name)  //参数说明:   ip_name     :   类型:integer   ...
  • sqlove
  • sqlove
  • 2014-03-27 14:16:10
  • 1595

PB11.5获取IP地址及主机名

  • 2015年06月24日 11:34
  • 9KB
  • 下载

pb中如何获得机器ip地址

  • 2004年07月07日 00:00
  • 106KB
  • 下载

根据关键词获取进程ID然后杀掉进程

例如需要杀掉监听进程,如下: [oracle@kel ~]$ ps -ef|grep lsnr oracle 4973 1 1 19:40 ? 00:00:00 /ho...
  • kellyseeme
  • kellyseeme
  • 2014-07-14 10:43:43
  • 1335
收藏助手
不良信息举报
您举报文章:PB 三种获取IP的方法 以及 杀掉进程
举报原因:
原因补充:

(最多只允许输入30个字)