局域網控制系統
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
.版本 2.程序集 窗口程序集_啟動窗口.子程序 __啟動窗口_創建完畢.子程序 _按鈕_單發送_被單擊.判斷開始 (單選框2.選中 ＝ 真) .判斷開始 (運行 (“shutdown -s -m \\” ＋ 編輯框_目標IP.內容 ＋ “ -t ” ＋ 編輯框_倒數秒.內容, 假, 1) ＝ 真) 信息框 (“發送成功”, #信息圖標, ) .默認 信息框 (“發送失敗”, #警告圖標, ) .判斷結束.默認.判斷結束.子程序 _按鈕_發送_被單擊.局部變量 個數, 文本型.局部變量 r, 文本型, , "4".局部變量 t, 文本型, , "4".局部變量 s, 整數型r ＝ 分割文本 (編輯框_起始IP.內容, “.”, )t ＝ 分割文本 (編輯框_結束IP.內容, “.”, )個數 ＝ 到文本 (到整數 (t [4]) － 到整數 (r [4])).判斷開始 (r [1] ≠ t [1] 且 r [2] ≠ t [2] 且 r [3] ≠ t [3]) 信息框 (“IP范圍設置有誤”, #警告圖標, ).默認 .判斷開始 (選擇框_確認.選中 ＝ 真) 按鈕_發送.禁止 ＝ 真 s ＝ 到整數 (r [4]) .計次循環首 (到整數 (個數), s) 運行 (“shutdown -s -m \\” ＋ r [1] ＋ “.” ＋ r [2] ＋ “.” ＋ r [3] ＋ “.” ＋ 到文本 (s) ＋ “ -t ” ＋ 編輯框_秒數.內容, 假, 1) .計次循環尾 () 信息框 (“全部發送完成，總計發送了[” ＋ 個數 ＋ “]個目標！”, #信息圖標, ) 按鈕_發送.禁止 ＝ 假 .默認 信息框 (“為了防止誤操作導致的各種后果，請先確定你要這么做，然后再次發送！”, #警告圖標, ) .判斷結束.判斷結束 |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
