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

Страницы: [1] 2 3 ... 10
2
Здравствуйте.
Имею такой пример:
(нажмите для показа/скрытия)

Хотелось бы реализовать эффект постепенного появления флага (в PowerPoint этот эффект называется "выцветание"). Т.е. в цикле нужно менять прозрачность картинки с определенной задержкой. Есть в справке функция _WinAPI_AlphaBlend, которая, скорее всего, может мне помочь, но что-то не удается прикрутить.
3
Общие вопросы по AutoIt / Re: [Сеть, интернет] Получение данных о канале Youtube
« Последний ответ от Tempo Отправлен Сегодня в 01:48:04 »
Код: AutoIt [Выделить]
Global $sURL, $vRet, $vName, $iError
$sURL = InputBox(Chr(0), "Введите ссылку на канал/видео:", Default, Default, 400, 100)
If @error Then Exit
SplashTextOn(Null, "Подождите...", 140, 40, Default, Default, 33)
If Not StringInStr($sURL, "https://") Then $sURL = "https://" & $sURL
If Not StringInStr($sURL, "/channel/") Then
    $vRet = StringRegExp(BinaryToString(InetRead($sURL, 17), 4), '<meta.*?itemprop="channelId".*?content="(.*?)">', 1)
    If Not @error Then
        $sURL = "https://www.youtube.com/channel/" & $vRet[0]
    Else
        SplashOff()
        MsgBox(16, Null, "Не удалось получить кол-во подписчиков")
        Exit
    EndIf
EndIf
$vRet = BinaryToString(InetRead($sURL, 17), 4)
$vName = StringRegExp($vRet, '<meta.*?name="title".*?content="(.*?)">', 1)
If Not @error Then $vName = $vName[0]
$vRet = StringRegExp($vRet, '<span.*?class=".*?subscribed.*?title=".*?>(.*)></span>', 1)
$iError = @error
SplashOff()
If Not $iError Then
    MsgBox(64, $vName, StringRegExpReplace($vRet[0], "[^0-9]", Null) & " подписчиков")
Else
    MsgBox(16, Null, "Не удалось получить кол-во подписчиков")
EndIf
 

4
Дни рождения / С днём рождения SiAl, ViktorF, RUVATA!
« Последний ответ от Представитель Сообщества Отправлен Сегодня в 01:00:16 »
От имени всего Русского сообщества AutoIt поздравляем Вас SiAl, ViktorF, RUVATA с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
5
Общие вопросы по AutoIt / Re: [Сеть, интернет] Получение данных о канале Youtube
« Последний ответ от igorit Отправлен Сегодня в 00:41:04 »
Спасибо!
6
Общие вопросы по AutoIt / Re: [Сеть, интернет] Получение данных о канале Youtube
« Последний ответ от Dima1337 Отправлен Вчера в 23:54:53 »
Код: AutoIt [Выделить]
#include <IE.au3>
#include <Array.au3>

$url = InputBox("Тест","Введите ссылку на видео:")
$oIE = _IECreate($url,'',1) ;Убрать в ручную звук в IE
_IELoadWait($oIE)
$oLinks = _IELinkGetCollection($oIE)

For $oLink in $oLinks
    If StringInStr($oLink.href, "/channel/") Then
        $url = $oLink.href
        $uChannel = StringTrimLeft($url,32)
        ExitLoop
    EndIf
Next

ConsoleWrite("Channel: " & $uChannel & @CRLF)

_IENavigate($oIE,'https://socialblade.com/')
$oChannel = _IEGetObjById($oIE, 'SearchInput')
_IEFormElementSetValue($oChannel, $uChannel)
$hwnd = _IEPropertyGet($oIE, "hwnd")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
Sleep(1000)

_IELoadWait($oIE)

$oHTML=_IEBodyReadText($oIE)

$oHTML = StringTrimLeft($oHTML,StringInStr($oHTML,"Subscribers",0,2) + 11)
$oHTML = StringSplit($oHTML, ' ')
$subs = StringTrimLeft($oHTML[1],1)
ConsoleWrite("Subscribers: " & $subs & @CRLF)

_IEQuit($oIE)

MsgBox(0,'Тест','Подписчиков у блогера: ' & $subs)

7
Стол заказов / нажать "F3" в окне
« Последний ответ от vconstantine Отправлен Вчера в 22:31:25 »
Версия AutoIt: 3.3.14.2

Описание:
добрый день.
При работе в программе CDK Drive пользователю необходимо нажимать на функциональную кнопку F3 при появлении надписи: Replacement part numbers.
эта надпись озночает то, что для  part number  существует
Replacement в виде списка представленным ниже надписи.
в случае примера:   part number будет OILCNG5W20   и замена его будет состоять из двух других номеров 08798-9032 и 15400-PLM-A02. Очень важной особенностью является то, что эти два номера выделены системой автомотически на что указывает значок "♦" перед каждым номером. Пользователь при запросе OILCNG5W20  видит замену этого номера двумя другими. ему остается просто нажать на клавиатуре F3 один раз  и затем "Enter". количество нажатия на ввод зависит от количество номеров в списке замены основного номера. в приведенном примера  это два номера. ( пользователь должен начать на ввод дважды ( системе требуется какое-то время для обработки первого нажатия. пауза между нажатиями была бы желательна (1 сек достаточно).

я буду блогадарен за любую оказанную помощь в написании этого скрипта.  еще раз о сути и кратко.
в окне программы CDK Drive появляется надпись Replacement part numbers.
скрипт увидя эту надпись проверяет наличие значка "♦" перед каждым номером из списка, если нет, то ничего не делает, если есть, то нажимает один раз F3  и потом нужное количество раз Enter.

спасибо большое



Примечания:
8
Общие вопросы по AutoIt / Re: Защита от декомпиляции .a3x
« Последний ответ от Prog Отправлен Вчера в 20:21:45 »
Поскольку AutoIt интерпретируемый, то для выполнения программы нужен ее исходный код. Другими словами, вытащить исходник можно.
9
Общие вопросы по AutoIt / Защита от декомпиляции .a3x
« Последний ответ от rybik Отправлен Вчера в 17:49:43 »
exe файл легко декомпилируется с помощью [Декомпилятор исходного кода].exe, но вот .a3x этой прогой не декомпилировать. Насколько защищён данный формат от декомпиляции?
10
Общие вопросы по AutoIt / Re: Иконка в трее
« Последний ответ от Tempo Отправлен Вчера в 17:36:02 »
Страницы: [1] 2 3 ... 10