Programa Txt Ekleme

nasıl yani biraz daha anlat

txt dosya okuma diyosan
vb.net

Imports System.IO

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim file As String
Dim tmp As String


Dim fs As FileStream = New FileStream("c:\\xx.txt", FileMode.Open)
Dim r As StreamReader = New StreamReader(fs)
TextBox1.Text = ""
Do
tmp = r.ReadLine
TextBox1.Text = TextBox1.Text & tmp & Microsoft.VisualBasic.ControlChars.CrLf
Loop Until tmp Is Nothing
r.Close()
fs.Close()
End Sub

*************************************************************
vb6

Private Sub Command1_Click()
Text1.Text = dosyaac("c:\\xx.txt")
End Sub

Function dosyaac(dosyaadi$) As String
Dim dosya_no As Integer
dosya_no = FreeFile
Open dosyaadi$ For Input As #dosya_no
dosyaac = Input$(LOF(dosya_no), dosya_no)
Close #dosya_no
End Function

Bak şimdi bizim anlatmak istediğimiz şey. Butona basıcaksın txt dosyasını seçiceksin ve o listbozda şifreleri göstericek. Ondan sonra program listeden şifreleri tek tek deniyeyecek.

//güncel