[VNRed_OK]

На рабочей программе не проверял - сейчас нахожусь в командировке, а в тестовом режиме работает как надо:

Код:

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $msg,$tab0input
    Local $tab, $tab0, $tab1, $tab2
    Local $tab3OK,$tab2OK,$tab0OK,$tab4OK,$tab5OK
    Local $tab2combo,$tab3combo,$tab1combo,$tab4combo,$tab5combo,$tab6combo

    GUICreate("ИЗМЕРЕНИЯ", 220, 130)

    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)

    $tab = GUICtrlCreateTab(10, 10, 200, 105)

    $tab0 = GUICtrlCreateTabItem("Connect")
    $tab0OK = GUICtrlCreateButton("Connect", 20, 50, 50, 20)
    $tab1combo = GUICtrlCreateCombo("", 80, 50, 50, 120)
    GUICtrlSetData(-1, "73|74|75|", "SIEMENS")

    $tab1 = GUICtrlCreateTabItem("DATA")
    GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)
    $tab2combo = GUICtrlCreateCombo("", 20, 50, 40, 120)
    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16", "")
    $tab3combo = GUICtrlCreateCombo("", 70, 50, 50, 120)
    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24", "")
    $tab2OK = GUICtrlCreateButton("SNR", 140, 50, 50, 20)
    $tab3OK = GUICtrlCreateButton("SPEED", 140, 80, 60, 20)

    $tab2 = GUICtrlCreateTabItem("SetUp")
    ;GUICtrlCreateLabel("Плата-Порт", 30, 80, 80, 20)
    $tab4combo = GUICtrlCreateCombo("", 20, 35, 70, 90)
    GUICtrlSetData(-1, "плата|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|", "плата")
    $tab5combo = GUICtrlCreateCombo("", 20, 60, 70, 90)
    GUICtrlSetData(-1, "порт|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|", "порт")
    $tab6combo = GUICtrlCreateCombo("", 20, 85, 110, 90)
    GUICtrlSetData(-1, "профиль|xsdl 2048/512|xsdl 4096/1024|xsdl 6144/1024|xsdl 10240/1024|", "профиль")
    $tab4OK = GUICtrlCreateButton("SHOW", 140, 40, 60, 20)
    $tab5OK = GUICtrlCreateButton("SET", 150, 65, 50, 20)

    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $tab0OK
                WinActivate("TEMP - Блокнот")
                Send("Telnet 10.10.75." & GUICtrlRead($tab1combo))
                Send("{ENTER}")
            Case $tab2OK
                WinActivate("TEMP - Блокнот")
                Send("show lre xdsl " & GUICtrlRead($tab2combo))
                Send("/" & GUICtrlRead($tab3combo))
                Send(" band-table" )
                Send("{ENTER}")
            Case $tab3OK
                WinActivate("TEMP - Блокнот")
                Send("show lre xdsl " & GUICtrlRead($tab2combo))
                Send("/" & GUICtrlRead($tab3combo))
                Send(" phisycal table linerates" )
                Send("{ENTER}")


        EndSwitch
    WEnd
EndFunc