C# 对网页进行操作
发布网友
发布时间：2022-04-22 08:37
共3个回答
热心网友
时间：2022-06-18 19:16
msgbox("IE自动提交演示")
'创建IE对象窗口，并打开空白页
set ieObject = CreateObject("InternetExplorer.Application")
ieObject.navigate("about:blank")
'debug用，将IE设置为可见，默认不可见
ieObject.visible = true
'访问网址
msgbox("Ok，已经创建了IE，来我们来访问百度")
ieObject.navigate("http://www.baidu.com")
'等待IE完成交互
do while ieObject.Busy Or ieObject.readyState <> 4
loop
'等待IE完成解析页面
do while ieObject.document.readyState <> "complete"
loop
msgbox("页面完全解析完毕了，开始输入第一个关键词")
'对ieObject.document起别名，简写一下
set doc = ieObject.document
'kw是文本框的Id属性
doc.getElementById("kw").value = "冰云"
msgbox("Ok,来我们百度一下，使用模拟点击按钮的方式")
'su是提交按钮的Id属性，调用click事件，也就是被鼠标点下时触发的事件
doc.getElementById("su").click
'等待IE完成交互
do while ieObject.Busy Or ieObject.readyState <> 4
loop
'等待IE完成解析页面
do while ieObject.document.readyState <> "complete"
loop
msgbox("Ok,继续下一个关键词，使用直接调用form的submit事件")
'kw是文本框的Id属性，设置文本框的值为当前值再加上另外一个关键词
doc.getElementById("kw").value = doc.getElementById("kw").value + " 云梦泽"
'因为这个页面的提交按钮没有指定Id和name属性
'但是提交用的表单设置了name属性，也就是"f"
'所以直接调用form的submit操作
doc.forms.f.submit()
'等待IE完成交互
do while ieObject.Busy Or ieObject.readyState <> 4
loop
'等待IE完成解析页面
do while ieObject.document.readyState <> "complete"
loop
msgbox("Ok,因为IE不支持另外一种直接调用form的submit事件的方式，所以演示到此结束")
'IE不支持如下代码：doc.forms[0].submit()
msgbox("最后一定要记得关闭创建的IE，尤其是不可见状态下操作后")
ieObject.quit
热心网友
时间：2022-06-18 19:17
热心网友
时间：2022-06-18 19:17
