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

Страницы: 1 2 [3] 4 5 ... 10
21
Код: AutoIt [Выделить]
#include <Misc.au3>
HotKeySet("{INSERT}", "_Exit")
HotKeySet("{SPACE}", "_SpacePress")

Func _Exit()
   Exit
EndFunc

Func _SpacePress()
   For $i=1 To 5
      Send($i)
      Sleep(5)
   Next
EndFunc

Func _ShiftPress()
   Send("E")
   Send("R")
EndFunc

While True
   If _IsPressed(10) Then
      _ShiftPress()
      AdlibRegister("_ShiftPress", 5000)
      While _IsPressed(10)
         Sleep(10)
      WEnd
      AdlibUnRegister("_ShiftPress")
   EndIf
   Sleep(10)
WEnd

Спасибо огромное. Всё работает как надо. Ещё один маленький вопрос: Если мне нужна задержка между нажатием клавиши E и R, то я после команды Send("E") вставляю команду Sleep с нужной мне задержкой?
22
Общие вопросы по AutoIt / Re: [Мышь, клавиатура] Проблема с ControlClick
« Последний ответ от hope2018 Отправлен Вчера в 13:09:16 »
Код: AutoIt [Выделить]
HotKeySet( "{Space}", "C1")

While 1
  Sleep(250)
WEnd

Func C1()
 ControlClick("title", "Lineage 2", 0, "Left", 1, 621, 666) ;должна кликнуть по окну с заголовком Title и содержащим текст Lineage 2 с идентификатором элемента 0 левой кнопкой по координатам 621 666
EndFunc

 


Врядли у окна заголовок=Title, и идентификатор проверьте с помощью  AutoIt Window Info.

Title: Lineage II
Class: L2UnrealWWindowsViewportWindow
Cursor ID: 0

ControlClick("Lineage II", "", 0, "Left", 1, 621, 666) Правильно?
23
Общие вопросы по AutoIt / Re: [Мышь, клавиатура] Проблема с ControlClick
« Последний ответ от hedji Отправлен Вчера в 11:59:13 »
Код: AutoIt [Выделить]
HotKeySet( "{Space}", "C1")

While 1
  Sleep(250)
WEnd

Func C1()
 ControlClick("title", "Lineage 2", 0, "Left", 1, 621, 666) ;должна кликнуть по окну с заголовком Title и содержащим текст Lineage 2 с идентификатором элемента 0 левой кнопкой по координатам 621 666
EndFunc

 


Врядли у окна заголовок=Title, и идентификатор проверьте с помощью  AutoIt Window Info.
24
Общие вопросы по AutoIt / [Мышь, клавиатура] Проблема с ControlClick
« Последний ответ от hope2018 Отправлен Вчера в 11:46:55 »
Здравстуйте, у меня проблема с командой ControlClick.
Не понимаю как она работает.
Вот код:
Dim $M = 0
While 1
HotKeySet( "{Space}", "C1")
HotKeySet( "{Esc}", "C2")
If $M = 1 Then
ControlClick("title", "Lineage 2", 0, "Left", 1, 621, 666)
$M = 0
ElseIf $M = 0 Then
Sleep(100)
EndIf
WEnd
Func C1()
$M = 1
EndFunc
Func C2()
Exit
EndFunc
Можете найти ошибку, и пояснить что я не правельно делаю?
Я Новичок
25
Код: AutoIt [Выделить]
#include <Misc.au3>
HotKeySet("{INSERT}", "_Exit")
HotKeySet("{SPACE}", "_SpacePress")

Func _Exit()
   Exit
EndFunc

Func _SpacePress()
   For $i=1 To 5
      Send($i)
      Sleep(5)
   Next
EndFunc

Func _ShiftPress()
   Send("E")
   Send("R")
EndFunc

While True
   If _IsPressed(10) Then
      _ShiftPress()
      AdlibRegister("_ShiftPress", 5000)
      While _IsPressed(10)
         Sleep(10)
      WEnd
      AdlibUnRegister("_ShiftPress")
   EndIf
   Sleep(10)
WEnd

