gracias por responder y sorry soy bastante nuevo en el asunto pegare mi codigo se que es una payasada jejeje pero me funcionaba eso si a base de pixeles y esa no es la idea ya que me da mucho error el i explorer. la pagina para el envio de formularios puedo dartela por interno . gracias un saludo (estoy buscando mas info para crear el nuevo codigo)
Código: Seleccionar todo
#include <Constants.au3>
#NoTrayIcon
#Include <WinAPI.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <Array.au3>
#include <FF.au3>
Global $Paused, $counter = 0
HotKeySet("{º}", "DSFF")
Func DSFF()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar"',802, 42)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
$prog_excel = _Excel_Open()
_Excel_BookOpen($prog_excel, "C:\Users\javiera\Documents\jkk.xlsx")
$workbook = _Excel_BookOpen($prog_excel, "C:\Users\javiera\Documents\jkk.xlsx") ; abre un arhivo excel existente
AdlibRegister("llamada",60000)
$range = "A5:A10"
$read = _Excel_RangeRead($workbook, $workbook.Activesheet, "A5", 1) ; read the content of the A1 case of the excel file
$read2 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A6", 1)
$read3 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A7", 1)
$read4 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A8", 1);telefono
Opt("MouseCoordMode", 1)
Opt("CaretCoordMode", 1)
Opt("PixelCoordMode", 1)
While 1
$counter +=1
_FFConnect(Default, Default, 3000)
ToolTip ("ejecutando programa nombre",0, 0)
$nombre1 = PixelSearch( 673, 567, 673, 567, 0x292333 )
If Not @error Then
Exit
Else
_FFLinkClick ("Agregar un lugar","text")
Sleep(3000)
EndIf
MouseClick("left",941, 528); nombre
Sleep(1000)
Send($read)
Sleep(7000)
$nombre1 = PixelSearch( 673, 567, 673, 567, 0x292333 )
If Not @error Then
Exit
Else
_FFLinkClick ("Agregar un lugar","text")
Sleep(3000)
EndIf
MouseClick("left",941, 528); nombre
Sleep(1000)
Send($read)
Sleep(7000)
$nombre1 = PixelSearch( 764, 544, 1328, 648, 0x42B9E8 );lugar repetido
If Not @error Then
_FFLinkClick ("Agregar un lugar","text")
Sleep(3000)
ControlSend("repet: Bloc de notas", "", "Edit1", $read)
ControlSend("repet: Bloc de notas", "", "Edit1", $read2)
ControlSend("repet: Bloc de notas", "", "Edit1", $read3)
ControlSend("repet: Bloc de notas", "", "Edit1", $read4)
_Excel_RangeDelete ( $Workbook .ActiveSheet , $Range , $xlShiftUp )
$read = _Excel_RangeRead($workbook, $workbook.Activesheet, "A5", 1) ; read the content of the A1 case of the excel file
$read2 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A6", 1)
$read3 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A7", 1)
$read4 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A8", 1);telefono
_Excel_BookSave ( $Workbook )
MouseClick("left",941, 528); nombre
Sleep(1000)
Send($read)
Sleep(5000)
EndIf
WEnd
Func llamada()
_FFWindowClose()
Sleep(5000)
Run("C:\Program Files (x86)\Mozilla Firefox\firefox.exe")
Sleep(7000)
Sleep(1000)
;WinMove( "pagina en cuestion - Mozilla Firefox", "",575, 0,1107, 1000)
MouseClick("left",750, 76); se posiciona en url
Send("aca va la pagina en cuestion")
_FFIsConnected()
MouseClick("left",975, 72,2); ir
Sleep(5000)
;WinSetOnTop( "pagina en cuestion - Mozilla Firefox", "", 1)
MouseClick("left",941, 528); nombre
Sleep(1000)
Send($read)
Sleep(7000)
EndFunc
;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;nombre;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <Constants.au3>
#NoTrayIcon
#Include <WinAPI.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <Array.au3>
#include <FF.au3>
Global $Paused, $counter = 0
HotKeySet("{º}", "DSFF")
Func DSFF()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar"',802, 42)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
$prog_excel = _Excel_Open()
_Excel_BookOpen($prog_excel, "C:\Users\javiera\Documents\jkk.xlsx")
$workbook = _Excel_BookOpen($prog_excel, "C:\Users\javiera\Documents\jkk.xlsx") ; abre un arhivo excel existente
AdlibRegister("llamada",60000)
$range = "A5:A10"
$read = _Excel_RangeRead($workbook, $workbook.Activesheet, "A5", 1) ; read the content of the A1 case of the excel file
$read2 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A6", 1)
$read3 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A7", 1)
$read4 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A8", 1);telefono
Opt("MouseCoordMode", 1)
Opt("CaretCoordMode", 1)
Opt("PixelCoordMode", 1)
While 1
$counter +=1
ToolTip ("ejecutando programa comuna",0, 0)
Sleep(1500)
$coord3 = PixelSearch( 811, 595, 1280, 663, 0x1D96C5 );busca azul comuna en sector
If Not @error Then
Sleep(2000)
MouseClick("left",864, 624); click a la comuna
Exit
EndIf
Sleep(4500)
$coord3 = PixelSearch( 811, 595, 1280, 663, 0x1D96C5 );busca azul comuna en sector
If Not @error Then
Sleep(2000)
MouseClick("left",864, 624); click a la comuna
Exit
Else
ControlSend("repet: Bloc de notas", "", "Edit1", "lugar fuera de la ciudad")
ControlSend("repet: Bloc de notas", "", "Edit1", $read)
ControlSend("repet: Bloc de notas", "", "Edit1", $read2)
ControlSend("repet: Bloc de notas", "", "Edit1", $read3)
ControlSend("repet: Bloc de notas", "", "Edit1", $read4)
_Excel_RangeDelete ( $Workbook .ActiveSheet , $Range , $xlShiftUp )
$read = _Excel_RangeRead($workbook, $workbook.Activesheet, "A5", 1) ; read the content of the A1 case of the excel file
$read2 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A6", 1)
$read3 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A7", 1)
$read4 = _Excel_RangeRead($workbook, $workbook.Activesheet, "A8", 1);telefono
_Excel_BookSave ( $Workbook );guarda el excel
;ProcessClose("auoti.au3")
Sleep(2000)
MouseClick("left",941, 528); inicia autoit nuevamente
Sleep(1000)
EndIf
WEnd
;Send($read3)
;Sleep(3000)
;MouseClick("left",953, 736);click a la seleccion de comuna
;Sleep(1000)
#include <IE.au3>
#include <Constants.au3>
#NoTrayIcon
#Include <WinAPI.au3>
;#include <IE.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <Array.au3>
Global $Paused, $counter = 0
HotKeySet("{º}", "DSFF")
Func DSFF()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar"',802, 42)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
Opt("MouseCoordMode", 1)
Opt("CaretCoordMode", 1)
Opt("PixelCoordMode", 1)
While 1
$counter +=1
Sleep(1000)
$coord = PixelSearch( 917, 566,917, 566, 0xFCFCFC )
If Not @error Then
SplashTextOn ("","Ok!",300,50)
Sleep(1000)
Exit
Else
SplashTextOn ("","Loading .....",300,50)
EndIf
WEnd
;$coord = PixelSearch( 1329, 593, 1454, 704, 0x64B3E2 )
;If Not @error Then
;Else
; WinSetOnTop( "pagina en cuestion - Internet Explorer", "", 0)
; MsgBox(4096, "ERROR NO CARGA LA PAGINA", "esperando que la pagina cargue ", 5)
;EndIf
;$coord = PixelSearch( 1329, 593, 1454, 704, 0x64B3E2 )
;If Not @error Then
;Else
; WinSetOnTop( "pagina en cuestion- Internet Explorer", "", 0)
; MsgBox(4096, "ERROR NO CARGA LA PAGINA", "esperando que la pagina cargue ", 5)
; EndIf