logging on to web

[shaker]

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

[cjqp]

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

[shaker]

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 :-)

[cjqp]

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

[shaker]

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.

[cjqp]

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

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

[Julie_Luvs]

i tryed doing this but i get this error

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?

[Tec-Nico]

Try using Forms with an s at the end.

[Tec-Nico]

Here, like this:

WebBrowser1.Document.Forms(0).submit

[Julie_Luvs]

same error

[Julie_Luvs]

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

[Tec-Nico]

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

I don't know the reason. Sorry

[Julie_Luvs]

its ok thank you for helping me tho

[Tec-Nico]

You are welcome

[Julie_Luvs]

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

[memikeos]

did you try adding the action to the submit?

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