.版本 2
.程序集 窗口程序集_啟動窗口
.子程序 檢測端口, 整數(shù)型, , 如果被占用返回進程PID
.參數(shù) 端口, 整數(shù)型, 可空
.參數(shù) 信息, 文本型, 參考 可空
.局部變量 I, 整數(shù)型
.局部變量 PID, 整數(shù)型
寫到文件 (“Get.bat”, 到字節(jié)集 (“netstat -aon|findstr ” ＋ #引號 ＋ 到文本 (端口) ＋ #引號 ＋ “ >>Bin”))
.如果真 (運行 (“Get.bat”, 真, 1))
  刪除文件 (“Get.bat”)
  信息 ＝ 到文本 (讀入文件 (“Bin”))
  刪除文件 (“Bin”)
  .如果真 (尋找文本 (信息, “:” ＋ 到文本 (端口), , 假) ≠ -1)
    I ＝ 倒找文本 (信息, “ ”, , 假)
    PID ＝ 到整數(shù) (取文本右邊 (信息, 取文本長度 (信息) － I))
  .如果真結(jié)束
.如果真結(jié)束
返回 (PID)
.子程序 _檢測按鈕_被單擊
.局部變量 PID, 整數(shù)型
PID ＝ 檢測端口 (到整數(shù) (端口編輯框.內(nèi)容))
.判斷開始 (PID ≠ 0)
  信息框 (“當(dāng)前端口已被使用，進程PID為 ” ＋ 到文本 (PID), 0, “提示”)
.默認(rèn)
  信息框 (“當(dāng)前端口未使用”, 0, “提示”)
.判斷結(jié)束

運行結(jié)果：

總結(jié)

以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，謝謝大家對腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接

您可能感興趣的文章:

相關(guān)文章

易語言操作EDB數(shù)據(jù)庫的方法
在本篇內(nèi)容里小編給各位分享了關(guān)于易語言操作EDB數(shù)據(jù)庫的方法和教學(xué)，對此有需要的朋友們可以學(xué)習(xí)下。
2019-01-01
易語言使用標(biāo)簽實現(xiàn)進度條功能的代碼
今天小編就為大家分享一篇關(guān)于易語言使用標(biāo)簽實現(xiàn)進度條功能的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語言更改窗口標(biāo)題的方法
在本篇內(nèi)容中小編給大家分享的是關(guān)于易語言更改窗口標(biāo)題的方法和步驟，需要的朋友們可以跟著學(xué)習(xí)下。
2018-12-12
易語言實現(xiàn)163郵箱登錄獲取郵件列表等操作的代碼
今天小編就為大家分享一篇關(guān)于易語言實現(xiàn)163郵箱登錄獲取郵件列表等操作的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語言到半角詳解
在本篇文章中我們給大家分享的是關(guān)于易語言到半角相關(guān)知識點內(nèi)容，有興趣的朋友們跟著學(xué)習(xí)下。
2019-01-01
易語言制作造夢西游桌面版教學(xué)
在本篇內(nèi)容中小編給大家整理了易語言制作造夢西游桌面版教學(xué)內(nèi)容，對此有需要的朋友們可以學(xué)習(xí)下。
2019-01-01
易語言取數(shù)組下標(biāo)命令使用講解
今天小編就為大家分享一篇關(guān)于易語言取數(shù)組下標(biāo)命令使用講解，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語言啟用多線程方法實例分享
這篇文章主要介紹了易語言啟用多線程方法實例分享的相關(guān)資料,需要的朋友可以參考下
2023-03-03
總結(jié)易語言發(fā)送數(shù)據(jù)的方法
在本文里小編給大家整理的是關(guān)于用易語言發(fā)送數(shù)據(jù)的教程內(nèi)容，需要的讀者們學(xué)習(xí)下。
2018-12-12
易語言提高安全性的方法總結(jié)
在本篇內(nèi)容里小編給大家分享了關(guān)于易語言提高安全性的方法內(nèi)容，對此有需要的朋友們可以參考下
2019-01-01