Question

嘿，我一直坚持这个bug。我希望有人可以提供帮助，所以在我的.NET程序中，当你按一个按钮启动一个计时器打开多个Internet Explorer窗口但问题是我希望每个窗口打开到从google，facebook，twitter和yahoo这些选项中选择一个随机网站。但我不知道该怎么做。请帮助!!!

这是我迄今为止所拥有的

  Private Sub SPAM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SPAM.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        IE()
    End Sub
    Sub IE()
        Dim oIE As Object

        oIE = CreateObject("InternetExplorer.Application")

        oIE.navigate2("www.google.com", "www.facebook.com", "www.twitte.com", "www.yahoo.com")
        oIE.Height = CInt(Int((1000 * Rnd()) + 1))
        oIE.Width = CInt(Int((1000 * Rnd()) + 1))
        oIE.Visible = True

    End Sub

Answer 1

每当你想在VB.NET中随机做一些事情时，你总是需要从Random类开始。不幸的是，Randomize和Rnd的使用仍然被许多人教导和建议，但在VB.NET中，它只是糟糕的代码。

在您的情况下，您应该创建Random类的单个实例，然后多次调用其Next方法。每次调用都会生成一个随机Integer，然后您可以将其用作您的URL数组的索引。

顺便说一句，您应该只是调用Process.Start来打开URL，除非您特别需要在之后自动化IE实例。

Answer 2

考虑到您有一个按钮randomURL，其点击事件将在浏览器中打开随机网站，以下是此代码段：

Private Sub randomURL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim url() As String = {"www.google.com", "www.facebook.com", "www.twitte.com", "www.yahoo.com"}
    Dim randoNumber As Integer = CInt(Math.Ceiling(Rnd() * 3))
    Dim oIE As Object
    oIE = CreateObject("InternetExplorer.Application")
    oIE.navigate2(url(randoNumber))
    oIE.Height = CInt(Int((1000 * Rnd()) + 1))
    oIE.Width = CInt(Int((1000 * Rnd()) + 1))
    oIE.Visible = True
End Sub

打开随机网站按钮点击visual basic

2 个答案: