1、控件打开网页,等待加载完毕(有事件) '代码略
2、webbrowser1.document.login_form1.name.value="xxx" '填写用户名
webbrowser1.document.login_form1.pass.value="xxx" '填写密码
webbrowser1.document.login_form1.Submit.click '点击提交
第二种方法使用ie对象:
1、set ie=createobject("internetexplorer.application")
2、ie.visible = true '设置ie可见
3、ie.navigate "网址(带上http)"
4、while ie.busy or ie.readystate<>4 '等待加载完毕
doevents
wend
5、同上面2,将webbrowser1改成ie即可
复制下面代码就行了.把你的那个替换掉<FORM name=admininfo action=chkadmin.asp method=post>
<td height="20" align="right">验证码: </td>
<td><IMG src="code.asp"></td>
<td></td>
</tr>
<tr>
<td></td>
<td align="right"><span class="style2">* </span>输入以上验证码 : </td>
<td><input name="passcode" type="text" class="dan" id="passcode" size="4" maxlength="4"></td>
<td></td>
</tr>
<tr>
<td></td>
<td></td>
<td height="30" valign="bottom">
<input name="Submit" type="submit" class="dan" value="提交" onClick="check()">
<input name="Submit1" type="reset" class="dan" id="Submit1" value="重置"></td>
<td></td>
</tr>
</table></td>
</tr>
<tr>
<td height="20" align="left"></td>
<td></td>
</tr>
</table>
</form>
<SCRIPT language=javascript>
<!--
function check()
{
if(checkspace(document.admininfo.passcode.value)) {
document.admininfo.passcode.focus()
alert("验证码不能为空!")
return false
}
}
function checkspace(checkstr) {
var str = ''
for(i = 0i <checkstr.lengthi++) {
str = str + ' '
}
return (str == checkstr)
}
//-->
</SCRIPT>
再对一下你的表名以及文本名
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)