模拟登录按钮点击 请教

Question

'网站自动登录练习Option ExplicitDim surl As StringPrivate Sub Command1_Click()
WebBrowser3.Visible = True
End SubPrivate Sub Form_Load()
surl = "http://www1.360quan.com/passport/auth/signin"
    WebBrowser3.Navigate surl
End Sub
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)    If URL = surl Then
        Dim Ele As Object
           
        Set Ele = WebBrowser3.Document.getElementById("mail")
        Ele.Value = "[email protected]"
        
        Set Ele = WebBrowser3.Document.getElementById("password")
        Ele.Value = "ccc"
        
        Set Ele = WebBrowser3.Document.getElementById("submit")      '这里不大懂 报错
       Ele.Submit    End If
    
End Sub
    

Answer 1

首先说一下document对象的来历。在浏览器访问的任何一个页面，都会在内存中以XML的形式存在一个副本，浏览器遵循一个内部算法将HTML转成XML，这种XML，javascript可以直接访问，重要的是，它可以被修改并立即在浏览器中实现。
简单的说DOM就是用来表示XML的元素，我们使用一个名为document来引用它，基于这个实例，我们可以查询每个XML元素，即Element对象。在WEB中，如果我们指定了某个元素的属性“id=”，就可以使用Document对象的成员方法getElementByID()来检索这个元素。楼主这句document.getElementById("txtKeyWord")就是得到在WEB中id为txtKeyWord标签。 <form name="form1"><input id="CK1" name="CK" type="radio" value="1" checked> <input id="CK2" name="CK" type="radio" value="2"> <input id="CK3" name="CK" type="radio" value="3"> </form>Private Sub Form_Load()WebBrowser1.Navigate "你的网页地址"End SubPrivate Sub Command1_Click()WebBrowser1.Document.getElementById("CK2").Checked = TrueEnd Sub
<div class="fl" style="width:350px;"><form style="margin-top:15px;" action="chklogin.asp" method="post" name="form1" id="form1" onsubmit="return checkdata()">
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="8" style="font-size:14px;">
<tr>
<td width="29%" height="23" align="right">姓 名：</td>
<td width="40%"><label>
<input name="SName" type="text" tabindex="1" size="10" maxlength="10" />
</label></td>
<td width="31%" rowspan="2"><label>
<input type="image" name="imageField" src="image/dl.gif" tabindex="3" />
</label></td>
</tr>
<tr>
<td align="right">学 号：</td>
<td><label>
<input name="SNo" type="text" tabindex="2" siz然后加入已下代码:WebBrowser1.Document.All("SName").Value = "123456" '姓名
WebBrowser1.Document.All("SNo").Value = "123456" '学号'以上是文本框赋值
WebBrowser1.Document.All("").Value = 1
'这个可以给下拉菜单赋值
WebBrowser1.Document.getElementById("").Checked = True
'这个可以给单选框赋值
WebBrowser1.Document.getElementById("").Click
'这个可以让按钮按下,也就是表单提交以上全部代码可写入 按钮Click事件下,或网页加载完成DocumentComplete下.很详细了吧，，，，给我分吧，，，，，，，，，，我没分了

Answer 2

你咋老是问相同的问题?<form name="fm_signin" id="fm_signin" action="/passport/auth/dosignin" method="POST">
你看看该在什么表单范围内提交..........