[решено] Не видна вкладка на форме с Tab

saavaage · Конфигурация компьютера

Creat0R, почему нерабочий? У меня открывается вкладка Network и при нажатии на кнопку "Старт", отрабатывает проверка "Скорость работы провайдера". Проблема в том, что не видна вкладка с TotalInfo...
Да и еще там необходима библиотека GIFAnimation.au3, на нее ссылка в посте
http://forum.oszone.net/post-1470156-5.html

Переместил TotalInfo вверх (поставил перед Network) стали видны все 2 вкладки. Видно что-то накосячил именно с Network...

Вот то, о чем я сказал:

Код:

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GIFAnimation.au3>

$Form1 = GUICreate("Диагностика и Настройка", 619, 442, 189, 122)
$Tab1 = GUICtrlCreateTab(8, 16, 601, 377)
$TotalInfo = GUICtrlCreateTabItem("TotalInfo")
GUICtrlSetState(-1,$GUI_SHOW)
$Group1 = GUICtrlCreateGroup("Ошибки в работе системы", 24, 48, 281, 153)
$Label1 = GUICtrlCreateLabel("Журналы Событий", 40, 72, 99, 17)
$Edit3 = GUICtrlCreateEdit("", 212, 72, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label2 = GUICtrlCreateLabel("Ошибки обновлений", 40, 105, 107, 17)
$Edit4 = GUICtrlCreateEdit("", 212, 105, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label3 = GUICtrlCreateLabel("Проблемное оборудование", 40, 138, 142, 17)
$Edit5 = GUICtrlCreateEdit("", 212, 138, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label4 = GUICtrlCreateLabel("Наличие доступа в сеть", 40, 171, 125, 17)
$Edit6 = GUICtrlCreateEdit("", 212, 171, 81, 17)
GUICtrlSetData(-1, "Edit3")
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Информация о ПК", 321, 48, 273, 329)
$Group4 = GUICtrlCreateGroup("Разделы", 329, 246, 257, 120)
$ListView1 = GUICtrlCreateListView("Drive|TotalSpace(MB)|FreeSpace(MB)", 337, 262, 240, 95)
$DrivesArr = DriveGetDrive("Fixed") 
If IsArray($DrivesArr) Then 
    For $i = 1 To $DrivesArr[0] 
        $FreeSpace = DriveSpaceFree($DrivesArr[$i]) 
	 	$TotalSpace = DriveSpaceTotal($DrivesArr[$i])
        GUICtrlCreateListViewItem(StringUpper($DrivesArr[$i]) & "\|" & Round($TotalSpace, 1) & "|" & Round($FreeSpace, 1), $ListView1) 
    Next 
EndIf 
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("СисИнфо", 329, 64, 257, 177)
$Label9 = GUICtrlCreateLabel("Пользователь", 339, 90, 77, 17)
$Edit12 = GUICtrlCreateEdit("", 425, 90, 153, 17)
GUICtrlSetData(-1, "Edit3")
$Label10 = GUICtrlCreateLabel("Ось / разрядн.", 339, 149, 80, 17)
$Edit13 = GUICtrlCreateEdit("", 425, 149, 105, 17)
GUICtrlSetData(-1, "Edit3")
$Label11 = GUICtrlCreateLabel("CPU / Cores", 339, 178, 64, 17)
$Label12 = GUICtrlCreateLabel("Админ. права", 339, 119, 73, 17)
$Edit15 = GUICtrlCreateEdit("", 425, 119, 153, 17)
GUICtrlSetData(-1, "Edit3")
$Edit16 = GUICtrlCreateEdit("", 537, 149, 41, 17)
GUICtrlSetData(-1, "Edit3")
$Edit14 = GUICtrlCreateEdit("", 425, 178, 105, 17)
GUICtrlSetData(-1, "Edit3")
$Edit17 = GUICtrlCreateEdit("", 537, 178, 41, 17)
GUICtrlSetData(-1, "Edit3")
$Label13 = GUICtrlCreateLabel("RAM, MB", 339, 207, 50, 17)
$Edit18 = GUICtrlCreateEdit("", 425, 207, 153, 17)
GUICtrlSetData(-1, "Edit3")
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Доп. инфо", 23, 212, 281, 121)
$Label5 = GUICtrlCreateLabel("Переменные среды", 35, 229, 105, 17)
$Edit7 = GUICtrlCreateEdit("", 159, 229, 137, 17)
GUICtrlSetData(-1, "Edit3")
$Label6 = GUICtrlCreateLabel("Папка Temp", 35, 254, 66, 17)
$Edit8 = GUICtrlCreateEdit("", 159, 254, 137, 17)
GUICtrlSetData(-1, "Edit3")
$Label7 = GUICtrlCreateLabel("Файл подкачки", 35, 280, 83, 17)
$Edit9 = GUICtrlCreateEdit("", 159, 280, 137, 17)
GUICtrlSetData(-1, "Edit3")
$Label8 = GUICtrlCreateLabel("Мои документы", 35, 305, 84, 17)
$Edit10 = GUICtrlCreateEdit("", 159, 305, 137, 17)
GUICtrlSetData(-1, "Edit3")
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Разделы", 23, 344, 57, 33)
$Button8 = GUICtrlCreateButton("Службы", 98, 344, 57, 33)
$Button9 = GUICtrlCreateButton("Папки", 172, 344, 57, 33)
$Button10 = GUICtrlCreateButton("Автозагр", 247, 344, 57, 33)
GUICtrlCreateTabItem("")
GUICtrlSetState(-1,$GUI_SHOW)
$Button1 = GUICtrlCreateButton("Сохранить", 500, 400, 105, 33)
$Button2 = GUICtrlCreateButton("Печатать", 370, 400, 105, 33)
$Button3 = GUICtrlCreateButton("Настройка", 500, 7, 105, 25)
$Button17 = GUICtrlCreateButton("Обновить", 239, 400, 105, 33)

$Network = GUICtrlCreateTabItem("Network")
$Group11 = GUICtrlCreateGroup("Статистика", 16, 48, 385, 233)
$Label26 = GUICtrlCreateLabel("Connected via DIAL-UP:", 24, 70, 121, 17)
$Edit33 = GUICtrlCreateEdit("", 36, 99, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label27 = GUICtrlCreateLabel("Connected via   LAN:", 153, 70, 106, 17)
$Edit34 = GUICtrlCreateEdit("", 164, 99, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label28 = GUICtrlCreateLabel("Connected via   PROXY:", 270, 70, 122, 17)
$Edit35 = GUICtrlCreateEdit("", 290, 99, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label29 = GUICtrlCreateLabel("Modem busy:", 24, 126, 67, 17)
$Edit36 = GUICtrlCreateEdit("", 34, 155, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label30 = GUICtrlCreateLabel("Connection RAS installed:", 132, 126, 127, 17)
$Edit37 = GUICtrlCreateEdit("", 164, 155, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label31 = GUICtrlCreateLabel("Connection is offline:", 270, 126, 102, 17)
$Edit38 = GUICtrlCreateEdit("", 288, 155, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Edit39 = GUICtrlCreateEdit("", 24, 200, 369, 73, $ES_WANTRETURN)
GUICtrlSetData(-1, "Edit39")
$Label32 = GUICtrlCreateLabel("Connection description:", 23, 180, 115, 17)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group12 = GUICtrlCreateGroup("Текущая скорость адаптеров", 16, 288, 585, 97)
$Combo1 = GUICtrlCreateCombo("Combo1", 88, 307, 505, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Label34 = GUICtrlCreateLabel("Адаптер:", 32, 309, 49, 17)
$Group16 = GUICtrlCreateGroup("Трансфер (Bytes + MB):", 24, 333, 569, 44)
$Label35 = GUICtrlCreateLabel("Отдача:", 34, 353, 43, 17)
$Edit41 = GUICtrlCreateEdit("", 87, 353, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Edit42 = GUICtrlCreateEdit("", 184, 353, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Label36 = GUICtrlCreateLabel("Отдача:", 346, 353, 43, 17)
$Edit43 = GUICtrlCreateEdit("", 399, 353, 81, 17)
GUICtrlSetData(-1, "Edit3")
$Edit44 = GUICtrlCreateEdit("", 496, 353, 81, 17)
GUICtrlSetData(-1, "Edit3")
;GUICtrlCreateGroup("", -99, -99, 1, 1)
;GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group13 = GUICtrlCreateGroup("Скорость работы провайдера", 408, 48, 193, 233)
$Button15 = GUICtrlCreateButton("Старт", 428, 120, 153, 23)
$Label33 = GUICtrlCreateLabel("Проверка скорости:", 429, 92, 150, 17)
Local $sResume, $pGIF, _
        $sFileGIF = @WindowsDir & "\pchealth\helpctr\System\images\progbar.gif", _
        $Group13, $Label33, $hGIF, $Button15, $nMsg, $hMenu
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button15
            $hGIF = _GUICtrlCreateGIF($sFileGIF, "", 429, 160, $pGIF)
            GUICtrlSetState($Button15, $GUI_DISABLE)
            GUICtrlSetData($Label33, "Подождите, идет проверка.")
            Call("_SpeedInternet")
            _GIF_DeleteGIF($pGIF)
            GUICtrlSetData($Label33, $sResume)
            GUICtrlSetState($Button15, $GUI_ENABLE)
    EndSwitch
WEnd

Func _SpeedInternet()
    $sResume = 'Произошла ошибка.'
    Local $sPattern = '(?s).*?= (.*?)\r\n?.*', $sText
    Local $oIE = _IECreate("http://www.spbtlg.ru/stb.php", 0, 0)
    If Not IsObj($oIE) Then Return $sResume
    $sText = _IEBodyReadText($oIE)
    _IEQuit($oIE)
    If $sText Then
        $sText = StringRegExpReplace($sText, $sPattern, "\1")
        If Number($sText) Then $sResume = "Ваша скорость: " & $sText & ' Kbps'
    EndIf
    Return $sResume
EndFunc   ;==>_SpeedInternet
;GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState()

    While 1
        $msg = GUIGetMsg()
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

Если можно, поясните, как правильно д.б. или, хотя бы, где я неправ .... или где можно посмотреть.