.版本 2.DLL命令 Sleep, , "kernel32.dll", "Sleep", 公開(kāi)  .參數(shù) dwMilliseconds, 整數(shù)型

.版本 2.程序集 接口程序集.子程序 取網(wǎng)段, 文本型.參數(shù) IP地址, 文本型返回 (取文本左邊 (IP地址, 倒找文本 (IP地址, “.”, , 假))).子程序 格式化尾數(shù), 文本型.參數(shù) 文本, 文本型返回 (文本替換 (“000”, 4 － 取文本長(zhǎng)度 (文本), 取文本長(zhǎng)度 (文本), 文本)).子程序 格式化IP, 文本型.參數(shù) IP地址, 文本型返回 (取網(wǎng)段 (IP地址) ＋ 格式化尾數(shù) (到文本 (取IP尾數(shù) (IP地址)))).子程序 取IP尾數(shù), 整數(shù)型.參數(shù) IP地址, 文本型返回 (到整數(shù) (取文本右邊 (IP地址, 取文本長(zhǎng)度 (IP地址) － 取文本長(zhǎng)度 (取網(wǎng)段 (IP地址))))).子程序 ipadd, 文本型.參數(shù) ip, 文本型.局部變量 ip_arr_str, 文本型, , "4".局部變量 ip_arr_int, 整數(shù)型, , "4".局部變量 a, 整數(shù)型ip_arr_str ＝ 分割文本 (ip, “.”, ).計(jì)次循環(huán)首 (4, a)  ip_arr_int [a] ＝ 到整數(shù) (ip_arr_str [a]).計(jì)次循環(huán)尾 ()ip_arr_int [4] ＝ ip_arr_int [4] ＋ 1.如果真 (ip_arr_int [4] ＞ 255)  ip_arr_int [4] ＝ 0  ip_arr_int [3] ＝ ip_arr_int [3] ＋ 1.如果真結(jié)束.如果真 (ip_arr_int [3] ＞ 255)  ip_arr_int [3] ＝ 0  ip_arr_int [2] ＝ ip_arr_int [2] ＋ 1.如果真結(jié)束.如果真 (ip_arr_int [2] ＞ 255)  ip_arr_int [2] ＝ 0  ip_arr_int [1] ＝ ip_arr_int [1] ＋ 1.如果真結(jié)束返回 (到文本 (ip_arr_int [1]) ＋ “.” ＋ 到文本 (ip_arr_int [2]) ＋ “.” ＋ 到文本 (ip_arr_int [3]) ＋ “.” ＋ 到文本 (ip_arr_int [4]))

