Что нового

Кликер-генератор кода для ПЛК HIMAX

knightnv

Новичок
Сообщения
2
Репутация
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.

Примечания:

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

Вложения

  • 1.jpg
    1.jpg
    91.7 КБ · Просмотры: 16
  • 2.jpg
    2.jpg
    100.6 КБ · Просмотры: 16
Автор
K

knightnv

Новичок
Сообщения
2
Репутация
0
Вот такой получился, функцию свою выполняет, норм.
Код:
#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
 
Верх