易語言局域網(wǎng)控制系統(tǒng)
更新時間:2018年12月05日 14:26:32 作者:易語言源碼教程
今天小編就為大家分享一篇關(guān)于易語言局域網(wǎng)控制系統(tǒng),小編覺得內(nèi)容挺不錯的,現(xiàn)在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧
局域網(wǎng)控制系統(tǒng)
.版本 2 .程序集 窗口程序集_啟動窗口 .子程序 __啟動窗口_創(chuàng)建完畢 .子程序 _按鈕_單發(fā)送_被單擊 .判斷開始 (單選框2.選中 = 真) .判斷開始 (運(yùn)行 (“shutdown -s -m \\” + 編輯框_目標(biāo)IP.內(nèi)容 + “ -t ” + 編輯框_倒數(shù)秒.內(nèi)容, 假, 1) = 真) 信息框 (“發(fā)送成功”, #信息圖標(biāo), ) .默認(rèn) 信息框 (“發(fā)送失敗”, #警告圖標(biāo), ) .判斷結(jié)束 .默認(rèn) .判斷結(jié)束 .子程序 _按鈕_發(fā)送_被單擊 .局部變量 個數(shù), 文本型 .局部變量 r, 文本型, , "4" .局部變量 t, 文本型, , "4" .局部變量 s, 整數(shù)型 r = 分割文本 (編輯框_起始IP.內(nèi)容, “.”, ) t = 分割文本 (編輯框_結(jié)束IP.內(nèi)容, “.”, ) 個數(shù) = 到文本 (到整數(shù) (t [4]) - 到整數(shù) (r [4])) .判斷開始 (r [1] ≠ t [1] 且 r [2] ≠ t [2] 且 r [3] ≠ t [3]) 信息框 (“IP范圍設(shè)置有誤”, #警告圖標(biāo), ) .默認(rèn) .判斷開始 (選擇框_確認(rèn).選中 = 真) 按鈕_發(fā)送.禁止 = 真 s = 到整數(shù) (r [4]) .計次循環(huán)首 (到整數(shù) (個數(shù)), s) 運(yùn)行 (“shutdown -s -m \\” + r [1] + “.” + r [2] + “.” + r [3] + “.” + 到文本 (s) + “ -t ” + 編輯框_秒數(shù).內(nèi)容, 假, 1) .計次循環(huán)尾 () 信息框 (“全部發(fā)送完成,總計發(fā)送了[” + 個數(shù) + “]個目標(biāo)!”, #信息圖標(biāo), ) 按鈕_發(fā)送.禁止 = 假 .默認(rèn) 信息框 (“為了防止誤操作導(dǎo)致的各種后果,請先確定你要這么做,然后再次發(fā)送!”, #警告圖標(biāo), ) .判斷結(jié)束 .判斷結(jié)束
運(yùn)行結(jié)果:
總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請查看下面相關(guān)鏈接