求救。!!!!!急~~~~~~~~~(如果做出来者。定将300分奉送) Give you answer next Tuesday 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以获得webbrowser中的网页元素对象,范例:怎么编程把用户名,密码提交到网页上的登录页?首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。假设你的HTML页面表单代码如下:<form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser"> <p>请填写下面表单注册(*项为必添项)</p> <p>*姓名<input type="text" name="Name" size="20"></p> <p>*昵称<input type="text" name="NickName" size="20"></p> <p>电子邮件<input type="text" name="EMail" size="20"></p> <p>*密码<input type="text" name="Password" size="20"></p> <p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p></form>注意其中元素的type、Name、value属性。然后VB中的代码如下:Private Sub Command1_Click() WebBrowser1.Navigate "http://chen/chat/newuser.htm"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document List1.Clear For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "INPUT" Then Set vTag = vDoc.All(i) If vTag.Type = "text" Or vTag.Type = "password" Then List1.AddItem vTag.Name Select Case vTag.Name Case "Name" vTag.Value = "IMGod" Case "NickName" vTag.Value = "IMGod" Case "Password" vTag.Value = "IMGodpass" Case "EMail" vTag.Value = "[email protected]" End Select ElseIf vTag.Type = "submit" Then vTag.Click End If End If Next iEnd Sub点击Command1就可以自动填表并提交了。 我有话说 --------------------------------------------------------------------------------© 2000 AppleVB.com版权所有。 更新日期 2002年7月9日 VB6 获得WebBrowser加载网页中,点击的元素 下面这段程序,diction读数组就是要出错。。 vb 链表 表的关联 为何会发生两次移动完成事件? 100分帮忙看一下小问题!!!!是关于读文本文件内容的!!!在线等!立苛给分! 注册表里写不进数据,请高手指教!!! 急项目:如何在VB中做可以画简单示意图的程序并存档。 请问如何用SendMessage为一个文本框设置文本内容? crystal report 的安装、部署问题 word问题2 哥们急死了,谁能帮我找到图表的控件!万分感谢!
首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
假设你的HTML页面表单代码如下:
<form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
<p>请填写下面表单注册(*项为必添项)</p>
<p>*姓名<input type="text" name="Name" size="20"></p>
<p>*昵称<input type="text" name="NickName" size="20"></p>
<p>电子邮件<input type="text" name="EMail" size="20"></p>
<p>*密码<input type="text" name="Password" size="20"></p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
注意其中元素的type、Name、value属性。然后VB中的代码如下:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://chen/chat/newuser.htm"
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then
List1.AddItem vTag.Name
Select Case vTag.Name
Case "Name"
vTag.Value = "IMGod"
Case "NickName"
vTag.Value = "IMGod"
Case "Password"
vTag.Value = "IMGodpass"
Case "EMail"
vTag.Value = "[email protected]"
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub
点击Command1就可以自动填表并提交了。
我有话说
--------------------------------------------------------------------------------
© 2000 AppleVB.com版权所有。 更新日期 2002年7月9日