Página 1 de 1

Otro problema

Publicado: 08 Ago 2017, 05:29
por pan
Que triste que solo yo tenga problemas con autoit y se supone que es un lenguaje fácil O.o pero bueno quizás es por el poco tiempo :smt003

los molesto nuevamente con un problema pequeño pero no di con la solución, es bien simple estoy coupando IE.au3 todo muy bien y entretenido pero al momento de _IEAction y abrir un boto examinar no me deja
escribir en la pantalla "Elegir archivos para cargar'" como si el foco se queda en el browser!

Código: Seleccionar todo

	#include <IE.au3>
	
	Local $o_IE = _IECreate ()

	_IENavigate ($o_IE, "http://www.newocr.com/")
	_IELoadWait($o_IE)
	$botonExaminar = _IEGetObjByName($o_IE, "userfile")
        _IEAction($botonExaminar, "click")
	 
	;break 
	;Elegir archivos para cargar
	
	sleep(2000)
	AutoItSetOption('MouseCoordMode', 0)
	WinWait('Elegir archivos para cargar')
	WinActivate('Elegir archivos para cargar')
	
	Send("D:\IN\ejemplo.jpg{Enter}")
	Sleep(200)

Re: Otro problema

Publicado: 08 Ago 2017, 18:20
por Chefito
Antes de preguntar, busca bien en el foro. Con una pequeña búsqueda que hubieses hecho por ejemplo al número de la clase de la ventana, 32770, te hubiese salido resultados interesantes, como por ejemplo la respuesta que dí yo hace 7 años que soluciona tu problema :smt003 . Aaaaaah, también digo porque no funciona tu código, por si te interesa :smt002 .
http://www.emesn.com/autoitforum/viewto ... ilit=32770

Simplemente aplicando lo que pone en el último mensaje, el código podría quedar algo así:

Código: Seleccionar todo

#include <IE.au3>

AutoItSetOption('MouseCoordMode', 0)

Local $o_IE = _IECreate ()

_IENavigate ($o_IE, "http://www.newocr.com/")
_IELoadWait($o_IE)
$botonExaminar = _IEGetObjByName($o_IE, "userfile")
_IEAction($botonExaminar, "focus")
ControlSend(_IEPropertyGet($o_IE, "hwnd"), "", "","{space}")
;break
;Elegir archivos para cargar
WinWait('Elegir archivos para cargar')

;~ ; Otra forma de introducir el nombre de la imagen
;~ WinActivate('Elegir archivos para cargar')
;~ ControlSend("Elegir archivos para cargar", "", "Edit1", "c:\carpeta\ejemplo.jpg{enter}")

; Si tienes problemas porque la ventana no se muestra antes del ControlSetText, introduce antes un sleep, WinActivate, o lo que sea para darle tiempo.
ControlSetText("Elegir archivos para cargar", "", "Edit1", "c:\carpeta\ejemplo.jpg")
ControlClick("Elegir archivos para cargar", "", "Button1")
Veo que intentas utilizar un ocr online. Por si te interesa mira un ocr libre bastante famoso:
https://github.com/tesseract-ocr/tesseract/wiki
https://github.com/tesseract-ocr/tesser ... /Downloads

Y una udf en el foro ingles:
https://www.autoitscript.com/forum/topi ... ent-643564

Aunque si pones en el buscador del foro ingles tesseract te saldrá mucha información.

También puedes probar a realizar el acceso a la información de la web directamente a través de la udf winhttp de trancexx. Es muy interesante, y no dependerás del internet explorer. https://www.autoitscript.com/forum/topi ... functions/

Saludos.

Re: Otro problema

Publicado: 18 Ago 2017, 06:57
por pan
Muchas gracias era la solución :)