rsitogp
Jun 2nd, 2001, 12:07 PM
Once I saw (and used) an app named 1CFF I think (1 Click Form Filler) that could basicly fill common forms with info specified in it's setup, after using it I thought of making an improved program, that the user builds a file and specifies in it let's say something like this:
www.yahoo.com //first line is the url
field=p //then all fields (p=search field on yahoo)
fill=will this ever work //what to fill in previous field
field=somefield //again till end of file
fill=something //again till end of file
if anyone could help/give me a way to list all fields dynamicly and all the info to fill in them dynamicly and proccess even if there are a few webpages in one file I would be greatful,
I had an idea on how to proccess info after it's loaded but it doesn't always work:
If WebBrowser1.LocationURL = txtUrl.text Then
For j = 0 To (List1.ListCount - 1) / 2
If j = 0 Then
List1.ListIndex = j
Else
List1.ListIndex = j + 1
End If
On Error Resume Next
For i = 0 To WebBrowser1.Document.All.Length
If WebBrowser1.Document.Forms(0)(i).Name = List1.Text Then
List1.ListIndex = List1.ListIndex + 1
WebBrowser1.Document.Forms(0)(i).Value = List1.Text
End If
Next i
Next j
End If
Thanks for reading and thanks in advance if you can/want to help!
www.yahoo.com //first line is the url
field=p //then all fields (p=search field on yahoo)
fill=will this ever work //what to fill in previous field
field=somefield //again till end of file
fill=something //again till end of file
if anyone could help/give me a way to list all fields dynamicly and all the info to fill in them dynamicly and proccess even if there are a few webpages in one file I would be greatful,
I had an idea on how to proccess info after it's loaded but it doesn't always work:
If WebBrowser1.LocationURL = txtUrl.text Then
For j = 0 To (List1.ListCount - 1) / 2
If j = 0 Then
List1.ListIndex = j
Else
List1.ListIndex = j + 1
End If
On Error Resume Next
For i = 0 To WebBrowser1.Document.All.Length
If WebBrowser1.Document.Forms(0)(i).Name = List1.Text Then
List1.ListIndex = List1.ListIndex + 1
WebBrowser1.Document.Forms(0)(i).Value = List1.Text
End If
Next i
Next j
End If
Thanks for reading and thanks in advance if you can/want to help!