Что нового

Нажатие мыши в браузере Опера

mikzin

Новичок
Сообщения
80
Репутация
0
Доброго дня,

я пытаюсь сделать программу, чтобы перехватывала нажатие на ссылку в опере, и если это torrent ссылка, открывала ее в приложении торрент.
Но на данном этапе застрял не то, чтобы с ссылками, а даже нажатие в браузере не отрабатывается:
Код:
#include <Misc.au3>

$Sound = "D:\Autoit\Bulk.wav"

$hWin = WinGetHandle("[CLASS:Chrome_WidgetWin_1]", "")
If Not $hWin Then
	MsgBox(0, '', "Нет дескриптора окна")
	Exit
EndIf

$hw = ControlGetHandle($hWin, '[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]', "")
If Not $hw Then
	MsgBox(0, '', "Нет дескриптора контрола")
	Exit
EndIf


While 1
 Sleep (250)
	    If WinActive($hw) And _IsPressed('01') Then
SoundPlay($Sound)
ConsoleWrite("ok")
ExitLoop
		EndIf
WEnd


после ControlGetHandle нет сообщения, занчит контрол найден, но по нажатию кнопки мыши все равно ничего не происходит.
подскажите, чяднт.
 
A

Alofa

Гость
Код:
#include <Misc.au3>

Local $hWin, $hw, $Sound

;$Sound = "D:\Autoit\Bulk.wav"
$Sound = @WindowsDir & '\Media\tada.wav'

$aList = WinList('[CLASS:Chrome_WidgetWin_1]')
For $i = 1 To $aList[0][0]
	If $aList[$i][0] Then $hWin = $aList[$i][1]
Next
If Not $hWin Then Exit MsgBox(0, '', "Нет дескриптора окна")

$hw = ControlGetHandle($hWin, '', '[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]')
If Not $hw Then
	MsgBox(0, '', "Нет дескриптора контрола")
	Exit
EndIf

While 1
	Sleep(50)
	If WinActive($hWin) And _IsPressed('01') Then
		SoundPlay($Sound, 1)
		ConsoleWrite("ok")
		ExitLoop
	EndIf
WEnd
 
Автор
M

mikzin

Новичок
Сообщения
80
Репутация
0
спасибо, это работает.
а как насчет определить при нажатии, что это ссылка, пните плиз в нужном напрвалении :smile:
 
Верх