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

Страницы: [1] 2 3 ... 10
1
Общие вопросы по AutoIt / Re: Узнать аппаратную поддержку процессора
« Последний ответ от Prog Отправлен Сегодня в 22:24:37 »
mekez  [?]
Цитировать
если не использовать ничего стороннего)
Нужна ассемблерная вставка в код autoit.
2
Общие вопросы по AutoIt / Re: Узнать аппаратную поддержку процессора
« Последний ответ от mekez Отправлен Сегодня в 22:22:16 »
Узнать можно выполнив инструкцию CPUID.
За эти инструкции в курсе, находил примеры. Но вот как раз интересен вопрос, как это можно попробовать реализовать на Autoit, если не использовать ничего стороннего)
3
Общие вопросы по AutoIt / Re: Узнать аппаратную поддержку процессора
« Последний ответ от Prog Отправлен Сегодня в 22:03:39 »
Узнать можно выполнив инструкцию CPUID.
4
Общие вопросы по AutoIt / Re: Узнать аппаратную поддержку процессора
« Последний ответ от Skif_off Отправлен Сегодня в 20:37:30 »
mekez
Средствами самого, похоже, нет, как варианты: смотреть, что покажет WMI; что-нибудь консольное; может быть, что-то есть здесь HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0\. Есть ещё такая штука.
Поделитесь, пожалуйста, найденным решением.

Upd:
CPU-Z можно запустить без GUI, с параметром -txt=filename, а потом посмотреть получившийся текстовый файл.
5
Стол заказов / Re: Добавка текста в два поля - в программе и нажатие на кнопку
« Последний ответ от Garrett Отправлен Сегодня в 19:32:38 »
Ищите причину у себя.
23922.zip [48.0 МБ]
6
Стол заказов / Re: Добавка текста в два поля - в программе и нажатие на кнопку
« Последний ответ от perven1 Отправлен Сегодня в 18:31:01 »
Garrett  [?]
Цитировать
Сперва откройте программу Boilsoft Video Splitter.

Программа Boilsoft Video Splitter - открыта.
Скрипт запускается клавишей F5
В скрипте путь к файлу в переменной $sFilePath - указан.

Цитировать
И никак иначе!
Значит сперва нажимается кнопка Открыть, затем заполняются поля... а затем опять нажимается кнопка Открыть.
И ничего дальше не происходит. Открыт проводник, где предлагает выбрать файл. Файл сам не выбирается (в скрипте путь к файлу в переменной $sFilePath - указан.)
То есть после того, как нажимается кнопка Открыть и открывается Проводник  - скрипт останавливается и дальше не идет.
7
Стол заказов / Re: Добавка текста в два поля - в программе и нажатие на кнопку
« Последний ответ от Garrett Отправлен Сегодня в 16:54:19 »
perven1  [?]
Цитировать
2.Нажимается кнопка Открыть (Button 1)
Это 1!

Цитировать
Вставляются нужные значения в поля Edit2 и Edit3
Это 2!
И никак иначе!

Цитировать
Дальше ничего не происходит.
Сперва откройте программу Boilsoft Video Splitter.
В SciTE откройте скрипт и запустите его клавишей F5 (предварительно указав в скрипте путь к файлу в переменной $sFilePath).
Всё должно работать.
8
Автоматизация IE и Web-интерфейса / [Автоматизация] IE - Сравнение картинок
« Последний ответ от ssvih-miaa Отправлен Сегодня в 16:34:44 »
Доброго времени суток всем форумчанам!
Суть: нашел часть кода на форуме
Код: AutoIt [Выделить]
#include <File.au3>
#include <Array.au3>
#include <GDIPlus.au3>

$aFileList = _FileListToArray(@ScriptDir, '*.jpg', 1)
$sResult = ''
$step = 500 ; шаг при получении массива пикселей, чем больше - тем быстрее работает скрипт
$iN = 10 ; количество наиболее часто встречающихся цветов в массиве, которое берется с начала массива
$iR = 100 ; % совпадения картинок, для отбора на удаление

Dim $aResult[$aFileList[0] + 1][4]

$aResult[0][0] = $aFileList[0]

For $i = 1 To $aFileList[0]
    $avArray = _fon($aFileList[$i], $step, $iN)
    $sTring = ''
    For $j = 1 To $iN
        $sTring &= $avArray[$j][0] & '|'
    Next

    $sTring = StringTrimRight($sTring, 1)
    $aResult[$i][0] = $aFileList[$i]
    $aResult[$i][2] = $avArray[0][0]
    $aResult[$i][3] = $sTring
    $sResult &= $sTring & '%'
