用vb如何打开一个浏览器并隐式向其提交参数
想用vb做一个登录界面，输入用户名和密码后，提交到ASP做的用户登录网页上，希望把用户名和密码隐藏，即不在网址后面以http://www.aaa.com/login.asp?name=qq&pass=ee显示出来，请问谁有什么办法？ 问题点数：20、回复次数：6Top
1 楼oylx（oo）回复于 2006-04-14 22:48:40 得分 0
怎么没人里我啊，帮帮忙吧Top
2 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-04-15 11:46:45 得分 0
用 WebBrowser控件 做 post提交 将用户名密码 添加到html中 然后提交就行了
网上有例子 自己找下Top
3 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-04-15 11:54:56 得分 0
老大的博客 http://blog.csdn.net/technofantasy/archive/2004/07/26/52175.aspxTop
4 楼oylx（oo）回复于 2006-04-17 18:20:23 得分 0
对这句话
If browser.Document.Title = "testPage" Then
调试出错，报错说：对象不支持该属性或方法
我不会用这个控件，谁告诉我是怎么回事Top
5 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-04-18 13:09:36 得分 0
If browser.Document.Title = "testPage" Then 去掉 没办法要喂不能自己学习
Private Sub Command1_Click()
browser1是哪个控件名
Dim Doc
On
'遍历当前地浏览器窗口
Set Doc = browser1.Document
'填写用户名字段
Doc.body.All("LoginName").Value = "eddie"
'填写密码字段
Doc.body.All("LoginPassword").Value = "123456"
'提交
Doc.body.All("clickme").Click
End Sub
Top
6 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-04-18 13:12:06 得分 0
Private Sub Command1_Click()
browser1是哪个控件名
Dim Doc
'遍历当前地浏览器窗口
Set Doc = browser1.Document
'填写用户名字段
Doc.body.All("LoginName").Value = "eddie"
'填写密码字段
Doc.body.All("LoginPassword").Value = "123456"
'提交
Doc.body.All("clickme").Click
End Sub
'from load 中加入 browser1.N..(方法名记不住了) "a.asp"
按钮事件如果需要自动执行的话在 Com...Cmp...l(事件名记不住了)
Top
