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.

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.


.

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.

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.


.

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

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.

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.


.

.