.版本 2.程序集 窗口程序集_啟動(dòng)窗口.子程序 檢測端口, 整數(shù)型, , 如果被占用返回進(jìn)程PID.參數(shù) 端口, 整數(shù)型, 可空.參數(shù) 信息, 文本型, 參考 可空.局部變量 I, 整數(shù)型.局部變量 PID, 整數(shù)型寫到文件 (“Get.bat”, 到字節(jié)集 (“netstat -aon|findstr ” ＋ #引號(hào) ＋ 到文本 (端口) ＋ #引號(hào) ＋ “ >>Bin”)).如果真 (運(yùn)行 (“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)前端口已被使用，進(jìn)程PID為 ” ＋ 到文本 (PID), 0, “提示”).默認(rèn)  信息框 (“當(dāng)前端口未使用”, 0, “提示”).判斷結(jié)束