7,765
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
feng_root 2008-06-02
- 打赏
- 举报
以<xxx></xxx>为单位数的。
zhb238 2008-04-29
- 打赏
- 举报
[Quote=引用 1 楼 Modest 的回复:]
新建一个form,加入一个webbrowser,下面的代码可以自动登入到校友录:
Dim allCol
Set allCol = WebBrowser1.Document
allCol.All(7).Value = username
allCol.All(8).Value = txt
allCol.All(9).Click
这7，8，9是指网页中的第7个对象，第8个对象，第9个对向
username是你要设置的内容，也就是自动填写文本框里的内容，allCol.All(9).Click是发送提交命令，模拟鼠标单击。[/Quote]
请问一下，如何知道这代码中对应的第7个对象，第8个对象，第9个对象是怎么查找的呢？比如第9个对象对应的是提交按钮呢？
新建一个form,加入一个webbrowser,下面的代码可以自动登入到校友录:
Dim allCol
Set allCol = WebBrowser1.Document
allCol.All(7).Value = username
allCol.All(8).Value = txt
allCol.All(9).Click
这7，8，9是指网页中的第7个对象，第8个对象，第9个对向
username是你要设置的内容，也就是自动填写文本框里的内容，allCol.All(9).Click是发送提交命令，模拟鼠标单击。[/Quote]
请问一下，如何知道这代码中对应的第7个对象，第8个对象，第9个对象是怎么查找的呢？比如第9个对象对应的是提交按钮呢？
cyy201 2007-08-27
- 打赏
- 举报
如果有验证码，怎么办
有没有能识别最简单验证码的代码吗？
有没有能识别最简单验证码的代码吗？
hxy2003 2007-08-27
- 打赏
- 举报
zzyong00(阿勇) ( ) 信誉：100
来个QQ吧,我的105014496
有没有办法关掉网页弹出来的对话框alert弹出来的确认框
alert("内容不可以为空.");
这样的框
来个QQ吧,我的105014496
有没有办法关掉网页弹出来的对话框alert弹出来的确认框
alert("内容不可以为空.");
这样的框
迈克揉索芙特 2007-08-26
- 打赏
- 举报
同上
吾非大神 2007-08-26
- 打赏
- 举报
up
zzyong00 2007-08-26
- 打赏
- 举报
Dim objDoc As HTMLDocument
Dim objChildDoc As HTMLDocument
Set objDoc = WebBrowser1.Document
Set objChildDoc = objDoc.frames("frame的名，自已换").Document
objChildDoc.all(0)=.....
hxy2003 2007-08-26
- 打赏
- 举报
要是有Iframe的如何搞呢.
迈克揉索芙特 2007-08-25
- 打赏
- 举报
另外看看这个，稍微详细点的：
http://www.edubase.com.cn/chengxukaifa/zonghewenzhang/20070319/26561.html
http://www.edubase.com.cn/chengxukaifa/zonghewenzhang/20070319/26561.html
迈克揉索芙特 2007-08-25
- 打赏
- 举报
假如有如下htm文档aa.htm:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name=FM action="http://login.chinaren.com/zhs/servlet/Login" method=POST>
<input name=username type=text class=input3 style="width:100px;height:20px">
<input name=password type=password class=input3 style="width:100px;height:20px">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
新建一个form,加入一个webbrowser,下面的代码可以自动登入到校友录:
Dim allCol
Set allCol = WebBrowser1.Document
allCol.All(7).Value = username
allCol.All(8).Value = txt
allCol.All(9).Click
这7，8，9是指网页中的第7个对象，第8个对象，第9个对向
username是你要设置的内容，也就是自动填写文本框里的内容，allCol.All(9).Click是发送提交命令，模拟鼠标单击。
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name=FM action="http://login.chinaren.com/zhs/servlet/Login" method=POST>
<input name=username type=text class=input3 style="width:100px;height:20px">
<input name=password type=password class=input3 style="width:100px;height:20px">
<input type="submit" name="Submit" value="Submit">
</form>
</body>
</html>
新建一个form,加入一个webbrowser,下面的代码可以自动登入到校友录:
Dim allCol
Set allCol = WebBrowser1.Document
allCol.All(7).Value = username
allCol.All(8).Value = txt
allCol.All(9).Click
这7，8，9是指网页中的第7个对象，第8个对象，第9个对向
username是你要设置的内容，也就是自动填写文本框里的内容，allCol.All(9).Click是发送提交命令，模拟鼠标单击。
