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

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

.版本 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)

相关推荐

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • 易语言抓包获得地址实现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

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

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

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

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

随机推荐