随笔 - 49  文章 - 0 评论 - 19 
<2007年6月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 51707
  • 排名 - 104

最新评论

阅读排行榜

评论排行榜

 ;需在目录下建立一个SouceAddress.txt文件,并确保每一行写入一个IP或主机名(域名)
 ;程序会生成一个PingList.txt文件用于记录结果(如果不存在则创建,存在则追加)

$g_szVersion = "Ping_Computer"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

#Include <date.au3>  ;引用date.au3用来显示日期与时间

;设置两个变量
$SouceAddress="SouceAddress.txt"
$PingList="PingList.txt"

;设置快捷方式Ctrl+Alt+x
HotKeySet("^!x", "MyExit")

;打开并向$PingList文件是写入日期时间
$info=FileOpen($PingList,1)
FileWrite($info, "==========================================" & @CRLF)
FileWrite($info, "日期/时间:" & _now() & @CRLF)   ;写入当前日期与时间
FileWrite($info, "==========================================" & @CRLF)

;关闭文件
fileclose($info)

;定义退出功能
Func MyExit()
    Exit
EndFunc

;定义Ping功能,并写入指定文件
func SPing()
 ;打开$SouceAddress文件,如果出错则提示信息并退出程序
 $file = FileOpen($SouceAddress, 0)
 If $file = -1 Then
  MsgBox(0, "错误", "目标文件不存在或无法打开。")
  Exit
 EndIf

    While 1
  ;读取一行,并判断是否最后,是则退出
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
  $var = Ping($line,250)
  If $var Then
   FileWrite($info, $line & "主机在线,收发时间长度是"  & $var & @CRLF)
  Else
   ;按@error出错参数输出信息
   Select
    case @error=1
     FileWrite($info, $line & "目标主机离线" & @CRLF)
    case  @error=2
     FileWrite($info, $line & "目标主机无法连接" & @CRLF)
    case  @error=3
     FileWrite($info, $line & "目标错误" & @CRLF)
    case  @error=4
     FileWrite($info, $line & "其它错误" & @CRLF)
   EndSelect
  EndIf
  FileWrite($info, @CRLF)
    Wend
     FileClose($file)
EndFunc

posted on 2007-06-22 15:44 疾风随影 阅读(322) 评论(0)  编辑 收藏 引用 所属分类: Script & Batch column
只有注册用户登录后才能发表评论。