Недавние сообщения

Страницы: [1] 2 3 ... 10
1
dimcomp
как вариант - запустить код в редакторе. пусть работает сутки. тогда точно строку найдешь.
насчет рекурсии - смотри свои функции( не библиотечные), в которых есть рекурсии

2
Общие вопросы по AutoIt / Re: Добавить иконку в ImageList в правильном формате
« Последний ответ от vla855733902 Отправлен Сегодня в 10:35:51 »
Вот те на! Первый раз слышу!
3
По теме. Смотри исходник после обфускации. В нем номер строки. Смотри циклы с рекурсией. Где то пропущено условие. И превышается колличество циклрв рекурсии
Если верить номеру строки ошибки после обфускации то ошибка в подключаемом инклюде GuiStatusBar.au3 в функции
Код: AutoIt [Выделить]
Func _GUICtrlStatusBar_SetText($hWnd, $sText = "", $iPart = 0, $iUFlag = 0)
    If $Debug_SB Then __UDF_ValidateClassName($hWnd, $__STATUSBARCONSTANT_ClassName)

    Local $fUnicode = _GUICtrlStatusBar_GetUnicodeFormat($hWnd)

    Local $iBuffer = StringLen($sText) + 1
    Local $tText
    If $fUnicode Then
        $tText = DllStructCreate("wchar Text[" & $iBuffer & "]")
        $iBuffer *= 2
    Else
        $tText = DllStructCreate("char Text[" & $iBuffer & "]")
    EndIf
    DllStructSetData($tText, "Text", $sText)
    If _GUICtrlStatusBar_IsSimple($hWnd) Then $iPart = $SB_SIMPLEID
    Local $iRet
    If _WinAPI_InProcess($hWnd, $__ghSBLastWnd) Then
        $iRet = _SendMessage($hWnd, $SB_SETTEXTW, BitOR($iPart, $iUFlag), $tText, 0, "wparam", "struct*")
    Else
        Local $tMemMap
        Local $pMemory = _MemInit($hWnd, $iBuffer, $tMemMap)
        _MemWrite($tMemMap, $tText)
        If $fUnicode Then
            $iRet = _SendMessage($hWnd, $SB_SETTEXTW, BitOR($iPart, $iUFlag), $pMemory, 0, "wparam", "ptr")
        Else
            $iRet = _SendMessage($hWnd, $SB_SETTEXT, BitOR($iPart, $iUFlag), $pMemory, 0, "wparam", "ptr")
        EndIf
        _MemFree($tMemMap)
    EndIf
    Return $iRet <> 0
EndFunc   ;==>_GUICtrlStatusBar_SetText

а именно в строке
Код: AutoIt [Выделить]
If $Debug_SB Then __UDF_ValidateClassName($hWnd, $__STATUSBARCONSTANT_ClassName)

Что тут не так?)
4
Общие вопросы по AutoIt / Re: Добавить иконку в ImageList в правильном формате
« Последний ответ от balpesha1 Отправлен Сегодня в 04:59:27 »
куль)))
5
Общие вопросы по AutoIt / Re: Добавить иконку в ImageList в правильном формате
« Последний ответ от antoxaxaxuxu2 Отправлен Сегодня в 04:06:56 »
Очень забавная мысль
6
Общие вопросы по AutoIt / Re: Добавить иконку в ImageList в правильном формате
« Последний ответ от vla855733902 Отправлен Сегодня в 03:03:58 »
Есть интересные моменты!
7
Дни рождения / С днём рождения God13th!
« Последний ответ от Представитель Сообщества Отправлен Сегодня в 01:00:23 »
От имени всего Русского сообщества AutoIt поздравляем Вас God13th с днём рождения!



Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
8
Код: AutoIt [Выделить]
$sStr = 'RIВхКонтейнер.#nvl("ПризИПЮЛ","01")||to_char("ДатаПолучения","YYMMDD")||to_char("Ид")=F0170111159880000000000000022|F01701111599395|U01701111600023|U017011116'

$aArray = StringRegExp($sStr, '(?:^|\D)(\d{6,15})(?:\D|$)', 3)
$sStr = ''
$iU = UBound($aArray) - 1
For $i = 0 To $iU
    $sStr &= $aArray[$i] & (($i = $iU) ? '' : ', ')
