如何判断telnet窗口不存在，并弹出错误信息

bin0131

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet("{F8}","ports")
GUICreate("中兴交换机开端口程序",450,450)
$telnet=GUICtrlCreateInput("10.",120,30,200,20)
GUICtrlCreateLabel("请输入ip地址：",5,30,110,20)
$b=GUICtrlCreateButton("登陆按钮",350,30,60,20)
$login=GUICtrlCreateInput("",120,60,200,20)
GUICtrlCreateLabel("请输入登陆用户名：",5,60,110,20)
$password=GUICtrlCreateInput("",120,90,200,20)
GUICtrlCreateLabel("请输入login密码：",5,90,110,20)
$enable=GUICtrlCreateInput("",120,120,200,20)
GUICtrlCreateLabel("请输入enable密码：",5,120,110,20)
$port=GUICtrlCreateInput("",120,150,200,20)
GUICtrlCreateLabel("请输入要开的端口：",5,150,110,20)
GUISetState(@SW_SHOW)
Func ports()
        $s=WinGetHandle("Telnet","")
        WinActivate($s)
send(GUICtrlRead($login) & "{enter}" & GUICtrlRead($password) & "{enter}" & "enable" & "{enter}" & GUICtrlRead($enable) & "{enter}")
send("set port " & GUICtrlRead($port) & " enable" & "{enter}" & "save" & "{enter}")
  EndFunc
while 1
        $msg=GUIGetMsg()
        select
                case $msg=$gui_event_close
                        ExitLoop
                case $msg=$b
                        run("telnet " & GUICtrlRead($telnet))
        EndSelect
        WEnd

[ 本帖最后由 bin0131 于 2009-2-3 21:24 编辑 ]

bin0131

现在是telnet成功后窗口能激活，我问的是telnet窗口不存在时如何弹出错误信息

bin0131

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("中兴交换机开端口程序",450,450)
$telnet=GUICtrlCreateInput("10.",120,30,200,20)
GUICtrlCreateLabel("请输入ip地址：",5,30,110,20)
$b=GUICtrlCreateButton("开端口按钮",350,30,80,30)
$login=GUICtrlCreateInput("",120,60,200,20)
GUICtrlCreateLabel("请输入登陆用户名：",5,60,110,20)
$password=GUICtrlCreateInput("",120,90,200,20)
GUICtrlCreateLabel("请输入telnet密码：",5,90,110,20)
$enable=GUICtrlCreateInput("",120,120,200,20)
GUICtrlCreateLabel("请输入enable密码：",5,120,110,20)
$port=GUICtrlCreateInput("",120,150,200,20)
GUICtrlCreateLabel("请输入要开的端口：",5,150,110,20)
GUISetState(@SW_SHOW)
Func ports()
     $s=ping(GUICtrlRead($telnet),200)
           if $s Then
        run("telnet " & GUICtrlRead($telnet))
        WinActivate("Telnet","")
   send(GUICtrlRead($login) & "{enter}" & GUICtrlRead($password) & "{enter}" & "enable" & "{enter}" & GUICtrlRead($enable) & "{enter}")
   send("set port " & GUICtrlRead($port) & " enable" & "{enter}" & "save" & "{enter}")
Else
        MsgBox(0,"交换机状态","设备不通")
        EndIf
  EndFunc
while 1
        $msg=GUIGetMsg()
        select
                case $msg=$gui_event_close
                        ExitLoop
                case $msg=$b
                     ports()  
        EndSelect
        WEnd