有关WebBrowser控件的问题，向各位高手请教！

Question

用WebBrowser打开一个页面，然后将有关的数据写到页面内对应的输入框内，然后执行页面内的一个按钮的单击事件(如:CmdYES按钮的onclick)，这样的程序如何实现？请高手赐教！

Answer 1

然后执行页面内的一个按钮的单击事件??
那就是操作网页阿？？做成asp页面就可以了

Answer 2

online(龙卷风(白学了,重新充电中)) 你好：
我的程序是这样的，在VB的Form中有两个文本框(TxtUserID与TxtUserName)与一个命令按钮CmdRegister,单击CmdRegister后将两个文本框中的数据传送到下一个窗体(有WebBrowser控件，TxtUserID与TxtUserName控件，CmdReg控件，WebBrowser控件链接到指定的页面，该页面同样有两个INPUT)的对应的输入框内，然后单击CmdReg控件，将这两个数据加密，再将加密后的数据返回到上一个窗体的某个变量中。
关于这方面的编程我还不太明白，有类似的代码可以借俺参考一下吗？希望能得到您的帮助!
先谢过啦!
我的Email:[email protected]

Answer 3

首先在程序中加入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就可以自动填表并提交了。

Answer 4

TechnoFantasy(www.applevb.com) 你好：
你说的"HTML页面表单"是如何实现的？别笑我，关于这方面编程我正在学习中。

Answer 5

你说的"HTML页面表单"是如何实现的？
把这个代码放到dreamweaver中，保存成文件
假设你的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>

Answer 6

对，你可以用任意一种文本编辑器，将表单内容拷贝到其中，然后保存成一个HTML文件，。然后在Webbrowser中打开。