Question

我想创建一个可以批量注册网站的程序。但是在VB6文本框中选择电子邮件，用户名等时遇到问题。所以我想问一下如何选择文本框中的第一行并使其进入网站的形式。

我有一个代码，好吧，它可以使用或不，所以请帮助我

    Dim EmailArr() As String
EmailArr = Split(emails.Text, vbCrLf)

    Dim FullnameArr() As String
FullnameArr = Split(fullnames.Text, vbCrLf)

    Dim UsernameArr() As String
UsernameArr = Split(usernames.Text, vbCrLf)

    Dim PasswordArr() As String
PasswordArr = Split(passwords.Text, vbCrLf)

如果我错了，请纠正我

我创建了一个代码来输入网站，但它说：

“编译错误：Sub或Function not defined”

这是我的输入代码：

Private Sub Command5_Click()

With WebBrowser1
    .Document.All("emailOrPhone").Value = EmailArr(1)
    .Document.All("fullname").Value = FullnameArr(1)
    .Document.All("username").Value = UsernameArr(1)
    .Document.All("password").Value = PasswordArr(1)
End With
End Sub

当我调试错误时，它在此代码中突出显示

Private Sub Command5_Click（）

Answer 1

您应该将字符串数组（EmailArr等）放在Command5_Click()定义中，或将字符串数组定义为公共变量。

Private Sub Command5_Click()

Dim EmailArr() As String

EmailArr = Split(emails.Text, vbCrLf)

    Dim FullnameArr() As String
FullnameArr = Split(fullnames.Text, vbCrLf)

    Dim UsernameArr() As String
UsernameArr = Split(usernames.Text, vbCrLf)

    Dim PasswordArr() As String
PasswordArr = Split(passwords.Text, vbCrLf)
With WebBrowser1
    .Document.All("emailOrPhone").Value = EmailArr(1)
    .Document.All("fullname").Value = FullnameArr(1)
    .Document.All("username").Value = UsernameArr(1)
    .Document.All("password").Value = PasswordArr(1)
End With
End Sub

如何在VB6文本框上选择第一行

1 个答案: