Question

vb webbrowser 自动填表 提交问题

path.action = 'https://df.nexon.com/POP/member/id_pass/index.php?mode='+type;
path.submit();
}
</SCRIPT>

<FORM name=id_pass method=post><INPUT type=hidden name=mode> <TD align="center">
<TABLE height=104 cellSpacing=0 cellPadding=0 width=315 border=0>
<TBODY>
<TR>
<TD align=middle width=315 height=50>

<TBODY>
<TR>
<TD width=30 height=35> </TD>
<TD width=82 height=35> </TD>
<TD width=224 height=35><BR> </TD></TR>
<TR>
<TD width=30 height=18></TD>
<TD width=82 height=18> <STRONG>己疙(角疙) </STRONG></TD>
<TD width=224 height=18><INPUT id=name maxLength=12 size=12
name=name></TD></TR>
<TR>
<TD width=30 height=23></TD>
<TD width=82 height=23> <STRONG>林刮殿废</STRONG></TD>
<TD height=23><INPUT id=idnb1 type=password maxLength=6 size=12
name=idnb1> - <INPUT id=idnb2 type=password maxLength=7 size=12
name=idnb2></TD></TR></TBODY></TABLE>
<P>             
<IMG style="CURSOR: hand" onclick=submit_chk()
src="btn_confirm.gif"><BR></P></TD></TR></TBODY></TABLE></TD></TR><TR></FORM></v:shapetype></BODY></HTML>

这样的源码·
Private Sub command2_Click()
Dim vDoc, vTag
Dim i As Integer
Dim h As Integer
Set vDoc = brwWebBrowser.Document
For i = 0 To vDoc.All.length - 1
Set vTag = vDoc.All(i)
Select Case LCase(vTag.tagName)
Case "input"
Select Case LCase(vTag.Name)
Case "name"
vTag.Value = Text1.Text
Case "idnb1"
vTag.Value = Text2.Text
Case "idnb2"
vTag.Value = Text3.Text
End Select
End Select
Next i
If vTag.onclick = "submit" Then
vTag.Click
End If
End Sub
不知道该怎么去提交 麻烦朋友们帮帮忙·他的提交按钮是图片的·郁闷 忙乎一宿也没弄明白·

Answer 1

<FORM name=id_pass method=post> 这里加上处理页面的连接然后在VB里vDoc.id_pass.submit() 试试；
如果你的处理页面需要动态的话可以在VB里
vDoc.id_pass.action= 'https://df.nexon.com/POP/member/id_pass/index.php?mode='+type
估计这个type你还得在VB里获得才行
然后vDoc.id_pass.submit()

以前也有做过你这种的，当时我做的是网易邮箱的登陆你试试吧。

Answer 2

找到图片的id或名字。再点击。