如何掩藏多余的输入框，标签那

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)
$xinhao=GUICtrlCreateInput("",120,180,200,20)
GUICtrlCreateLabel("请输入交换机型号：",5,180,110,20)
GUISetState(@SW_SHOW)
Func ports()
        $nub=GUICtrlRead($xinhao)
        Select
                case $nub="zx"
                                zx()
                        case $nub="dl3226"
                                dlink3226()
                EndSelect
  EndFunc
          func zx()
                $s=ping(GUICtrlRead($telnet),500)
           if $s Then
        run("telnet " & GUICtrlRead($telnet))
        WinActivate("Telnet","")
                sleep(100)
   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
Func dlink3226()
如隐藏$password
                $s=ping(GUICtrlRead($telnet),500)
           if $s Then
        run("telnet " & GUICtrlRead($telnet))
        WinActivate("Telnet","")
                sleep(100)
     Send(GUICtrlRead($login) & "{enter}" )
        send(GUICtrlRead($enable),1)
         send( "{enter}")
         sleep(100)
         send("{enter}" & "{down}" & "{down} " & "{enter}")
        Else
        MsgBox(0,"交换机状态","交换机设备不通")
        EndIf
        EndFunc
while 1
        $msg=GUIGetMsg()
        select
                case $msg=$gui_event_close
                        ExitLoop
                case $msg=$b
                     ports()  
        EndSelect
        WEnd

[ 本帖最后由 bin0131 于 2009-2-5 10:37 编辑 ]