Next

$sResult = StringTrimRight($sResult, 1)

For $i = 1 To $aResult[0][0]
    $sResult1 = StringRegExpReplace($sResult, $aResult[$i][3], '*')

    $aSplit = StringSplit($sResult1, '%')

    For $j = 1 To $aSplit[0]
        If $j <> $i Then
            StringReplace($aSplit[$j], '*', '')
            $iT = (@extended / $iN * 100)
            $aSplit[$j] = $aResult[$j][0] & '      ' & $iT & ' %'
            If $iT >= $iR And $aResult[$i][2] > $aResult[$j][2] Then $aResult[$j][1] = 'DEL'
        Else
            $aSplit[$j] = ''
        EndIf
    Next
    $aSplit[0] = $aResult[$i][0]
    _ArrayDisplay($aSplit) ; отображение соотоношения "похожести" картинок, в 0-м элементе - картинка, с которой сравниваются остальные
Next

ReDim $aResult[$aResult[0][0] + 1][2]

_ArrayDisplay($aResult) ; отображение списка картинок, "DEL" - картинки, помеченные для удаления


Func _fon($sPath, $iStep, $iCount)
    Local $hBitmap, $tMap, $Width, $Height, $bData, $i, $aTemp
    _GDIPlus_Startup()
    $hBitmap = _GDIPlus_BitmapCreateFromFile($sPath)
    $Width = _GDIPlus_ImageGetWidth($hBitmap)
    $Height = _GDIPlus_ImageGetHeight($hBitmap)
    $tMap = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $Width, $Height, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
    $bData = DllStructGetData(DllStructCreate('byte[' & ($Width * $Height * 4) & ']', DllStructGetData($tMap, 'Scan0')), 1)
    _GDIPlus_BitmapUnlockBits($hBitmap, $tMap)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_Shutdown()
    $bData = StringTrimLeft($bData, 2)
    $bData = '######FF' & $bData

    $aTemp = StringRegExp($bData, '(\S{1,30})FF', 3)
    _ArrayTrim($aTemp, 24, 1)
    $aTemp[0] = UBound($aTemp) - 1

    For $i = 1 To $aTemp[0] Step $iStep
        Assign($aTemp[$i], Eval($aTemp[$i]) + 1)
    Next

    Dim $uArray[$aTemp[0]][2] = [[0]]

    For $i = 1 To $aTemp[0] Step $iStep
        If Eval($aTemp[$i]) > 0 Then
            $uArray[0][0] += 1
            $uArray[$uArray[0][0]][0] = $aTemp[$i]
            $uArray[$uArray[0][0]][1] = Eval($aTemp[$i])
            Assign($aTemp[$i], -1)
        EndIf
    Next
    ReDim $uArray[$uArray[0][0] + 1][2]

    _ArraySort($uArray, 1, 1, 0, 1)

    ReDim $uArray[$iCount + 1][1]
    $uArray[0][0] = $Width * $Height

    Return $uArray

EndFunc   ;==>_fon
 

Самостоятельно не хватает знаний разобраться, необходимо реализовать задачу:
1. Получить координаты картинки в браузере по адресу "httр://rubserf.ru/handserf.php", отскринить картинку и сравнить её с уже сохраненными картинками на сервере или ПК, после чего найти 100% совпадение и получить имя файла с которым происходила проверка и совпадение 100%.
9
Стол заказов / Re: Добавка текста в два поля - в программе и нажатие на кнопку
« Последний ответ от perven1 Отправлен Сегодня в 16:28:27 »
Garrett , вписал путь к файлу.
При запуске скрипта происходит следующее:
1.Вставляются нужные значения в поля Edit2 и Edit3
2.Нажимается кнопка Открыть (Button 1) - и открывается Проводник (предлагая выбрать какой-нибудь файл).

Дальше ничего не происходит.
То есть видеофайл не открывается автоматически. Соответственно - не нажимаются кнопки Button7 и Button2.
10
Стол заказов / Re: Многоуровневая структура DLL
« Последний ответ от musicstashall Отправлен Сегодня в 15:49:49 »
А что, всё таки, последует, в контексте приведенного кода, в сделующих строках:

Код: AutoIt [Выделить]
Local $tOptions = DllStructCreate($tagOPTIONS, Нужен указатель если вы работаете со структурой не вами созданной)
Local $tWinCompattrData = DllStructCreate($tagWINCOMPATTRDATA, Нужен указатель если вы работаете со структурой не вами созданной)
 


Пытаюсь собрать сейчас свой скрипт, посмотрим, что получится))
Страницы: [1] 2 3 ... 10