• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-局域网群PING工具

AutoIT3 奇跡の海 2年前 (2017-11-07) 657次浏览 已收录 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,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址