Must AutoIt
Сообщения: 3054
Благодарности: 1009
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
saavaage,
В справке написано:
Цитата:
|
To create a new control on an existing tabitem use GUISwitch($hWin,$tabitem) to select it and just create your new control. Don't forget to close your tabitem creation with GUICtrlCreateTabItem("").
|
его нужно ставить после создания последнего таба.
В первом коде проблема в том что цикл начинается до создания дополнительных элементов, поэтому до них дело не доходит.
Я бы так сделал:
читать дальше »
Код:  #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 <GIFAnimation.au3>
#include <IE.au3>
Global $pGIF, $sFileGIF = @WindowsDir & "\pchealth\helpctr\System\images\progbar.gif", $Group13, $Label33, $hGIF, $Button15, $nMsg, $hMenu
$Form1 = GUICreate("Диагностика и Настройка", 619, 442, 189, 122)
$Tab1 = GUICtrlCreateTab(8, 16, 601, 377)
$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)
$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")
$Group13 = GUICtrlCreateGroup("Скорость работы провайдера", 408, 48, 193, 233)
$Button15 = GUICtrlCreateButton("Старт", 428, 120, 153, 23)
$Label33 = GUICtrlCreateLabel("Проверка скорости:", 429, 92, 150, 17)
$hGIF = _GUICtrlCreateGIF($sFileGIF, "", 429, 160, $pGIF)
_GIF_PauseAnimation($pGIF)
GUICtrlSetState($hGIF, $GUI_HIDE)
$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")
$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")
For $i = 1 To UBound($DrivesArr)-1
$FreeSpace = DriveSpaceFree($DrivesArr[$i])
$TotalSpace = DriveSpaceTotal($DrivesArr[$i])
GUICtrlCreateListViewItem(StringUpper($DrivesArr[$i]) & "\|" & Round($TotalSpace, 1) & "|" & Round($FreeSpace, 1), $ListView1)
Next
$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")
$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")
$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("")
$Button1 = GUICtrlCreateButton("Сохранить", 500, 400, 105, 33)
$Button2 = GUICtrlCreateButton("Печатать", 370, 400, 105, 33)
$Button3 = GUICtrlCreateButton("Настройка", 500, 7, 105, 25)
$Button17 = GUICtrlCreateButton("Обновить", 239, 400, 105, 33)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button15
GUICtrlSetState($hGIF, $GUI_SHOW)
_GIF_ResumeAnimation($pGIF)
GUICtrlSetState($Button15, $GUI_DISABLE)
GUICtrlSetData($Label33, "Подождите, идет проверка.")
$sResume = _SpeedInternet()
GUICtrlSetState($hGIF, $GUI_HIDE)
_GIF_PauseAnimation($pGIF)
GUICtrlSetData($Label33, $sResume)
GUICtrlSetState($Button15, $GUI_ENABLE)
EndSwitch
WEnd
Func _SpeedInternet()
Local $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
|
