Problem z programem w VB 2010

[darkhacks]

Siema staram sie zrobić program, który bedzie sprawdzał czy dany login i hasło jest poprawne dla ustalonej witryny.

Wyglada on nastepujaco 2 ListBox'y (do jednego wrzucam za pomoca OpenFileDialog plik txt z kontami, w drugim maja sie pokazywac dzialajace konta, pare buttonow i web browwser). Mój problem polega na tym, ze po tym jak wrzuce juz konta, to przed każdym z wyjątkiem pierwszego mam taki oto kwadrat "?", probowałem różnych sposób i nic.

 

Mam nadzieje, że znajdziecie jakeś rozwiązanie.

 

Tak wygląda mój kod, który ładuje do listboxa zawartosc pliku .txt (tylko ze z tymi kwadratami)

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    OpenFileDialog1.ShowDialog()
    streamer = IO.File.OpenText(OpenFileDialog1.FileName)
   Dim mystring() As String = streamer.ReadToEnd.Split(vbNewLine)
    ListBox1.Items.AddRange(mystring)
   End Sub

[Gość Pan Szymek]

dodaj import System.IO

 

Dim wyborPliku as New OpenFileDialog

wyborPliku.ShowDialog()

Dim reader As New StreamReader(wyborPliku.FileName)

Dim tablica() as String = reader.ReadToEnd().Split(vbNewLine)

For i As Integer = 0 To tablica.Length - 1

listBox1.Items.Add(tablica(i))

End For

[darkhacks]

Teraz gdy otwieram ten plik tekstowy program sam sie wylacza...

[darkhacks]

Ok znalazłem rozwiazanie na jednym z ang forum. Kosmetycznie zmieniłem mój kod i w końcu działa.

 

Tak wygląda teraz:

 

OpenFileDialog1.ShowDialog()
	streamer = IO.File.OpenText(OpenFileDialog1.FileName)
	Dim delimiters() As Char = New Char() {vbCr, vbLf}
	Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries)
	ListBox1.Items.AddRange(mystring)

 

Mam jeszcze jedno pytanie, jak moge uzyć po kolei itemów z ListBoxa (np podczas logowania, mam kilka kont)

Dodałem petle for ale uzywa wtedy tylko ostatniego itemu, jak zrobic zeby zaczynal po kolei.

 

For Each item In ListBox1.Items

[Gość Pan Szymek]

Ok znalazłem rozwiazanie na jednym z ang forum. Kosmetycznie zmieniłem mój kod i w końcu działa.

 

Tak wygląda teraz:

 

OpenFileDialog1.ShowDialog()
	streamer = IO.File.OpenText(OpenFileDialog1.FileName)
	Dim delimiters() As Char = New Char() {vbCr, vbLf}
	Dim mystring() As String = streamer.ReadToEnd.Split(delimiters, StringSplitOptions.RemoveEmptyEntries)
	ListBox1.Items.AddRange(mystring)

 

Mam jeszcze jedno pytanie, jak moge uzyć po kolei itemów z ListBoxa (np podczas logowania, mam kilka kont)

Dodałem petle for ale uzywa wtedy tylko ostatniego itemu, jak zrobic zeby zaczynal po kolei.

 

For Each item In ListBox1.Items

Niepotrzebnie deklarujesz tablice, możesz bezpośrednio dodać tekst z pliku do listboxa.

Nie używaj for each, tylko zwykłej for.

[darkhacks]

Dobra poszukałem troche po necie i wyklepałem takie cos.

 

ListBox1.SelectedIndex = 0
    Dim login As String = ListBox1.SelectedItem.ToString.Split(":")(0)
    Dim hasło As String = ListBox1.SelectedItem.ToString.Split(":")(1)
    WebBrowser1.Document.GetElementById("log").SetAttribute("value", login)
    WebBrowser1.Document.GetElementById("pwd").SetAttribute("value", hasło)
    WebBrowser1.Document.GetElementById("wp-submit").InvokeMember("click")

 

Teraz ładnie wkleja mi w pola login i hasło dane które jest w pierwszym listbox'ie (sa one oddzielone ":" np login:haslo), tylko nie wiem jak teraz zrobic pętle, żeby powtarzał ta czynnosc ze wszystkimi itemami, aż do zalogowania, zmiany adresu? :/