.版本 2.支持庫(kù) EThread.支持庫(kù) sock.支持庫(kù) iext2.支持庫(kù) spec.支持庫(kù) eAPI.支持庫(kù) iext.程序集 窗口程序集_啟動(dòng)窗口.程序集變量 網(wǎng)段, 文本型.程序集變量 許可證, 整數(shù)型.程序集變量 線(xiàn)程句柄.程序集變量 超級(jí)列表框操作類(lèi), 超級(jí)列表框操作類(lèi).程序集變量 列表框信息, 列表框信息, , "0".程序集變量 工作線(xiàn)程數(shù), 整數(shù)型.子程序 __啟動(dòng)窗口_創(chuàng)建完畢初始化 ()許可證 ＝ 創(chuàng)建進(jìn)入許可證 ().子程序 初始化.局部變量 文本組, 文本型, , "0"文本組 ＝ 取本機(jī)IP ().如果真 (取數(shù)組成員數(shù) (文本組) ≥ 1)  網(wǎng)段 ＝ 取網(wǎng)段 (文本組 [1])  IP編輯框_開(kāi)始.地址 ＝ 網(wǎng)段 ＋ “1”  IP編輯框_結(jié)束.地址 ＝ 網(wǎng)段 ＋ “255”.如果真結(jié)束超級(jí)列表框操作類(lèi)._初始化類(lèi) (超級(jí)列表框1.取窗口句柄 ()).子程序 _按鈕_開(kāi)始掃描_被單擊啟動(dòng)線(xiàn)程 (&掃描主線(xiàn)程, 到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容), 線(xiàn)程句柄).子程序 掃描主線(xiàn)程.參數(shù) 線(xiàn)程數(shù), 整數(shù)型.局部變量 bool, 邏輯型.局部變量 startip, 文本型.局部變量 stopip, 文本型.局部變量 address, 整數(shù)型清除數(shù)組 (列表框信息)超級(jí)列表框操作類(lèi).數(shù)據(jù)_全部刪除 ()startip ＝ IP編輯框_開(kāi)始.地址stopip ＝ IP編輯框_結(jié)束.地址bool ＝ 真.判斷循環(huán)首 (bool)  .判斷循環(huán)首 (工作線(xiàn)程數(shù) ≥ 線(xiàn)程數(shù))    Sleep (100)  .判斷循環(huán)尾 ()  address ＝ 申請(qǐng)內(nèi)存 (15, )  寫(xiě)到內(nèi)存 (startip, address, 15)  啟動(dòng)線(xiàn)程 (&掃描子線(xiàn)程, address, )  工作線(xiàn)程數(shù) ＝ 工作線(xiàn)程數(shù) ＋ 1  .如果 (startip ＝ stopip)    跳出循環(huán) ()  .否則    startip ＝ ipadd (startip)  .如果結(jié)束.判斷循環(huán)尾 ().子程序 掃描子線(xiàn)程.參數(shù) 參數(shù), 整數(shù)型.局部變量 time.局部變量 ip, 文本型.局部變量 局部_列表框信息, 列表框信息重定義數(shù)組 (局部_列表框信息.列標(biāo)題, 假, 3) ' 帶3個(gè)列清除數(shù)組 (局部_列表框信息.列圖片索引) ' 不使用列圖標(biāo)ip ＝ 指針到文本 (參數(shù))time ＝ 通信測(cè)試 (ip, 到整數(shù) (編輯框_延時(shí).內(nèi)容)).判斷開(kāi)始 (time ≠ -1)  局部_列表框信息.圖片索引 ＝ 0  局部_列表框信息.標(biāo)題 ＝ 格式化IP (ip)  局部_列表框信息.列標(biāo)題 [1] ＝ 取遠(yuǎn)程機(jī)器名 (ip)  局部_列表框信息.列標(biāo)題 [2] ＝ 取遠(yuǎn)程網(wǎng)卡物理地址 (ip)  局部_列表框信息.列標(biāo)題 [3] ＝ 到文本 (time)  進(jìn)入許可區(qū) (許可證)  狀態(tài)條1.置文本 (2, “存活主機(jī)數(shù)：” ＋ 到文本 (超級(jí)列表框1.取表項(xiàng)數(shù) ()))  加入成員 (列表框信息, 局部_列表框信息)  超級(jí)列表框1.全部刪除 ()  超級(jí)列表框操作類(lèi).數(shù)據(jù)_高速插入表項(xiàng) (, 列表框信息, #排序方式_表項(xiàng)標(biāo)題排序)  數(shù)組清零 (局部_列表框信息.列標(biāo)題)  退出許可區(qū) (許可證).默認(rèn).判斷結(jié)束進(jìn)入許可區(qū) (許可證)工作線(xiàn)程數(shù) ＝ 工作線(xiàn)程數(shù) － 1進(jìn)度條1.位置 ＝ (到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容) － 工作線(xiàn)程數(shù)) ÷ 到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容) × 100.判斷開(kāi)始 (工作線(xiàn)程數(shù) ＝ 0)  狀態(tài)條1.置文本 (0, “準(zhǔn)備就緒”)  進(jìn)度條1.位置 ＝ 0.默認(rèn)  狀態(tài)條1.置文本 (0, “正在掃描...”).判斷結(jié)束狀態(tài)條1.置文本 (1, “線(xiàn)程： ” ＋ 到文本 (工作線(xiàn)程數(shù)))退出許可區(qū) (許可證)釋放內(nèi)存 (參數(shù)).子程序 __啟動(dòng)窗口_將被銷(xiāo)毀刪除進(jìn)入許可證 (許可證)關(guān)閉線(xiàn)程句柄 (線(xiàn)程句柄).子程序 _按鈕2_被單擊關(guān)閉線(xiàn)程句柄 (線(xiàn)程句柄)強(qiáng)制結(jié)束線(xiàn)程 (線(xiàn)程句柄).子程序 _按鈕_導(dǎo)出_被單擊.局部變量 文本, 文本型.局部變量 i, 整數(shù)型文本 ＝ “IP地址” ＋ 取空白文本 (15) ＋ “主機(jī)名稱(chēng)” ＋ 取空白文本 (15) ＋ “MAC地址” ＋ 取空白文本 (12) ＋ “延遲” ＋ #換行符.計(jì)次循環(huán)首 (超級(jí)列表框1.取表項(xiàng)數(shù) (), i)  文本 ＝ 文本 ＋ 超級(jí)列表框1.取標(biāo)題 (i － 1, 0) ＋ 取空白文本 (10) ＋ 超級(jí)列表框1.取標(biāo)題 (i － 1, 1) ＋ 取空白文本 (10) ＋ 超級(jí)列表框1.取標(biāo)題 (i － 1, 2) ＋ 取空白文本 (10) ＋ 超級(jí)列表框1.取標(biāo)題 (i － 1, 3) ＋ #換行符.計(jì)次循環(huán)尾 ().如果真 (通用對(duì)話(huà)框1.打開(kāi) ())  .判斷開(kāi)始 (寫(xiě)到文件 (通用對(duì)話(huà)框1.文件名, 到字節(jié)集 (文本)))    信息框 (“導(dǎo)出成功！”, 64, )  .默認(rèn)    信息框 (“導(dǎo)出失敗！”, 16, )  .判斷結(jié)束.如果真結(jié)束.子程序 _編輯框_線(xiàn)程數(shù)_調(diào)節(jié)鈕被按下.參數(shù) 按鈕值, 整數(shù)型編輯框_線(xiàn)程數(shù).內(nèi)容 ＝ 到文本 (到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容) ＋ 按鈕值).子程序 _編輯框_線(xiàn)程數(shù)_內(nèi)容被改變.判斷開(kāi)始 (到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容) ≤ 0)  編輯框_線(xiàn)程數(shù).內(nèi)容 ＝ “100”  信息框 (“數(shù)值必須大于0”, 48, ).判斷 (到整數(shù) (編輯框_線(xiàn)程數(shù).內(nèi)容) ＞ 1024)  編輯框_線(xiàn)程數(shù).內(nèi)容 ＝ “100”  信息框 (“數(shù)值小于1024”, 48, ).默認(rèn).判斷結(jié)束