Question

我正在使用webrowser和vb.net。目前，我有一个填充用户名和密码然后单击登录按钮的按钮，然后我点击一个按钮导航到登录后的网页，然后我有一个按钮，启动一个单击循环按钮的计时器。理想情况下，我想单击一个按钮，让程序填充4ms +登录，导航到网页，并启动计时器循环。更好的方法是加载程序并让它自己完成这些任务（保存用户名和传递）。这是我到目前为止的代码。

加载电子邮件和通行证，输入，点击登录（1按钮）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Remember.Checked Then
        My.Settings.Email = Email.Text
        My.Settings.Password = Password.Text
    Else
        My.Settings.Email = ""
        My.Settings.Password = ""
    End If

    WebBrowser1.Document.GetElementById("user_email").SetAttribute("value", Email.Text)
    WebBrowser1.Document.GetElementById("user_password").SetAttribute("value", Password.Text)
    WebBrowser1.Document.GetElementById("Next").InvokeMember("click")

End Sub

登录后导航到特定页面（第二个按钮）

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    WebBrowser1.Navigate("https://www.website.com/page")
End Sub

启动计时器的按钮（第3个按钮）

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Timer1.Start()
End Sub

计时器内容

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Counter.Text = Counter.Text + 1

    For Each element As HtmlElement In WebBrowser1.Document.All

        If element.GetAttribute("alt") = "On" Then
            element.InvokeMember("click")
        End If

    Next
    Timer1.Interval = randNum.Next(CInt(TextBox1.Text), CInt(TextBox2.Text))
    Debug.WriteLine(Timer1.Interval.ToString)
    TextBox4.Text = Timer1.Interval
End Sub

感谢您一看。

编辑：而不是单击3个按钮（填写表单和登录，导航到页面，启动计时器）我想单击一个按钮来触发这些事件或在启动时触发它们。我对编程非常陌生，对不起，如果这是混乱/ noobish。谢谢你的回复。

vb.net希望将3个功能合二为一

0 个答案: