Question

VB6自动提交表单的问题

网页部分源代码：

function check()
{
if(document.LoginForm.LoginNameX.value.length == 0)
{
alert("名字不能为空，请重新输入！");
document.LoginForm.LoginNameX.focus();
return;
}
if(document.LoginForm.LoginPasswordX.value.length == 0)
{
alert("口令不能为空，请重新输入！");
document.LoginForm.LoginPasswordX.focus();
return;
}
if(X_GetAPCUse())
{
if(document.LoginForm.APCPassword.value.length == 0)
{
alert("附加码不能为空，请重新输入！");
document.LoginForm.APCPassword.focus();
return;
}
}
...
document.LoginForm.submit();
}

'第二段
</script>
</tr>
<tr>
<td height="55" colspan="3" align="center" valign="bottom">
<script language="javascript">
var msg = "<img src=\"/down/" + X_GetImagePortal_Login() + "\" width=\"105\" height=\"39\" style=\"cursor:hand\" onClick=\"javascript:check()\">";
document.write(msg);
</script>

-------以上为源代码---------
水平不限，JAVA看不太懂，似乎是用submit方法直接提交表单的。
输入用户名和密码的VB代码是这样：(这两句运行成功)
WebBrowser1.Document.LoginForm.LoginNameX.Value = "name"
WebBrowser1.Document.LoginForm.LoginPasswordX.Value = "pass"

提交登录无法点击，即没有ID，也没有NAME，网上的很多种方式都试过了，还是不行。
求高手指点VB中怎么点击登录按钮（图片）。万分感激。
自己解决了。
Dim vDoc, vTag
Dim I As Integer
Set vDoc = WebBrowser1.Document.LoginForm.Document
For I = 0 To (vDoc.All.length - 1)
If UCase(vDoc.All(I).tagName) = "IMG" Then
Set vTag = vDoc.All(I)
'MsgBox vTag.nameprop 显示图片名
If vTag.nameprop = "ImageLogin.gif" Then
vTag.Click
End If
End If
Next

源代码中图片名有路径，今天没事用MSGBOX列举了一下图片名，才发现一开始文件名用错。

Answer 1

WebBrowser1.Document.LoginForm.Submit

WebBrowser1.Document.Forms(0).submit()

Answer 2

给出具体网址