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

Страницы: [1] 2 3 ... 10
1
От имени всего Русского сообщества AutoIt поздравляем Вас frz, DarkCrush, Shootclick, Александр К с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
2
Общие вопросы по AutoIt / Изменение разрешения экрана
« Последний ответ от Fantasy22 Отправлен Вчера в 21:04:32 »
Здравствуйте!
Как сделать чтобы изменялось  разрешение экрана из выбранного списка
С функцией _WinAPI_EnumDisplaySettings разобрался как передать список разрешений в Combo, а вот с функцией _ChangeScreenRes никак
Код: AutoIt [Выделить]
#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIGdi.au3>
#include <WindowsConstants.au3>

Local $i = 0, $hForm, $aData, $idCombo

$hForm = GUICreate('Test', 300, 100)
$aData = _WinAPI_EnumDisplaySettings('', $ENUM_CURRENT_SETTINGS)
$aData = StringIsDigit(_ArrayToString($aData, '|', 1))
GUICtrlCreateLabel('Разрешение:', 15, 29, 62, 14)
$idCombo = GUICtrlCreateCombo('', 90, 25, 165, 21, BitOR($CBS_DROPDOWNLIST,$WS_VSCROLL))
GUISetState(@SW_SHOW)

While 1
     $aData = _WinAPI_EnumDisplaySettings('', $i)
    If IsArray($aData) Then
        GUICtrlSetData(-1, $aData[0] & ' x ' & $aData[1] & ' x ' & $aData[2] & ' bit' & ' x ' & $aData[3] & ' Hz' & @CRLF)
        EndIf
    $i += 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
    EndSwitch
WEnd
 

3
Общие вопросы по AutoIt / Re: [Сеть, интернет] WebDav - как использовать?
« Последний ответ от Skif_off Отправлен Вчера в 20:29:37 »
Если кому интересно: дополнение для работы с Яндекс.диск для использования с файловыми менеджерами Total Commander и Double Commander и плагином WebDAV. Работает с выделенными файлами/папками: позволяет удалять, публиковать, закрывать публичные, проверять, открыты ли. Во втором и четвёртом случае показывает окно с результатом - ссылку(и) можно скопировать как есть или оформить: HTML (тег a) или BBcode (тег url).
Дополнительно может показать занятый и доступный размеры облака.

P.S. Хотя, когда начинаешь пользоваться "WinHttp.WinHttpRequest.5.1", то этот объект уже не кажется таким сложным ;)
4
Общие вопросы по AutoIt / Re: Как сделать чтобы 2 кода работали вместе?
« Последний ответ от Alofa Отправлен Вчера в 19:50:03 »
OffTopic
... 1 код) работает в большинство OS в некоторые не работает.
2 код) Работает в этих некоторых OS...
А так разве не работает?
Код: AutoIt [Выделить]
5
Общие вопросы по AutoIt / Re: Как сделать чтобы 2 кода работали вместе?
« Последний ответ от Vovsla Отправлен Вчера в 18:28:07 »
примерно так

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


Select
    Case @OSBuild = 'одни ОС'
        OS1()
    Case @OSBuild = 'другие ОС'
        OS2()
    Case Else
        'сообщение, что таких ОС не знаем...'
EndSelect

Func OS1()
    #include <_SysTray.au3>
    $var1 = 'setup.exe'
    $var2 = 0
    $var3 = 1
    $var4 = _SysTrayIconIndex($var1, $var2, $var3)
    $var5 = 1
    _SysTrayIconRemove($var4)
    Opt('TrayIconHide', 1)
    Opt('TrayIconHide', 0)
EndFunc

Func OS2()
    #include <GuiToolbar.au3>

    Global $tray, $search = "Smms"

    $tray = ControlGetHandle("[class:Shell_TrayWnd]", "", "ToolbarWindow321")
    If FindClick($search) Then Exit

    ControlClick("[class:Shell_TrayWnd]", "", "Button1")
    $tray = ControlGetHandle("[class:NotifyIconOverflowWindow]", "", "ToolbarWindow321")
    If Not FindClick($search) Then MsgBox(0, "", "Кнопка с текстом '" & $search & "' не найдена", 7)
EndFunc

Func FindClick($text)
  For $i = 0 To _GUICtrlToolbar_ButtonCount($tray) - 1
    If StringInStr(_GUICtrlToolbar_GetButtonText($tray, _GUICtrlToolbar_IndexToCommand($tray, $i)), $text) > 0 Then
      _GUICtrlToolbar_DeleteButton($tray, _GUICtrlToolbar_IndexToCommand($tray, $i))
      Return 1
    EndIf
  Next
  Return 0
EndFunc
 

6
По идее на странице в любом случае должна быть ссылка на сам pdf, т.е. его можно скачать
А распечатать можно так
Код: AutoIt [Выделить]
ShellExecuteWait('имя файла', '', '', 'print')
 


Была бы ссылка на страницу можно было бы сделать сохранение


Добавлено: Вчера в 18:02:42
Или просто текст страницы
7
Стол заказов / Re: Загрузка в музыки в облако в iTunes
« Последний ответ от DOMINANT Отправлен Вчера в 17:18:50 »
iTunes поддерживает COM

Код: AutoIt [Выделить]
$iTunesApp = CreateObject("iTunes.Application") ; Запускает iTunes
$ver = $iTunesApp.Version
MsgBox(0, "Версия iTunes", $ver) ; для примера выводит версию iTunes
 


Остальные COM методы нашёл здесь http://www.joshkunz.com/iTunesControl/main.html среди них нужно найти метод для поиска трека например $iTunesApp.Find сам пока не нашел
8
Стол заказов / Re: Загрузка в музыки в облако в iTunes
« Последний ответ от SimplyZ Отправлен Вчера в 16:57:38 »
Видимо мне ещё нужно освоить iTunes... :-[ что-то совсем не совпадает с Вашим алгоритмом... Поиск в Медиатеке не находит ничего, в магазине всё платно
Там у них подписка есть. Первые 3 месяца бесплатно
9
Стол заказов / Re: Загрузка в музыки в облако в iTunes
« Последний ответ от ra4o Отправлен Вчера в 16:51:05 »
Видимо мне ещё нужно освоить iTunes... :-[ что-то совсем не совпадает с Вашим алгоритмом... Поиск в Медиатеке не находит ничего, в магазине всё платно
10
Стол заказов / Re: Загрузка в музыки в облако в iTunes
« Последний ответ от SimplyZ Отправлен Вчера в 15:44:46 »
Образец текстового файла, хотя бы с несколькими строками дайте.

Несколько строчек:
Remember Me Magic Tracks
Night Drops House Freak
On A Trip Da Hool
My Personal Tech House Vol. 1
All Eyes On K1T Vol.2 Kattch
The Receiver Den5ity
UNDER PRESSURE O. Lopez Beat
Shake the Room (Club Mix) Jason Rivas
Su Cuerpo Felipe C
Vagabond Ricardo Drue
Страницы: [1] 2 3 ... 10