#include <EditConstants.au3>
#include <GuiListBox.au3>
#include <GuiConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIComboBoxEx.au3>
#include <ListboxConstants.au3>
#include <GuiListView.au3>
#include <GuiTab.au3>
$auto = GUICreate("test", 800, 800, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_THICKFRAME, $WS_OVERLAPPEDWINDOW, $WS_TILEDWINDOW, $WS_TABSTOP))
$URL = GUICtrlCreateTab(5, 135, 787, 605)
GUICtrlCreateTabItem("Поиск URL")
GUICtrlSetState(-1, $GUI_SHOW)
GUICtrlCreateTabItem("Сканер")
$dorki = GUICtrlCreateEdit($URL, "" & @CRLF, 10, 150, 777, 600, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $LBS_DISABLENOSCROLL)
GUICtrlSendMsg(-1, $EM_LIMITTEXT, -1, 0)
GUICtrlSendMsg($dorki, $EM_SETREADONLY, True, 0)
GUICtrlSetFont(-1, 11, 180, 3)
;WinSetState($dorki, "", @SW_SHOW)
GUICtrlCreateTabItem("")
$start = GUICtrlCreateButton("Пуск", 700, 38, 90, 25)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $URL
GUISetState(@SW_LOCK)
; If GUICtrlRead($URL) = 1 Then
WinSetState($dorki, "", @SW_SHOW)
;EndIf
GUISetState(@SW_UNLOCK)
case $start
$d1 = "fgdfhgfggggggggggggggggggh"
$s = GUICtrlRead($d1)
GUICtrlSetData($dorki, $s & @CRLF, 1)
WinSetState($dorki, "", @SW_SHOW)
EndSwitch
WEnd