Как выбрать первую строку в текстовом поле VB6

Question

Я хотел создать программу, которая может производить массовую регистрацию веб-сайта. Но у меня есть проблема при выборе E-Mail, имени пользователя и т. Д. В текстовом поле 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 или функция не определена"

Вот мой код ввода:

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