Automatizar formularios html

Llenar la pagina desde otra pagina asp o puede ser con alguna rutina por
ejemplo en vbscript desde cualquier pc?

Gabriel.


"Raúl" wrote in message
news:05cb01c5824e$e2b83470$
Hola a todos, mi consulta es si se puede automatizar el
ingreso de datos a un formulario html, me explico, debo
llenar un formulario en una página html registro por
registro, varias veces al día, imagino se debe utilizar
response.redirect con la url correspondiente, pero ¿como?

gracias de antemano.

Gabriel, la tabla de ingreso puede estar en excel, access,
y la rutina debiera ser en VBscript o una página ASP.
gracias.
Mostrar la cita

Llenar la pagina desde otra pagina asp o puede ser con

alguna rutina por
Mostrar la cita

ejemplo en vbscript desde cualquier pc?

Gabriel.


"Raúl" wrote in

message
Mostrar la cita

news:05cb01c5824e$e2b83470$
Hola a todos, mi consulta es si se puede automatizar el
ingreso de datos a un formulario html, me explico, debo
llenar un formulario en una página html registro por
registro, varias veces al día, imagino se debe utilizar
response.redirect con la url correspondiente, pero ¿como?

gracias de antemano.


.

Este ejemplo (una parte) es usando un archivo .TXT con los datos a enviar,
es un mix entre usar el metedo SENDKEY y acceder directamente al contenido
de las variables de la pagina.

No seria complicado alterar el script para leer los datos de un MDB de
access, fijate bien algunos detalles

Suerte, Gabriel.


Dim oIE
Dim oWSShell
Dim Linea
DIm fso
Dim Modifica, PrimTela

REM - Criar Objeto IE -
Set oWSShell = CreateObject("WScript.Shell")
Set oIE = createobject("internetexplorer.application")

REM Criar Objeto Files -
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("datos.txt", 1)

REM - Abrir Objeto IE e navega-lo
oIE.navigate "http://www.tusitio.com/formulario.html"
oIE.Visible = True
oIE.Top=0
oIE.Left=0
oIE.Width€0
oIE.Height`0

Do until oIE.readystate=4
wScript.sleep 300
Linea = MyFile.ReadLine

REM CNPJ e DI -
On error resume Next
oIE.Document.All.item("txtCpf").focus
If err.number<>0 then SaidaErro()
On error goto 0

oIE.Document.All.item("txtCPF").value=Mid(Linea,2,14)
oIE.Document.All.item("txtNumDoc").value=Trim(Mid(Linea,16))

oWSShell.SendKeys "{ENTER}"

Do until oIE.readystate=4
wScript.sleep 1000
Loop
oWSShell.SendKeys "{TAB 4}"

Linea = MyFile.ReadLine
oIE.Document.All.item("txtNome").focus
oWSShell.SendKeys Mid(linea,2,20)

... sigue.






wrote in message
news:00f101c58306$f26a1c90$
Gabriel, la tabla de ingreso puede estar en excel, access,
y la rutina debiera ser en VBscript o una página ASP.
gracias.
Mostrar la cita

Llenar la pagina desde otra pagina asp o puede ser con

alguna rutina por
Mostrar la cita

ejemplo en vbscript desde cualquier pc?

Gabriel.


"Raúl" wrote in

message
Mostrar la cita

news:05cb01c5824e$e2b83470$
Hola a todos, mi consulta es si se puede automatizar el
ingreso de datos a un formulario html, me explico, debo
llenar un formulario en una página html registro por
registro, varias veces al día, imagino se debe utilizar
response.redirect con la url correspondiente, pero ¿como?

gracias de antemano.


.

Bueno Gabriel, despues de un par de semanas, resultó lo
que he querido hacer, muchas gracias por la ayuda.
Mostrar la cita

Este ejemplo (una parte) es usando un archivo .TXT con

los datos a enviar,
Mostrar la cita

es un mix entre usar el metedo SENDKEY y acceder

directamente al contenido
Mostrar la cita

de las variables de la pagina.

No seria complicado alterar el script para leer los

datos de un MDB de
Mostrar la cita

access, fijate bien algunos detalles

Suerte, Gabriel.


Dim oIE
Dim oWSShell
Dim Linea
DIm fso
Dim Modifica, PrimTela

REM - Criar Objeto IE -
Set oWSShell = CreateObject("WScript.Shell")
Set oIE = createobject("internetexplorer.application")

REM Criar Objeto Files -
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("datos.txt", 1)

REM - Abrir Objeto IE e navega-lo -
oIE.navigate "http://www.tusitio.com/formulario.html"
oIE.Visible = True
oIE.Top=0
oIE.Left=0
oIE.Width€0
oIE.Height`0

Do until oIE.readystate=4
wScript.sleep 300
Linea = MyFile.ReadLine

REM CNPJ e DI -
On error resume Next
oIE.Document.All.item("txtCpf").focus
If err.number<>0 then SaidaErro()
On error goto 0

oIE.Document.All.item("txtCPF").value=Mid(Linea,2,14)
oIE.Document.All.item("txtNumDoc").value=Trim(Mid

(Linea,16))
Mostrar la cita

oWSShell.SendKeys "{ENTER}"

Do until oIE.readystate=4
wScript.sleep 1000
Loop
oWSShell.SendKeys "{TAB 4}"

Linea = MyFile.ReadLine
oIE.Document.All.item("txtNome").focus
oWSShell.SendKeys Mid(linea,2,20)

... sigue.






wrote in message
news:00f101c58306$f26a1c90$
Gabriel, la tabla de ingreso puede estar en excel,

access,
Mostrar la cita

y la rutina debiera ser en VBscript o una página ASP.
gracias.
Mostrar la cita

Llenar la pagina desde otra pagina asp o puede ser con

alguna rutina por
Mostrar la cita

ejemplo en vbscript desde cualquier pc?

Gabriel.


"Raúl" wrote in

message
Mostrar la cita

news:05cb01c5824e$e2b83470$
Hola a todos, mi consulta es si se puede automatizar el
ingreso de datos a un formulario html, me explico, debo
llenar un formulario en una página html registro por
registro, varias veces al día, imagino se debe utilizar
response.redirect con la url correspondiente, pero

¿como?
Mostrar la cita

Mostrar la cita

gracias de antemano.


.

.