logging on to web

hi I am trying to log on to a web page through my program using this code:

Private Sub Command1_Click()

'WebBrowser1.Navigate
WebBrowser1.Navigate ("http://www.mysite.com/")
Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
WebBrowser1.Document.Forms(0).uname.Value = Text1.Text
WebBrowser1.Document.Forms(0).uemail.Value = Text2.Text
WebBrowser1.Document.Forms(0).psword.Value = Text3.Text
WebBrowser1.Document.Form(0).submit

End Sub

but I am getting error at this line: WebBrowser1.Document.Form(0).submit

it just wont submit, the ollowing code is from the we page source:
<td align="center"><font color="black">Username:</font></td>
</tr>
<tr>
<td align="center"><input class="login_input" type="text" name="uname" value=""></td>
</tr>
<tr>
<td align="center"><font color="black">Email:</font></td>
</tr>
<tr>
<td align="center"><input class="login_input" type="text" name="uemail" value=""></td>
</tr>
<tr>
<td align="center"><font color="black">Password:</font></td>
</tr>
<tr>
<td align="center"><input class="login_input" type="password" name="psword"></td>
</tr>
<tr>
<td align="center" style="padding-top: 5px;"><input class="login_input" type="submit" value="Login" style="width: 50px;"></td>
</tr>
</table>
<input type="hidden" name="hash" value="e97be0c74dd6e21be069e57c7fe40c9a">

Don't know how much this will help but:
I noticed on the submit line of code its "Form(0)" whereas the other lines have "Forms (0)". Is this is perhaps?

cjqp

perhaps, cjqp ? nope u are correct, it is that!!!
thanks for pointing it out!! its the little things we miss and believe me I went over it how many times and still couldn't see it :-)

Your welcome :)
Reason I said perhaps is because I havn't done much with the Webbrowser control..and nothing like munipulaing forms...And yes, little things are hard to miss, especially when we think we've coded it right even when it complains.

cjqp

actually I still do have a problem,
It logs on to the site correctly now, but once logged on it loops and tries to log on again which produces an error.

I don't see why it would do that...but try this:

VB Code:

Dim hasLogged As Boolean
hasLogged = False
Do While hasLogged = False
 'WebBrowser1.Navigate 
 WebBrowser1.Navigate ("http://www.mysite.com/")
 Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
  DoEvents
 Loop 
 WebBrowser1.Document.Forms(0).uname.Value = Text1.Text
 WebBrowser1.Document.Forms(0).uemail.Value = Text2.Text
 WebBrowser1.Document.Forms(0).psword.Value = Text3.Text
 WebBrowser1.Document.Form(0).submit
 hasLogged = True
Loop

Not the most efficient but if it loops because of this sub this should stop it.

cjqp

i tryed doing this but i get this error

Quote:

---

Run-time error '438':
Object doesn't support this property or method

---

and it highlights this line below:
WebBrowser1.Document.Form(0).submit



may someone help me on this?

Try using Forms with an s at the end.

Here, like this:

VB Code:

WebBrowser1.Document.Forms(0).submit

same error
:(

hm.. its strange becasue it works for mail.yahoo.com, but not the site i want to work on

Yeah, it works for me too... Strange.

I don't know the reason. Sorry :p

its ok thank you for helping me tho
:)

You are welcome

scince i cant use the submit button, how can i put a focus on the submit button and hit the "enter" key instead?
:bigyello:

did you try adding the action to the submit?

VB Code:

WebBrowser1.Document.Forms(0).uname.Value = Text1.Text
 WebBrowser1.Document.Forms(0).uemail.Value = Text2.Text
 WebBrowser1.Document.Forms(0).psword.Value = Text2.Text
 WebBrowser1.Document.Forms(0).submit.Click