Next
MsgBox(32, '', '[' & $sStr & ']')

9
Общие вопросы по AutoIt / Добавить иконку в ImageList в правильном формате
« Последний ответ от musicstashall Отправлен Вчера в 23:07:09 »
Всем доброго. Имеются следующие функции для рисования иконки при перетаскивании элементов TreeView. Хотел добавить еще одну иконку в лист для рисования ее в запрещенных зонах TreeView.

Код: AutoIt [Выделить]

Func TreeCreateDragImage($hWnd, $hItem)
    ;if treeview has imagelist, use image from it
    If _GUICtrlTreeView_GetNormalImageList($hWnd) <> 0 Then Return _GUICtrlTreeView_CreateDragImage($hWnd, $hItem)
    ;if not, create a bitmap of dragitem's text rectangle and put it into imagelist.
    Local $aItemRect = _GUICtrlTreeView_DisplayRect($hWnd, $hItem, True)
    Local $iImgW = $aItemRect[2]-$aItemRect[0]
    Local $iImgH = $aItemRect[3]-$aItemRect[1]
    Local $hTreeDC = _WinAPI_GetDC($hWnd)
    Local $hMemDC = _WinAPI_CreateCompatibleDC($hTreeDC)
    Local $hMemBmp = _WinAPI_CreateCompatibleBitmap($hTreeDC, $iImgW, $iImgH)
    Local $hMemBmpInvalid = _WinAPI_Create32BitHBITMAP(_WinAPI_ShellExtractIcon(@SystemDir & '\shell32.dll', 131, $iImgW, $iImgH), 1, 1) ; вторая иконка
    Local $hMemBmpOld = _WinAPI_SelectObject($hMemDC, $hMemBmp)
    _WinAPI_BitBlt($hMemDC, 0, 0, $iImgW, $iImgH, $hTreeDC, $aItemRect[0], $aItemRect[1], $SRCCOPY)
    _WinAPI_SelectObject($hMemDC, $hMemBmpOld)
    _WinAPI_ReleaseDC($hWnd, $hTreeDC)
    _WinAPI_DeleteDC($hMemDC)
    Local $hImgList = _GUIImageList_Create($iImgW, $iImgH, 6)
    _GUIImageList_Add($hImgList, $hMemBmp)
    _GUIImageList_Add($hImgList, $hMemBmpInvalid)
    _WinAPI_DeleteObject($hMemBmp)
    _WinAPI_DeleteObject($hMemBmpInvalid)
    Return $hImgList
EndFunc

; Draw drag image
; by Gary Frost (gafrost) (?)
Func DrawDragImage(ByRef $hControl, ByRef $aDrag, $Index = 0)
    Local $tPoint, $hDC
    $hDC = _WinAPI_GetWindowDC($hControl)
    $tPoint = _WinAPI_GetMousePos(True, $hControl)
    _WinAPI_InvalidateRect($hControl)
    _GUIImageList_Draw($aDrag, $Index, $hDC, DllStructGetData($tPoint, "X")-10, DllStructGetData($tPoint, "Y")-8)
    _WinAPI_ReleaseDC($hControl, $hDC)
EndFunc   ;==>DrawDragImage
 


Добавлять пытаюсь иконку $hMemBmpInvalid. Потом хочу использовать таким образом:

Код: AutoIt [Выделить]
$hTreeDragImage = TreeCreateDragImage($hTree, $hDragItem)

If $DragIsList And Not $HoverIsList Then ; условие
    DrawDragImage($hTree, $hTreeDragImage, 1) ; рисуется вторая иконка
Else
    DrawDragImage($hTree, $hTreeDragImage) ; рисуется первая иконка
EndIf
 


Не рисуется вторая иконка. Помогайте, народ  :)
10
Обфускатор на помойку. На данном языке золота не напишешь. Можно просто набыдлокодить и сам черт рога сломает, пытаясь постичь логику :)
По теме. Смотри исходник после обфускации. В нем номер строки. Смотри циклы с рекурсией. Где то пропущено условие. И превышается колличество циклрв рекурсии
Страницы: [1] 2 3 ... 10