如何在VB.NET中检测Web浏览器控件中的回发事件?

时间:2012-11-03 09:17:15

标签: vb.net browser postback detect

实际上我在Java或C#中找到了一些例子,我需要简单的方法来检测回发事件。

我想向网站发送许多请求,然后将所有回复写入列表框或其他内容。

Web site:

用户名:86800010865280016

密码:malkabul

示例请求字符串(KAREKOD:表单上的第3个文本框!!!)

0108697930090038212747294171305311002531

0108697930090038212747286171305311002531

0108697930090038212792028171305311002532

0108697930090038212883023171305311002533

0108697930090038212883047171305311002533

登录网站后,我按照;

设置请求字符串
DirectCast(GetWebBroForm1.item("f_karekod"), mshtml.HTMLTextAreaElement).value = CurrentQR

然后点击“提交”按钮;

DirectCast(GetWebBroForm1.item("Getir", 0), mshtml.HTMLButtonElement).click()
一切都好。

现在的问题是我必须检测回发事件,解析回发信息,然后需要连续发送另一个请求。

非常感谢。

Private Function GetWebBroDoc1() As mshtml.HTMLDocument
    Return DirectCast(WebBro1.Document.DomDocument, mshtml.HTMLDocument)
End Function

Private Function GetWebBroForm1() As mshtml.HTMLFormElement
    If GetWebBroDoc1.forms.length > 0 Then
        Return DirectCast(GetWebBroDoc1.forms.item(0), mshtml.HTMLFormElement)
    Else
        Return Nothing
    End If
End Function       

Private Sub SendQR(ByVal CurrentQR)
    CurrentQR="0108697930090038212747294171305311002531" 'request string
    DirectCast(GetWebBroForm1.item("f_karekod"), mshtml.HTMLTextAreaElement).value = CurrentQR
    Return
End Sub

1 个答案:

答案 0 :(得分:0)

也许这有助于你:

If IsPostBack Then
'Do something
Else
'Do something else
End If