Автор Тема: Кликер-генератор кода для ПЛК HIMAX  (Прочитано 712 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн knightnv [?]

  • Новичок
  • *
  • Сообщений: 2
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Версия AutoIt: 3.

Описание:
Имеем запущенный VirtualBox, Excell файл-Теглист, на хосте или в виртуталке тоже, не принципиально.
1. В виртуалке в программе SilWorX находим мышкой пустое место после последнего аддона.
2. Правой кнопкой мыши на этом месте вызывает контекстное меню, выбираем PasteTupical
3. Левой кнопкой мыши клик на месте в пункте 1.
4. В появившимся окне тыкаем правой кнопкой мыши во второй столбец второй строки.
5. В появившимся меню выбираем Search and Replace.
6. В поле Replace With вставляем значение из Экселя (адрес начальной ячейки можно задать переменной, при следующем прогоне цикла, будет браться следующая)
7. Жмем ReplaceAll, в появившимся окне жмем Yes, в следующем Close, Close, OK.

Примечания:

Все всплывающие окна появляются всегда в одном и том-же


Внимание: Для просмотра прикреплённых файлов необходимо Войти или Зарегистрироваться

Русское сообщество AutoIt

Кликер-генератор кода для ПЛК HIMAX
« Отправлен: Март 29, 2017, 14:36:11 »

Оффлайн knightnv [?]

  • Новичок
  • *
  • Сообщений: 2

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Кликер-генератор кода для ПЛК HIMAX
« Ответ #1, Отправлен: Апрель 03, 2017, 13:44:58 »
Вот такой получился, функцию свою выполняет, норм.
Код: AutoIt [Выделить]
#include <Misc.au3>
#include <Excel.au3>
;HotKeySet('{1}'1'_exit') ; Завершим скрипт на 1
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("+!d", "ShowMessage") ; Shift-Alt-d для вызова сообщения

;MsgBox(4096, 'Сообщение', 'Нажмите горячую клавишу Pause/Break,' & @CRLF & 'чтобы увидеть как это работает.')

#Region Опрос
;~ MsgBox(0,'Настройка','Наведите мышь на окно Экселя/блокнота')
;~ Do
;~     $pos2 = MouseGetPos()
;~     ToolTip('Пробел для приминения ' & $pos2[0] & '.' & $pos2[1])
;~  Until _IsPressed(20)
;~ MsgBox(0,'Настройка','Наведите мышь на окно Экселя/блокнота2')
;~ Do
;~     $pos3 = MouseGetPos()
;~     ToolTip('Пробел для приминения ' & $pos3[0] & '.' & $pos3[1])
;~  Until _IsPressed(20)

 MsgBox(0,'Настройка','Наведите мышь на место для нового аддона')
Do
    $pos = MouseGetPos()
    ToolTip('Пробел для приминения ' & $pos[0] & '.' & $pos[1])
Until _IsPressed(20)
#EndRegion Опрос
ToolTip('')

For $i = 1 To 6 Step 1

MouseClick('right',$pos[0],$pos[1])
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{DOWN}")
send ("{ENTER}")
MouseClick('left',$pos[0],$pos[1])
MouseClick('right',744,572)
MouseClick('left',845,627)
MouseClick ( "left", 770, 582,2)

MouseClick ( "left", 499,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos2[0],$pos2[1]) ;выбор экселя или блокнота

;MouseClick ( "left", 472, 1498) ;выбор экселя или блокнота
;MouseClick ( "left", 1980, 1496) ;выбор экселя или блокнота
;MouseClick ( "left", 480, 655,4)
MouseClick ( "left", 1645, 947,2); !!!нужно указать в блокноте координаты!!!
send('^x')
send('{DEL}')
;MouseClick ( "left", 2512, 13) ;свернул
MouseClick ( "left", 780, 580,2)
send('^v')
MouseClick ( "left", 892, 613) ;replace all
send ("{ENTER}")
MouseClick ( "left", 768, 786) ;Close at the end
MouseClick ( "left", 940, 519) ;Close replace
MouseClick ( "left", 532, 769) ;Close endend


MouseClick ( "left", 368,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos3[0],$pos3[1]) ;выбор экселя или блокнота
MouseClickDrag("left", 716, 943, 425, 943) ; !!!нужно указать в блокноте координаты!!!
send('^x')
send('{DEL}')
sleep(700)
MouseClick('left',200+$pos[0],$pos[1]+15 ,7) ;на валуе едит
sleep(500)
send('^v')
sleep(500)
send ("{ENTER}")
MouseClick ( "left", 368,1500) ;выбор экселя или блокнота
;MouseClick ( "left", $pos3[0],$pos3[1]) ;выбор экселя или блокнота

MouseClickDrag("left", 716, 943, 425, 943) ; !!!нужно указать в блокноте координаты, те же что и выше !!!
send('^x')
send('{DEL}')
sleep(500)
MouseClick('left',200+$pos[0],$pos[1]+30 ,7) ;на чанелл едит
send('^v')
send ("{ENTER}")
sleep(500)

MouseClickDrag("left", $pos[0]-10, $pos[1]-10, $pos[0]+785, $pos[0]+470) ; выделяем новый аддном
send('^c')
sleep(500)

MouseClick ( "left", 2543,1013, 10) ;сдвигаем окно вниз
;MouseClick('left',$pos2[0],$pos2[1])
;MouseClick ( "left", $pos3[0],$pos3[1],2)
;Msgbox(0, " ","x: "&$pos[0]&' y: '&$pos[1])
Next

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Скрипт приостановлен')
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func ShowMessage()
    MsgBox(4096, "", "Это сообщение.")
EndFunc

 


Русское сообщество AutoIt

Re: Кликер-генератор кода для ПЛК HIMAX
« Ответ #1 Отправлен: Апрель 03, 2017, 13:44:58 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
8 Ответов
15701 Просмотров
Последний ответ Февраль 18, 2010, 18:48:23
от Kaster
19 Ответов
14537 Просмотров
Последний ответ Май 26, 2012, 22:48:12
от Dimmak
9 Ответов
7175 Просмотров
Последний ответ Февраль 09, 2011, 19:12:33
от lakemaster
1 Ответов
2620 Просмотров
Последний ответ Август 08, 2011, 07:22:00
от Trans
3 Ответов
4449 Просмотров
Последний ответ Август 22, 2011, 11:28:24
от Trans
1 Ответов
2921 Просмотров
Последний ответ Сентябрь 05, 2011, 23:22:25
от nu3dell
2 Ответов
3834 Просмотров
Последний ответ Февраль 22, 2012, 12:41:26
от joiner
0 Ответов
2044 Просмотров
Последний ответ Июнь 24, 2012, 10:14:20
от madmasles
2 Ответов
2903 Просмотров
Последний ответ Ноябрь 12, 2012, 18:05:55
от AZJIO
0 Ответов
588 Просмотров
Последний ответ Ноябрь 05, 2015, 18:16:21
от Yashied