您所在位置：主题：求大神解救
o00o00o00
[专家分：0] 发布于 2012-06-20 14:10:00
rivate Sub Command1_Click()
WebBrowser1.Document.getElementById("UserName1").Value = "13300000000"
WebBrowser1.Document.getElementById("PassWord1").Value ="123456"
WebBrowser1.Document.getElementById("loginbutton").Click
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "https://wlan.ct10000.com"
End Sub
下面是网页源码（以上代码其他网站都可以的，但是这里会提示：实时错误‘91’ 对象变量或with块变量未设置）
<th>账号：</th>
<td><input type="text" class="logintableinput" name="UserName1" id="UserName1" maxlength=40 onkeyup="allCertify(1)" onblur="allCertify(1)" value=""/></td>
<th>密码：</th>
<td><input type="password" class="logintableinput" name="PassWord1" id="PassWord1" value=""/></td>
td><input type="button" class="loginbutton" onclick="defaultOnCheck(1)" value="登录"/></td>
