VB.net索引超出範圍異常

Question

該程序加載一個.txt將它拆分爲「：」，然後將其分別檢查到某處 每當我的程序到達列表末尾時出現錯誤這是我的代碼

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click 
    If ListBox1.Items.Count = 0 Then 
     MsgBox("Checking DONE") 
    ElseIf ListBox1.Items.Count.ToString > 0 Then 

     Dim str As String 
     Dim strArr() As String 

     str = ListBox1.Items(0) 
     strArr = str.Split(":") 
     If str.Count > 0 Then 
      WebBrowser1.Document.GetElementById("email").SetAttribute("value", (strArr(0))) 
      WebBrowser1.Document.GetElementById("password").SetAttribute("value", (strArr(1))) 
      WebBrowser1.Document.GetElementById("login-form-contBtn").InvokeMember("click") 
      WaitForPageLoad() 
      Threading.Thread.Sleep(5000) 
      Me.Button2.PerformClick() 
     Else 
      MsgBox("Done") 
     End If 
     End If 


End Sub 

另外，Me.Button2.PerformClick（）點擊按鈕編程，然後按鈕兩次點擊這個按鈕，它應該繼續下去，直到列表框爲空，但它只是崩潰/給出錯誤

以下是錯誤http://gyazo.com/cb7c47bca69af101871035bf18231b6e

這是將列表導入列表框的按鈕。 OpenFileDialog1.Filter =「Text Files（* .txt）|」| * .TXT」 OpenFileDialog1.ShowDialog（）

Dim R As New IO.StreamReader(OpenFileDialog1.FileName) 
    Dim string1 As String() = R.ReadToEnd().Split(New String(Environment.NewLine, StringSplitOptions.RemoveEmptyEntries)) 

    ListBox1.Items.AddRange(string1) 
    R.Close() 
    ListBox1.SelectedItem = ListBox1.Items(0) 

    Dim str As String 
    Dim strArr() As String 

    str = ListBox1.SelectedItem 
    strArr = str.Split(":") 'Delimits the imported combo list 
    Label4.Text = (strArr(0)) 'Email 
    Label3.Text = (strArr(1)) 'Password 
    Label6.Text = (ListBox1.Items.Count) 'How big is combo? 

Answer 1

您在strArr分裂str但你檢查str.Count

str = ListBox1.Items(0) 
strArr = str.Split(":") 
If strArr.Count > 0 Then 
    .... 

下面的代碼使用strArr的索引0和索引1所以最好檢查

If strArr.Count > 1 Then