Threaded Mode | Linear Mode

_VB_ · 02-27-2010, 12:04 PM

ok well if i was to upload my source for my project in .net would some one be kind enough to help me fix it up and get it going or something? because what i need is for it to load a .txt into listbox1.list for usernames n .txt into listbox2.list for passwords no its not for yahoo or msn its for a game lolz but yeh and like also its a cracker which i aint made 1 for this kind of sht b4 so yea o.O alittle help?

***l3g1sl4tor*** · (This post was last modified: 02-27-2010 12:07 PM by l3g1sl4tor.)

Code:

' Load the ListBox from a file.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal _

    e As System.EventArgs) Handles MyBase.Load

    Try

        Dim file_name As String = DataFile()

        Dim stream_reader As New IO.StreamReader(file_name)

        Dim line As String

        ' Read the file one line at a time.

        line = stream_reader.ReadLine()

        Do While Not (line Is Nothing)

            ' Trim and make sure the line isn't blank.

            line = line.Trim()

            If line.Length > 0 Then _

                lstAnimals.Items.Add(line)

            ' Get the next line.

            line = stream_reader.ReadLine()

        Loop

        lstAnimals.SelectedIndex = 0

        stream_reader.Close()

    Catch exc As Exception

        ' Report all errors.

        MsgBox(exc.Message, MsgBoxStyle.Exclamation, "Read " & _

            "Error")

    End Try

End Sub

' Return the data file name.

Private Function DataFile() As String

    Dim file_name As String = Application.StartupPath

    If file_name.EndsWith("\bin") Then file_name = _

        file_name.Remove(file_name.Length - 4, 4)

    file_name &= "\animals.txt"

    Return file_name

End Function

credits : vb helper

_VB_ · (This post was last modified: 02-27-2010 01:02 PM by _VB_.)

(02-27-2010 12:07 PM)l3g1sl4tor Wrote:

Code:

' Load the ListBox from a file. Private Sub Form1_Load(ByVal sender As System.Object, ByVal _ e As System.EventArgs) Handles MyBase.Load Try Dim file_name As String = DataFile() Dim stream_reader As New IO.StreamReader(file_name) Dim line As String ' Read the file one line at a time. line = stream_reader.ReadLine() Do While Not (line Is Nothing) ' Trim and make sure the line isn't blank. line = line.Trim() If line.Length > 0 Then _ lstAnimals.Items.Add(line) ' Get the next line. line = stream_reader.ReadLine() Loop lstAnimals.SelectedIndex = 0 stream_reader.Close() Catch exc As Exception ' Report all errors. MsgBox(exc.Message, MsgBoxStyle.Exclamation, "Read " & _ "Error") End Try End Sub ' Return the data file name. Private Function DataFile() As String Dim file_name As String = Application.StartupPath If file_name.EndsWith("\bin") Then file_name = _ file_name.Remove(file_name.Length - 4, 4) file_name &= "\animals.txt" Return file_name End Function

credits : vb helper

ok a bit complicated was lookn for sumthin more simple XD lol but ill give this a try thanks Tongue

**EDIT**

i think i found it XD

Dim abc As String = My.Computer.FileSystem.ReadAllText("NameOfYourTextHere.txt")
Dim pqr As String() = abc.Split(vbNewLine)

ListBoxNAMEHERE.Items.AddRange(pqr) 'Credits To Kunal @ TeraBug

****EDIT****

ok n now i needa make it save >,< fkn hell lol help? lol

***l3g1sl4tor*** · 02-27-2010, 06:17 PM

Code:

Imports System.Windows.Forms

Imports System.IO

Module Module1

    Sub Main()

        Application.Run(New Form1)

    End Sub

End Module

Public Class Form1

    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()

        MyBase.New()

        'This call is required by the Windows Form Designer.

        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        If disposing Then

            If Not (components Is Nothing) Then

                components.Dispose()

            End If

        End If

        MyBase.Dispose(disposing)

    End Sub

    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer.  

    'Do not modify it using the code editor.

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents Button1 As System.Windows.Forms.Button

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.SuspendLayout()

        '

        'TextBox1

        '

        Me.TextBox1.Location = New System.Drawing.Point(24, 24)

        Me.TextBox1.Multiline = True

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(288, 248)

        Me.TextBox1.TabIndex = 0

        Me.TextBox1.Text = ""

        '

        'Button1

        '

        Me.Button1.Location = New System.Drawing.Point(128, 296)

        Me.Button1.Name = "Button1"

        Me.Button1.TabIndex = 1

        Me.Button1.Text = "Save"

        '

        'Form1

        '

        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

        Me.ClientSize = New System.Drawing.Size(336, 349)

        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.TextBox1})

        Me.Name = "Form1"

        Me.Text = "TextBoxInput"

        Me.ResumeLayout(False)

    End Sub

#End Region

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

        Dim TargetFile As StreamWriter

        Try

            TargetFile = New StreamWriter("test.txt", True)

        Catch

            MessageBox.Show("Error opening " & "test.txt")

        End Try

        Try

            TargetFile.WriteLine(Now())

            TargetFile.Write(TextBox1.Text)

            TargetFile.WriteLine()

            TargetFile.WriteLine()

        Catch

            MessageBox.Show("Error writing file")

        End Try

        TargetFile.Close()

        MessageBox.Show("Text saved to " & "test.txt")

    End Sub

End Class

java2s credit... i dont have PC to help you, mine can stand only pascal and eventualy dev c++ Tongue

take care! Smile