26
GUI - Графический интерфейс пользователя / Re: Excel в GUI (заполнение формы)
« Последний ответ от ra4o Отправлен Вчера в 09:54:40 »
Цитировать
С помощью TAB осуществляется перемещение по полям "xAPP"
Ладно с "xAPP" Вы извращаетесь , но что мешает Вам с Excel всё прочитать и работать с массивом ?
Цитировать
т.к. основное решение недоступно для использования.
"основное" это какое ? У Вас подход , как по мне изначально не рациональный. Ведь поля в "xAPP" тоже имеют каждый своё имя и можно ведь в конкретное поле вставлять данные из конкретной ячейки Excel.
27
GUI - Графический интерфейс пользователя / Re: Excel в GUI (заполнение формы)
« Последний ответ от rogalicc Отправлен Вчера в 08:25:23 »
С помощью TAB осуществляется перемещение по полям "xAPP".
Данное решение подразумевает работу через буфер обмена, т.к. основное решение недоступно для использования.

Пример кода ниже.

проблемы:
-сбивается и копирует строку целиком а не инфо из 1 ячейки;
-down выполняется в произвольный момент (может sleep увеличить). 


Code
For $j = 50 to 1 Step -1

   For $i = 20   to 1 Step -1
      WinActivate("Microsoft Excel - temp")
      Sleep(250)
      Send("^c")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("xAPP)")
      Sleep(250)
      Send("^v")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("Microsoft Excel - temp")
      Sleep(250)
      Send("^c")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("xAPP)")
      Sleep(250)
      Send("^v")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("Microsoft Excel - temp")
      Sleep(250)
      Send("^c")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("xAPP")
      Sleep(250)      
      Send("^v")
      Send("{LCTRL}")
      Sleep(250)
      Send("{TAB}")
      Sleep(250)
      WinActivate("Microsoft Excel - temp")
      Sleep(250)
      Send("{LEFT}")   
      Sleep(250)
      Send("{LEFT}")
      Sleep(250)
      Send("{LEFT}")
      Sleep(250)
      Send("{Down}")
      Sleep(250)   
      
   Next
   
   
Next
28
Здравствуйте. Нужен небольшой скрипт для компьютерной игры. Задача скрипта: 1. Прожимать клавиши 1,2,3,4,5 когда я прожимаю пробел. 2. Прожимать клавиши E, R с интервалом 5 секунд пока зажат шифт (шифт зажимаю я руками :)). Подскажите как такое реализовать. А лучше покажите, а то в программировании я не силён.
29
Стол заказов / [Автоматизация] Поиск на странице PDF и печать совпадения
« Последний ответ от TiranCool Отправлен Январь 16, 2018, 22:40:43 »
Версия AutoIt: 3.6.6 3.

Описание: Требуется ускорить процесс печати, при нажатии горячей клавиши (F5) из ячейки берутся циферки и в файле PDF ищется совпадение, после чего совпадение печатается в формате А6, это возможно? Если еще возможно, то помечать данную ячейку цветом зеленым- выполнено, красным нет совпадений.

30
Общие вопросы по AutoIt / Re: функция определения время существования файла
« Последний ответ от Tempo Отправлен Январь 16, 2018, 22:22:05 »
Код: AutoIt [Выделить]
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <Date.au3>

MsgBox($MB_ICONINFORMATION + $MB_TOPMOST, "Пример", _FileTimeDiff(@ScriptFullPath))

Func _FileTimeDiff($sFile)
    Local $aT = FileGetTime($sFile, $FT_CREATED)
    If @error Then Return SetError(@error, @extended, 0)
    Local $iDiff = _DateDiff("s", $aT[0] & "/" & $aT[1] & "/" & $aT[2] & " " & $aT[3] & ":" & $aT[4] & ":" & $aT[5], _NowCalc())
    If @error Then Return SetError(@error, @extended, 0)
    Local $sFormat = Int($iDiff / 86400) & " д. "
    $iDiff = Mod($iDiff, 86400)
    $sFormat &= Int($iDiff / 3600) & " ч. "
    $iDiff = Mod($iDiff, 3600)
    $sFormat &= Int($iDiff / 60) & " м. "
    $iDiff = Mod($iDiff, 60)
    $sFormat &= Int($iDiff) & " с. "
    Return SetError(0, 0, $sFormat)
EndFunc   ;==>_FileTimeDiff

Страницы: 1 2 [3] 4 5 ... 10