UC知道VB制作自动网站登录器
来源：百度知道 编辑：UC知道 时间：2024/05/21 07:24:40
我们学校的网站，我想打造个登录器，一下是主要原文件
<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="im
<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="im
首先加载部件 Microsoft Internet Controls (VB网页浏览器控件)
然后加入已下代码:
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下.
我QQ656864150