自动打开网页的BAT：
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、虚拟主机、营销软件、网站建设、徐汇网站维护、网站推广。
start
自动填写表单需要用VB或者VBA来写。
用自动键入数字和按钮的方法。
参看下面的贴子：
这个不容易做，本来打算用OLE的，但是发觉很难实现。我给你个思路：
1、用VB程序自动打开网页（调用那个BAT就可以了）；
2、自动按下数字键1；
3、自动按下ENTER键
发送页面：
用get传值 如 点击button时 response.redirect（"接受页面的url"?canshu=textbox.text）
在接受页面：
用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。
然后根据这个值到数据库里查询就行了。
弹出提示窗口，基本上随便哪个源码里面都有用到，比如用户后台登陆，你可以参考下
用webbrowser载入网页表单。
在documentComplete事件中加入代码
dim
f
as
object
set
f=web1.document
'页面对象
f.表单名.submit()
'提交表单
也可用document.getElementById("表单ID").submit()
如果表单没有ID和name，可以用form元素的集合来访问该对象。
Private Sub Command1_Click()
WebBrowser1.Document.Forms(Form_ID)(2).Click
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate App.Path "/1.htm"‘打开网页
End Sub
1.htm的代码是你给的代码
但是如果还有其他代码的话，ID可能会变，不是2，可能是别的
根据你的补充，经修改，已经调试成功：
Private Sub Command1_Click()
Dim vDoc, vTag, i
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
Select Case LCase(vTag.Type)
Case "file"
If vTag.Name = "userfile" Then
SendKeys "d:\program files\qq\qq.exe"
SendKeys "{ENter}"
vTag.Click
End If
Case "submit"
If vTag.Value = "上传文件" Then
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End Select
End If
Next i
End Sub
