An Idea, BUT Also A Problem

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:

Code:

---

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!

anyone?

I had an idea but it doesn't always work:

Code:

---

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?

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

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

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

Code:

---

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]"

---

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