An Idea, BUT Also A Problem

[rsitogp]

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,

Thanks for reading and thanks in advance if you can/want to help!

[rsitogp]

anyone?

[rsitogp]

I had an idea 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

Can someone help?

[rsitogp]

I know I'm a pain in the ass but please?!

[da_silvy]

This might help, it was some code I wrote for someone

also posted at: http://www.planet-source-code.com/xq...s/ShowCode.htm

 Dim strList As Variant, Prop As String, PropVal As String, strObject As String
 strList = Split(txtHtml, " ")


 For Each varlist In strList


     If Left(varlist, 1) = "<" Then
         strObject = Right(varlist, Len(varlist) - 1)
 txtFinal = "[Tag: " & strObject & "]" & vbCrLf
     End If
     poe = InStr(1, varlist, "=")


     If poe <> 0 Then'assumes it's a tag
         Prop = Left(varlist, poe - 1) 'get the Property
         PropVal = Right(varlist, Len(varlist) - poe) 'get it's value
         If Right(PropVal, 1) = ">" Then PropVal = Left(PropVal, Len(PropVal) - 1)
         If Right(PropVal, 1) = Chr(34) Then PropVal = Left(PropVal, Len(PropVal) - 1)
         If Left(PropVal, 1) = Chr(34) Then PropVal = Right(PropVal, Len(PropVal) - 1)
 txtFinal = txtFinal & Prop & ":" & " " & PropVal & vbCrLf
     End If
 Next
 txtFinal = txtFinal & "[End of " & strObject & " tag]"

[rsitogp]

Sorry for being an idiot but how should I implement it, store in an array then read?