重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
能实现这样的功能,你需要添加webbrowser控件(microsoft
创新互联建站是一家专业提供沧州企业网站建设,专注与成都网站设计、成都做网站、外贸网站建设、H5开发、小程序制作等业务。10年已为沧州众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
internet
controls),然后在窗体上拖一个这个控件,命名为web1,移动到看不见的位置就可以了。按钮的代码可以这么写:
'前面的省略
web1.navigate
"网址"
doevents
while
web1.busy
'等待网页加载完
doevents
wend
web1.document.getelementbyid("code").value=text1.text
....按照这种方法填写表单
web1.document.getelementbyid("button").click
'模拟单击按钮提交表单
doevents
while
web1.busy
'等待网页加载完
doevents
wend
text3.text=web1.document.innertext
'显示结果
'后面的省略
需要引用:Microsoft HTML Object Library
在webbrowser的状态为ready的时候,执行:
'取得要填写的表单名称,并定义为一个html元素变量text
Dim text As HtmlElement = WebBrowser1.Document.GetElementById("表单字段名id")
'给表单元素text赋值
text.InnerHtml = “张三”
'找到提交按钮
Dim btnSubmit As HtmlElement = WebBrowser1.Document.GetElementById("提交按钮id")
'执行点击动作
btnSubmit.InvokeMember("click")
调用控件的事件呢:WebBrowser1.Document.All.commendStatus.Click
先填写,再调用事件
自动打开网页的BAT:
start
自动填写表单需要用VB或者VBA来写。
用自动键入数字和按钮的方法。
参看下面的贴子:
这个不容易做,本来打算用OLE的,但是发觉很难实现。我给你个思路:
1、用VB程序自动打开网页(调用那个BAT就可以了);
2、自动按下数字键1;
3、自动按下ENTER键
让网页自动填写表单操作步骤:
打开浏览器设置,点击打开【Internet选项】
在Internet选项卡上选择【内容】,点击自动完成下面的【设置】
在自动完成设置中勾选希望自动完成功能用于哪些方面,勾选前面的复选框即可
点击确定完成
试试:
WebBrowser1.Document.GetElementById("staticusernameid").SetAttribute("value", "2342342");