在线等待，如何向用WebBrowser加载的网页的文本框写数据。希望大家能指点一下。

在线等待，如何向用WebBrowser加载的网页的文本框写数据。希望大家能指点一下。

我用WebBrowser控件加载了一个网页，想向这个网页里的一个文本框里写入数据，请大家指点一下。。。。 --------------------编程问答-------------------- 填写文本框首先要获得文本框，方法大全：
http://blog.csdn.net/sysdzw/archive/2009/08/19/4463844.aspx

在线等待结贴 --------------------编程问答-------------------- set vdoc=webbrowser1.document
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" then
        if vtag.name="文本框的NAME" then
           msgbox vtag.value'这样就可以读到的
        end if
     end if
  end if
next

随手写的,大致就是这么个思路,用的是遍历所有的HTML代码找到相应的类型

用这个方法,能取控件的数据,也能写数据到相应的控件中
方法还有很多,仅列出通用的方法 --------------------编程问答-------------------- 大家能能说说如何写吗 --------------------编程问答--------------------  WebBrowser1.Document.All("文本框ID").SetAttribute("变量名", "要写入的数据") --------------------编程问答--------------------

On Error Resume Next

Dim vDoc

Dim vTag

Dim button

Set vDoc = WebBrowser1.Document



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

    Select Case vTag.Name

        Case "mysec"

    vTag.Value = "duopolo"

    Case "username"

    vTag.Value = "" + Text1.Text + ""

    Case "password"

    vTag.Value = "" + Text2.Text + ""

    Case "password2"

    vTag.Value = "" + Text2.Text + ""

        Case "email"

    vTag.Value = "" + Text3.Text + "@sina.com"

            Case "field_1new"

    vTag.Value = "" + Text4.Text + ""

                Case "field_1new"

http://mbbs.uc.cn/bbs_ucweb/http/bbs.uc.cn/register.php
这论坛的注册页面。。。可以参考下

补充：VB ,  网络编程