易语言检测端口是否被占用的代码

检测端口是否被占用的代码

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 检测端口, 整数型, , 如果被占用返回进程PID
.参数 端口, 整数型, 可空
.参数 信息, 文本型, 参考 可空
.局部变量 I, 整数型
.局部变量 PID, 整数型
写到文件 (“Get.bat”, 到字节集 (“netstat -aon|findstr ” ＋ #引号 ＋ 到文本 (端口) ＋ #引号 ＋ “ >>Bin”))
.如果真 (运行 (“Get.bat”, 真, 1))
  删除文件 (“Get.bat”)
  信息 ＝ 到文本 (读入文件 (“Bin”))
  删除文件 (“Bin”)
  .如果真 (寻找文本 (信息, “:” ＋ 到文本 (端口), , 假) ≠ -1)
    I ＝ 倒找文本 (信息, “ ”, , 假)
    PID ＝ 到整数 (取文本右边 (信息, 取文本长度 (信息) － I))
  .如果真结束
.如果真结束
返回 (PID)
.子程序 _检测按钮_被单击
.局部变量 PID, 整数型
PID ＝ 检测端口 (到整数 (端口编辑框.内容))
.判断开始 (PID ≠ 0)
  信息框 (“当前端口已被使用，进程PID为 ” ＋ 到文本 (PID), 0, “提示”)
.默认
  信息框 (“当前端口未使用”, 0, “提示”)
.判断结束

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言实现http下载断点续传功能的代码

    易语言实现http下载断点续传功能的代码

    DLL命令表 .版本 2 .DLL命令 InternetGetConnectedState, , "Wininet.dll", "InternetGetConnectedState" .参数 lpdwFlags, 整数型, 传址 .参数 dwReserved, 整数型 .DLL命令 InternetOpenA, 整数型, "Wininet.dll", "InternetOpenA" .参数 lpszAgent, 文本型 .参数

  • 易语言解析音悦台MV提供超清下载地址的代码

    易语言解析音悦台MV提供超清下载地址的代码

    音悦台MV地址解析 此功能需要加载精易模块5.6 .版本 2 .支持库 exui .支持库 EThread .程序集 窗口程序集_启动窗口 .程序集变量 标清, 文本型 .程序集变量 高清, 文本型 .程序集变量 超清, 文本型 .子程序 _按钮EX1_左键单击 按钮EX2.可视EX ＝ 假 按钮EX3.可视EX ＝ 假 按钮EX4.可视EX ＝ 假 .判断开始 (编辑框EX1.内容 ＝ "") 信息框EX (, "告警 :", , "先输入MV地址才能解

  • 易语言制作网截抓包工具的代码

    易语言制作网截抓包工具的代码

    常量数据表 .版本 2 .常量 编码常量, "<文本长度: 10797>", , 名称:编码_GB2312 英文名称:Encoding_GB2312 类型:文本型 值:"GB2312" 列举各种编码类型 全局变量表 .版本 2 .全局变量 系统配置路径, 文本型 网截抓包工具 .版本 2 .支持库 eNetIntercept .支持库 eGrid .支持库 iconv .支持库 iext .支持库 iext2 .程序集 主程序集 .程序集变量 服务安装,

  • 易语言制作二维码生成器

    易语言制作二维码生成器

    DLL命令表 .版本 2 .DLL命令 二维码_外形设置, , "QRCodeWin32.dll", "QRAppearance" .参数 模块尺寸, 双精度小数型 .参数 方向, 整数型 .参数 边框, 整数型 .DLL命令 二维码_编码参数, , "QRCodeWin32.dll", "QRConfigure" .参数 版本, 整数型 .参数 纠错级别, 整数型 .参数 掩膜, 整数型 .DLL命令 二维码_默认设置, ,

  • 易语言制作QQ聊天添加自定义小尾巴工具

    易语言制作QQ聊天添加自定义小尾巴工具

    DLL命令表 .版本 2 .DLL命令 SetWindowsHookEx, 整数型, , "SetWindowsHookExA", , 建立钩子 .参数 idHook, 整数型 .参数 lpfn, 子程序指针 .参数 hmod, 整数型 .参数 dwThreadId, 整数型 .DLL命令 CopyMemory, , , "RtlMoveMemory" .参数 Destination, 按键信息, 传址 .参数 Source, 整数型 .参数 Length, 整数型

  • 易语言抓包获得地址实现TP路由器登陆的代码

    易语言抓包获得地址实现TP路由器登陆的代码

    常量数据表 .版本 2 .常量 协议头, "<文本长度: 310>", , Accept: text/html, application/xhtml+xml, */* Referer: http://地址/userRpm/MenuRpm.htm Accept-Language: zh-CN User-Agent: Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0) Accept-En

  • 易语言获取已登录的QQ号码以及名称的方法

    易语言获取已登录的QQ号码以及名称的方法

    取登陆QQ号以及名称的代码 此功能需要加载精易模块5.6 .版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 网页填表, 普通填表 .子程序 _读取按钮_被单击 .局部变量 数量, 文本型 .局部变量 i, 整数型 .局部变量 QQ, 文本型 .局部变量 名称, 文本型 显示选择列表框.清空 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 数量 ＝ 到文本 (网页填表.ULLI_取数量 ()) .计次循环首 (到整数 (数量), i) QQ ＝ 到文本 (文本_取出中间文本

  • 易语言实现文件夹加密的代码

    易语言实现文件夹加密的代码

    加密锁上文件夹 此功能需要加载精易模块5.6 .版本 2 .支持库 shell .支持库 spec .支持库 dp1 .程序集 窗口程序集1 .程序集变量 密码, 文本型 .子程序 _按钮_浏览文件_被单击 编辑框_路径.内容 ＝ 浏览文件夹 ("打开你需要加密的文件", ) .子程序 _按钮_加密_被单击 .局部变量 文件夹名称, 文本型 .判断开始 (寻找文本 (编辑框_路径.内容, "[已加密]", , 假) ≠ -1) 提示框 ("已加密"

  • 易语言实现无需加好友强制查看QQ资料卡片的方法

    易语言实现无需加好友强制查看QQ资料卡片的方法

    调用腾讯的弹出QQ资料卡片接口实现强制查看QQ资料卡片的功能 .版本 2 .支持库 shell .程序集 窗口程序集_启动窗口 .子程序 _查看资料按钮_被单击 执行 (, "tencent://ContactInfo/?subcmd=ViewInfo&puin=0&uin=" + QQ号编辑框.内容, , , ) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查

  • 易语言仿360悬浮窗实现流量监控和内存优化的代码

    易语言仿360悬浮窗实现流量监控和内存优化的代码

    DLL命令表 .版本 2 .DLL命令 GlobalMemoryStatus, 整数型, "kernel32", "GlobalMemoryStatus" .参数 lpBuffer, MEMORYSTATUS .DLL命令 OpenProcess, 整数型, "Kernel32.dll", "OpenProcess" .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 整数型 .参数 dw

  • 易语言调用GetUserPassWord.dll获取系统开机密码

    易语言调用GetUserPassWord.dll获取系统开机密码

    DLL命令表 .版本 2 .DLL命令 取开机密码, 文本型, "GetUserPassWord.dll", "GetUserPassWord", 公开 获取系统登录密码的代码 .版本 2 .程序集 窗口程序集1 .子程序 获取开机, 文本型 .局部变量 密码, 文本型 .局部变量 帐号, 文本型 .局部变量 最终文本, 文本型 帐号 ＝ 读环境变量 ("USERNAME") 密码 ＝ 取电脑开机密码 () 最终文本 ＝ "密码类型:开

  • 易语言将下载地址解析转换成迅雷快车旋风的方法

    易语言将下载地址解析转换成迅雷快车旋风的方法

    Base64解码 .版本 2 .程序集 程序集1 .子程序 Base64解码, 字节集, 公开 .参数 原文, 字节集 .局部变量 码表, 字节集 .局部变量 位置码表, 字节型, , "256" .局部变量 结果, 字节集 .局部变量 原文长度, 整数型 .局部变量 补码, 整数型 .局部变量 i, 整数型 .局部变量 四字节数据, 字节型, , "4" .局部变量 j, 整数型 原文长度 ＝ 取字节集长度 (原文) .如果真 (原文长度 ＝ 0) 返回 ({ }

  • 易语言实现多线程计算的代码

    易语言实现多线程计算的代码

    多线程计算 此功能需要加载精易模块5.6 .版本 2 .支持库 iext .程序集 窗口程序集1 .程序集变量 总线程id, 整数型 .程序集变量 线程判断数量, 整数型 .程序集变量 线程总数, 整数型 .程序集变量 线程id, 整数型 .程序集变量 当前表项, 整数型 .程序集变量 许可证, 整数型 .子程序 __启动窗口_创建完毕 .局部变量 i1, 整数型 .计次循环首 (10000, i1) 置随机数种子 () 超级列表框1.插入表项 (, , , , , ) 超级列表框1.置标题 (

  • 易语言解析淘宝客短链接转换成商品真实链接的代码

    易语言解析淘宝客短链接转换成商品真实链接的代码

    淘宝客短链接转换成商品地址的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .程序集 窗口程序集_启动窗口 .子程序 test 商品地址编辑框.内容 ＝ GetRealUrl (短链接编辑框.内容) .子程序 GetRealUrl, 文本型 .参数 shortUrl, 文本型 .局部变量 rurl, 文本型 .局部变量 referer, 文本型 .局部变量 laststr, 文本型 httpGet (shortUrl, , rurl) httpGet (rurl, ,

  • 易语言利用HOOK注入获取内容的代码

    易语言利用HOOK注入获取内容的代码

    DLL命令表 .版本 2 .DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory" .参数 Destination, 整数型 .参数 Source, 整数型 .参数 Length, 整数型 .DLL命令 CreateWindowExA, 整数型 .参数 dwExStyle, 整数型 .参数 lpClassName, 文本型 .参数 lpWindowName, 文本型 .参数 dwStyle, 整数型 .参数

随机推荐