Otro problema

Tus preguntas. Algoritmos o Grupos de Comandos formando Programas Escripts.
Responder
Avatar de Usuario
pan
Mensajes: 17
Registrado: 18 Abr 2017, 20:25

Otro problema

Mensaje 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)
Avatar de Usuario
Chefito
Profesional del Autoit
Mensajes: 2035
Registrado: 21 Feb 2008, 18:42
Ubicación: Albacete/Cuenca (España)

Re: Otro problema

Mensaje 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.
Cita vista en algún lugar de la red: En este mundo hay 10 tipos de personas, los que saben binario y los que no ;).
Avatar de Usuario
pan
Mensajes: 17
Registrado: 18 Abr 2017, 20:25

Re: Otro problema

Mensaje por pan »

Muchas gracias era la solución :)
Responder