• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-局域網群PING工具

AutoIT3 奇跡の海 2年前 (2017-11-07) 549次瀏覽 已收錄 0個評論 掃描二維碼

代碼簡介

AutoIt3(au3)源碼-局域網群PING工具
AU3局域網群PING工具 ,批量檢測在線主機。

源代碼

NOTRAYICON 
$g_szVersion = "My Script 1.1" 
If WinExists($g_szVersion) Then Exit 
AutoItWinSetTitle($g_szVersion)  
#include <GUIConstants.au3> 
 
GUICreate("群PING工具", 198, 76) 
GUICtrlCreateGroup("", 12, 0, 129, 69) 
$Button1 = GUICtrlCreateButton("開始", 152, 8, 37, 21) 
$Button2 = GUICtrlCreateButton("退出", 152, 44, 37, 21) 
 
GUICtrlCreateLabel("IP前綴", 16, 16, 38, 17) 
$Input1 = GUICtrlCreateInput("192.168.0", 60, 12, 73, 17) 
GUICtrlSetLimit(-1,15) 
GUICtrlCreateLabel("從", 20, 44, 16, 17) 
GUICtrlCreateLabel("到", 80, 44, 16, 17) 
$Input2 = GUICtrlCreateInput("1", 40, 44, 29, 17, $ES_NUMBER) 
GUICtrlSetLimit(-1,3) 
$Input3 = GUICtrlCreateInput("255", 104, 44, 29, 17, $ES_NUMBER) 
GUICtrlSetLimit(-1,3) 
GUICtrlCreateGroup("", -99, -99, 1, 1) 
 
GUISetState(@SW_SHOW) 
 
While 1 
$msg = GuiGetMsg() 
Select 
Case $msg = $GUI_EVENT_CLOSE or  $msg = $button2 
  Exit 
Case $msg = $Button1 
  start() 
EndSelect 
WEnd 
Exit 
 
func start() 
$IPPREFIX = GUICTRLREAD($INPUT1) 
$startIP =  GUICTRLREAD($INPUT2) 
$endIP   =  GUICTRLREAD($INPUT3) 
 
IF $startIP < 1 or $startIP > 255 THEN 
msgbox(0,"警告","起始IP范圍只能為1-255!") 
RETURN www.docin.comENDIF 
IF $endIP < 1 or $endIP > 255 THEN 
msgbox(0,"警告","終止IP范圍只能為1-255!") 
RETURN 
ENDIF 
 
IF Number($ENDip) < Number($startIP) THEN 
$temp =  $startIP 
$startIP = $endiP 
$endiP = $temp 
ENDIF 
 
$IPPREFIX = StringStripWS($IPPREFIX,8) 
$IPPREFIX1 = stringsplit($IPPREFIX,".") 
if $IPPREFIX1[0] <> 3 then 
msgbox(0,"警告","你輸入的IP前綴有誤!") 
RETURN 
ENDIF 
 
if $IPPREFIX1[1] = "" or $IPPREFIX1[1] < 1 or $IPPREFIX1[1] > 255 then  
msgbox(0,"警告","你輸入的IP前綴有誤!") 
RETURN 
ENDIF 
 
for $x = 2 to $IPPREFIX1[0] 
if $IPPREFIX1[$x] = "" or $IPPREFIX1[$x] < 0 or $IPPREFIX1[$x] > 255 then  
  msgbox(0,"警告","你輸入的IP前綴有誤!") 
  RETURN 
ENDIF 
next 
 
$filename = @scriptdir & "\" & @MON & "月" & @MDAY & "日" & @HOUR & "-" & @MIN & "-" 
& @SEC & ".log" 
tooltip ("探測中,請稍候...",200,0) 
FILEWRITELINE($filename,"在線主機列表:") 
for $x = $startIP to $endip 
$msg = GuiGetMsg() 
IF $msg = $GUI_EVENT_CLOSE or  $msg = $button2 THEN EXIT 
$TEMP = $IPPREFIX & "." & $x 
$online = ping($TEMP,100) 
IF $ONLINE THEN FILEWRITELINE($filename,$TEMP) 
NEXT 
tooltip ("") 
$viewlog = msgbox (68,"恭喜","探測完成,結果保存在 "& $FILENAME &" 中,是否查看?") 
if $viewlog = 6 then run(@SystemDir &"\notepad.exe " & $FILENAME) 
endfunc

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-局域網群PING工具!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果