C# 对网页进行操作
我要对网页http://www.oso.chalmers.se/~loading/作自动操作,准备用C#来实现,只是实现提交的功能。只对该网页下面textarea和一个t...
我要对网页http://www.oso.chalmers.se/~loading/作自动操作,准备用C#来实现,只是实现提交的功能。只对该网页下面textarea和一个text作修改,其它是默认值,怎么实现?参照图,请各位尽量详细,做出最终结果!
展开
3个回答
展开全部
可以参照下这个
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询