比如網頁表單上有如下這個文本框：
<input id=username name=username type=text value="">
那麽VB中可以這樣直接賦值：
WebBrowser1.document.getElementById("username").Value = "myname"
或者：
WebBrowser1.document.getElementsByName("username")(0).Value = "myname"
或者：
WebBrowser1.document.getElementsByTagName("input")(0).Value = "myname" '假定這個文本框是網頁上的第壹個input
其他表單元素可以用上述類似的方法逐壹賦值。
最後，找到submit按鈕執行click方法即可提交表單了。如果submit按鈕有id或name就最好辦了，比如表單上的submit按鈕是這樣的：
<input id=submit1 type=submit value="提交">
那麽VB中可以這樣：
WebBrowser1.document.getElementById("submit1").Click
如果沒有id或name就稍微復雜壹些：
Dim objs As Object, obj As Object
Set objs = WebBrowser1.document.getElementsByTagName("input")
For Each obj In objs
If obj.Type = "submit" Then
obj.Click
Exit For
End If
Next