用vb来实现自动提交Web页遇到了问题，请大家帮看下

Question

Web的主要功能是填写好表单，表单里带有文件选择框，用来上传文件的
因为需要自动完成表单填入，提交功能，所以我在vb里用了WebBrowser组件，使用他的document可以完成给文本框赋值，但无法给文件选择框赋值！
请各位帮忙出个主意！只要达到将文件交给web页这个目的都行

Answer 1

用HTML對象啊。
我做過的。

Answer 2

可以的啊。
直接设置doc.Forms("submit", "select") = 1就可以了。

Answer 3

xghim(小飞) 
能不能详细点啊？我的WEB表单页如下：
<form name=form1 action="m.asp">
<input type=file name="file1">
<input type=text name="txt1">
<input type=submit value="submit">
</form>我是想在file1里面自动填入文件路径，如 E:\abc.jpg我是这样写代码的，可是不行
Private Sub Command3_Click()
    Dim dc As MSHTML.HTMLDocument
    Dim Bd As MSHTML.HTMLBody
    Set dc = WebBrowser1.document
    dc.All.file1.value="E:\abc.jpg"
    dc.All.txt1.Value = "12345"
    Set dc = Nothing
End Sub拜托帮忙看一下

Answer 4

dc.all.item("file1").value="E:\abc.jpg"
dc.All.item("txt1").Value = "12345"

Answer 5

to xghim(小飞):
dc.all.item("file1").value="E:\abc.jpg"
这样是无法给文件选择框赋到值的！

Answer 6

哦，是文件选择框啊。那就没什么好办法了。因为你这是要上传的文件，不能这么直接设置值。
开始我看错了。也有个土点的办法。那就是用sendkey来跳到这个输入框，然后再继续用sendkey输入你想要的值。然后再提交。

Answer 7

http://blog.csdn.net/liuxiaoyi666/archive/2005/01/17/257209.aspx

Answer 8

因为安全的原因，微软的MSHTML没有提供对file类型元素的访问接口，所以没有办法。我的建议是通过Inet发送HTTP请求的方式直接把你提交的内容发送过去。