[Мышь, клавиатура] Клик и Печать

[Cirnobk]

Походу у вас в монастыре злые бакамодераторы, которых надо чесать за ушком чтобы они не закрывали тему из за не так сказанного слова. И мне как человеку с популярной имиджборды для девочек-анимешниц такое не привычно, ну да ладно, сделаю репост. Всеж мы люди, надеюсь кто-то откликнется. Мне очень не охота лезть на зарубежный форум за помощью, когда у меня есть вы :beer:
-
Предыдущий пост:
Не буду затруднять себя формальными правилами. Думаю вы и так хорошо поймете, чего я хочу.
Помогите написать скрипт. Этот язык слишком тяжелый для меня...
Мне нужно чтобы когда я нажимаю горячую клавишу скрипт делал клик мышью туда, где сейчас стоит мой курсор, печатал слово, снова делал клик мышью, печатал слово, делал клик мышью и т.д. Буду рад если поможете.
Я накалякал вот это, но оно не работает как надо. Ненавижу программирование...

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

HotKeySet('^{F10}', '_hk1')

While 1
   Sleep(100)
WEnd

Func _hk1()

_WinWaitActivate("UIRibbonDockTop")
MouseClick("left")
Send('abc')
MouseClick("left")
EndFunc

 

[alex33]

Если нужно чтобы он зацикливался, то так:

Global $pos=False
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

HotKeySet('^{F10}', '_hk1')

While 1
    Sleep(100)
WEnd

Func _hk1()
	$pos = Not $pos
	While $pos
		_WinWaitActivate("UIRibbonDockTop")
		MouseClick("left")
		Send('abc')
		MouseClick("left")
		Sleep(100)
	WEnd
EndFunc

 

[Cirnobk]

Если нужно чтобы он зацикливался, то так:

Global $pos=False
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

HotKeySet('^{F10}', '_hk1')

While 1
    Sleep(100)
WEnd

Func _hk1()
	$pos = Not $pos
	While $pos
		_WinWaitActivate("UIRibbonDockTop")
		MouseClick("left")
		Send('abc')
		MouseClick("left")
		Sleep(100)
	WEnd
EndFunc

Спасибо за отклик, добрый человек.
Но всё равно не работает. Зацикливать не надо, надо чтобы при вводе 9 слов скрипт остановился до следующего нажатия ф10.
Программирование как магия, столько волшебных слов... И ошибешься в одном - призовешь демона из ада.
А программисты для меня как маги с бородами в мантиях и с посохами.
Вот, что с этого получается. Хотя в простейшем кликере "Кибор" у меня всё работало, но там нет функции привязке к горячей клавише.
youtube.com/watch?v=UavAXvQsrAM&feature=youtu.be

 

[alex33]

Global $trigger=False
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

HotKeySet('^{F10}', '_hk1')

While 1
    Sleep(100)
WEnd

Func _hk1()
	If $trigger Then Return False
    $trigger = True
    For $k = 1 To 9
        _WinWaitActivate("UIRibbonDockTop")
        MouseClick("left")
        Send('abc')
        MouseClick("left")
        Sleep(100)
    Next
	$trigger=False
EndFunc

 

[Cirnobk]

Тот же эффект. Неужели этот кликер не способен на это.

 

[Alofa]

А если так:

HotKeySet('{F10}', '_hk1')
While 1
    Sleep(100)
WEnd
Func _hk1()
    MouseClick('left', Default, Default, 2)
    Send('Двойной клик хорошо работает в Word-е, на несуществующих строчках')
EndFunc

OffTopic:

Не поймите меня неправильно (я ведь здесь, как и вы - новичок), но на кой... было вообще писать вот это:

Не буду затруднять себя формальными правилами...
... Ненавижу программирование...

madmasles мне кажется прав, вам нужно было в Отзывы и пожелания по работе проекта и форума обратиться.
А судя по последней фразе вам точно в Стол Заказов.

 

[Cirnobk]

А если так:

HotKeySet('{F10}', '_hk1')
While 1
    Sleep(100)
WEnd
Func _hk1()
    MouseClick('left', Default, Default, 2)
    Send('Двойной клик хорошо работает в Word-е, на несуществующих строчках')
EndFunc

OffTopic:

Не поймите меня неправильно (я ведь здесь, как и вы - новичок), но на кой... было вообще писать вот это:

Не буду затруднять себя формальными правилами...
... Ненавижу программирование...

madmasles мне кажется прав, вам нужно было в Отзывы и пожелания по работе проекта и форума обратиться.
А судя по последней фразе вам точно в Стол Заказов.

Всё идеально работает. Спасибо вам, у вас видимо есть хорошие способности, так элегантно написать код с первой попытки может не каждый.
Насчет вашего замечания. Пожалуй вы правы, излишняя болтливость мой недостаток. Я как-то даже не подумал, что этими словами могу задеть сидящих здесь программистов.
Autoit всётаки хороший язык, но не для новичков. Новичок не сможет написать даже простейший скрипт по шаблону на коленке не позубрив предварительно учебник.

 

[Alofa]

Так наверно будет посимпатичней:

Global $Text = 'Нет все-таки двойной клик - это зло, в том числе и в Word-е'
HotKeySet('^{F10}', '_hk1') ; При нажатии Ctrl+F10
HotKeySet('{Esc}', '_Exit') ; При нажатии Esc
While 1
	Sleep(100)
WEnd
Func _hk1()
	If Not (ClipGet() == $Text) Then ClipPut($Text)
	MouseClick('left')
	Send('^v')
EndFunc
Func _Exit()
	ClipPut('') ; Очищаем буфер обмена
	Exit
EndFunc

 

[InnI]

OffTopic:
Заявился любитель маленьких девочек, откровенно положил на правила, оскорбил модератора, открыто признался в ненависти ко всем участникам форума, продублировал закрытую тему с сомнительным названием... и в результате получил помощь и плюс репутации. После чего, признавшись в отсутствии мозгов, со словами "Ой, я вас тут всех обо***л, простите, не заметил" уходит с гордо поднятой головой. А кому-то за простой вопрос, на который может ответить 90% посетителей форума, дают бан на неделю для чтения справки.
Руководство, ау! Где ваш карающий меч справедливости? Ржавеет у ювелира в ожидании украшения рукояти рубинами?

 

[Medic84]

Хм. Странно, что то я эту тему пропустил. Будем исправлять.