Question

vb inet 如何 提交数据

在内页（静态页面）里有：
<form action="/q" method="post">
<textarea class="bor" id="content" name="content" rows="3"></textarea>
<input type="submit" value="提交"/>
</form>
怎么用 inet 提交数据
用vb中的inet实现

Answer 1

不要用inet提交，要用webbrowser来打开该页面，然后使用下面语句，模拟鼠标点击提交窗体：
For Each a In webbrowser.Document.Document.All
If a.tagname = "INPUT" and a.value="提交" Then
a.Click
exit for
End If
Next

追问

我知道这种方法，想用inet提交

追答

那可能就复杂了，你得首先知道点击提交后，电脑都向哪里发送了什么消息，并且记录下来，然后再用inet发送，我猜的，别信呵呵。
唉…可怜的娃……

Answer 2

是不是应该有一个检验当前状态的参数
以保证让POST这个动作完全作完以后再进行下一步的工作
比如
RIGHT=INET1.STILLEXECUTING
DO UNTIL RIGHT
DO EVENT
RIGHT=INET1.STILLEXECUTING
LOOP

追问

我想知道用inet如何提交这个form

追答

Imports System.net
Public Class Form1
Dim sendtime As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Me.WebBrowser1.Navigate("http://wwww.********.php")
Me.WebBrowser1.Navigate("about:blank")
sendtime = 1

End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
If sendtime = 1 Then
sendtime = 0
Me.WebBrowser1.Document.Write("")
Me.WebBrowser1.Document.Write("")
Me.WebBrowser1.Document.Write("")
Me.WebBrowser1.Document.Write("")
WebBrowser1.Document.Write("Formrf.submit();")

End If
End Sub
End Class

追问

我知道这种方法，想用inet提交