主题:求助:为什么不能传送回车键? 谢谢
m200
[专家分:0] 发布于 2008-03-06 14:51:00
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.xxxx.com"
End Sub
Private Sub WebBrowser1_DownloadComplete()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then '检测类型
Select Case vTag.Name
Case "user" '填写用户名的文本框的值
vTag.Value = "aaa"
End Select
End If
If vTag.Type = "password" Then '检测密码框类型
Select Case vTag.Name
Case "pass" '密码框的值
vTag.Value = "12"
End Select
End If
End If
Next i
[b][size=4][color=FF0000]SendKeys "{enter}"[/color][/size][/b]
End Sub
最后更新于:2008-03-06 17:31:00
回复列表 (共11个回复)
沙发
888855 [专家分:0] 发布于 2008-03-06 17:36:00
动网论坛大家都知道,现在使用用户数百万之众,每个动网论坛里面都会有博客这个栏目.我们新研发的这个软件就是可以批量自动创建博客站点,自动发表博客文章的高端工具,该软件全自动识别验证码无需手动输入,速度极快,软件可以任意导入客户自己采集的网址,然后进行发布,所以数据库可以无限扩冲.软件自带13000个网站数据真正成功的超过12000网站.是当今信息发布,seo,网站排名的高端工具!先到先得.统一售价1000元! http://www.zzweixing.com QQ353502250
板凳
singlion [专家分:690] 发布于 2008-03-06 18:40:00
可能在登录的时候使用回车键就可以,所以你用sendkey发送回车键。不过有另外一个简单的办法:
If vTag.Type = "submit" Then
vTag.Click
End If
当然,如果“提交”按钮有name属性的话最好用vTag.name=“button_name”(有些网页有多个Type为“submit”的按钮)
3 楼
anbry [专家分:380] 发布于 2008-03-06 21:23:00
使用SendKeys 的时候有一个前题。
你要接收按键的窗口或者是控件要有焦点。
4 楼
m200 [专家分:0] 发布于 2008-03-07 08:07:00
[quote]使用SendKeys 的时候有一个前题。
你要接收按键的窗口或者是控件要有焦点。[/quote]
这个焦点要怎样设定?
5 楼
merry05 [专家分:8920] 发布于 2008-03-07 08:58:00
wb.document.all["elementName"].focus()
6 楼
joforn [专家分:1460] 发布于 2008-03-07 09:14:00
用这个更直接点,免去SendKey了:
WebBrowser1.Document.all["ButtonName"].Click
7 楼
m200 [专家分:0] 发布于 2008-03-07 16:40:00
找不到ButtonName这个标签.
网页源文件如下:
<script language="javascript">
if(window!=top){
top.location.replace("index.jsp");
}
</script>
<html>
<head>
<title>管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gbk">
<link rel="stylesheet" href="css/css.css" type="text/css">
<link rel="shortcut icon" href="favicon.ico">
<script language="JavaScript">
function login_func(){
document.loginForm.submit();
}
</script>
<script>
window.open
('gonggao.html','new','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbar
s=yes,resizable=no,top=0,left=0,width=600,height=500,left=0,top=0');
</script>
</head>
<body bgcolor="D7D7D7" text="#000000">
<form name="loginForm" method="post" action="loginservlet">
<input type="hidden" name="funcid" value="login">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="100%">
<tr>
<td align="center" valign="middle">
<table width="767" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/home/l_top.jpg" width="783" height="45"></td>
</tr>
<tr>
<td><img src="images/home/l_topp.gif" width="782" height="68"></td>
</tr>
<tr>
<td><img src="images/home/lvpp.gif" width="782" height="38"></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="262" align="left" bgcolor="#FFFFFF"><img
src="images/home/l_01.gif" width="262" height="214"></td>
<td width="38%" align="center" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="images/home/l_06.gif" width="187"
height="64"></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" height="30" width="70" class="rq">用户名:</td>
<td align="center" width="5"> </td>
<td align="left" width="168">
<input type="text" name="userid" class="input1" size=20>
</td>
</tr>
<tr>
<td align="right" height="30" width="70" class="rq">密 码:</td>
<td align="center" width="5"> </td>
<td align="left" width="168">
<input type="password" name="password" class="input1" size=21>
</td>
</tr>
</table>
<br>
8 楼
m200 [专家分:0] 发布于 2008-03-07 16:40:00
接7楼
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<input name="login" border=0 width="70"
height="46" src="images/home/l_07.gif" type="image">
</td>
</tr>
</table>
</td>
<td width="25%" align="right"><img src="images/home/l_03.gif" width="262"
height="214"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top"><img src="images/home/l_04.gif" width="782" height="26"></td>
</tr>
<tr>
<td height="47" background="images/home/l_05.gif" align="center">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
<script language="JavaScript"><!--
// --></script>
</html>
9 楼
joforn [专家分:1460] 发布于 2008-03-07 23:28:00
哪个网站?
10 楼
singlion [专家分:690] 发布于 2008-03-08 17:26:00
代码中name属性为“login”的input就是提交按钮,用下列代码单击即可
If vTag.Name = "login" Then
vTag.Click
End If
我来回复