.版本 2
.程序集變量 IP, 文本型, , "0"
.程序集變量 cnt, 整數型
.子程序 _按鈕1_被單擊, , , 處理IP
IP = 分割文本 (編輯框1.內容, #換行符, )
cnt = 取數組下標 (IP, )
.子程序 _按鈕2_被單擊, , , 掃描
SCAN (6666)
.子程序 _按鈕3_被單擊, , , 掃描
SCAN (6668)
.子程序 SCAN
.參數 port, 整數型
.局部變量 tmp, 整數型
.計次循環首 (cnt, tmp)
.如果真 (客戶1.連接 (IP [tmp], port))
編輯框2.加入文本 (IP [tmp], #換行符)
.如果真結束
處理事件 ()
.計次循環尾 ()
不需要BAT....麻煩~