Question

我正在制作一个程序来自动将数据输入到网站构建中。我一次只能输入一行数据。所以我想要一个包含8个项目的列表框，我想将列表框项目1输入到带有数据字段的html字段中，单击发送，然后导航回我的网站＆＃34; mysite.com＆＃34;，将列表框项目2输入数据字段，单击发送并循环，直到输入所有列表框项目。

如果我设置了一个文本框，这可以从文本框1输入一行数据，但是如何循环它以浏览所有列表框项目。

   'Paste url  from textbox to datafield
        WebBrowser1.Document.GetElementById("datafield").SetAttribute("value", textbox1.text)

        'click search button
        Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

        For Each webpageelement As HtmlElement In allelements

            If webpageelement.GetAttribute("type") = "submit" Then

                webpageelement.InvokeMember("click")

            End If

当我回到＆＃34; mysite.com＆＃34;时，还有什么好方法。等到网站加载进入下一行数据。无论如何你都可以，请拿出我发布的代码，并告诉我一种将数据从列表框粘贴到数据字段的方法。如输入列表框项目1到数据字段，单击提交，导航回主页，然后在数据字段中输入列表框项目2单击提交。直到它在列表框的末尾

Answer 1

使用此：

For Each item In ListBox1.Items
    'Do stuff
    MsgBox(item.ToString)
Next

或者，如果您需要每个项目的索引，请使用：

For i = 0 To ListBox1.Items.Count - 1
    'Do stuff
    MsgBox(ListBox1.Items(i).ToString)
Next

循环列表框项目

1 个答案: