Всем привет!
Добавил два лейбла и два едита, после закрытия программы - стала зависать в процессах. Подскажите в чем проблема? Я в autoit новичок.
Спасибо.
Добавил два лейбла и два едита, после закрытия программы - стала зависать в процессах. Подскажите в чем проблема? Я в autoit новичок.
Спасибо.
Код:
Opt("TrayIconHide", 1) ;0=show, 1=hide tray icon
#include <GuiConstantsEx.au3>
#include <GuiButton.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#Include <Date.au3>
#Include <GuiDateTimePicker.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GuiRichEdit.au3>
#include "Resources\resources.au3"
#include <Array.au3>
#include <Excel.au3>
Global $oExcel
Global $cn
Global $rs
Global $IsConneted
Global $arrt
Global $InFirstDate
Global $InLastDate
_Main()
Func _Main()
$hGui = GUICreate("GO",318,200,100,50)
GuiSetIcon("Resources\honda_icon.ico", 0)
GuiCtrlCreateLabel("Начальная дата", 30, 50)
$InFirstDate = _GUICtrlRichEdit_Create($hGui, "", 130, 50, 150, 30)
$InFirstDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InFirstDate, $InFirstDate_default)
_GuiCtrlRichEdit_SetCharColor($InFirstDate, Dec(808080))
GuiCtrlCreateLabel("Конечная дата", 30, 110)
$InLastDate = _GUICtrlRichEdit_Create($hGui, "", 130, 110, 150, 30)
$InLastDate_default="Вставте дату в формате" & @CRLF & "01.01.2001"
_GuiCtrlRichEdit_SetText($InLastDate, $InLastDate_default)
_GuiCtrlRichEdit_SetCharColor($InLastDate, Dec(808080))
$otch = GUICtrlCreateButton("Excel отчет",50,150,200,39)
GuiSetState()
while 1
$msg = GuiGetMsg()
If $msg=-3 Then Exit
If $msg = $otch Then
ConsoleWrite("Отчет" & @LF)
;GetData()
EndIf
WEnd
EndFunc
.
.
.