Read and split strings from a text file

[TeraBaap]

Hello everyone
i am making an account follower so i have made a program creates accounts and writes the login details in a textfile in this format loginidass so i need help in reading the text file which could contain 200-300 different account details . Also how can i send the post form request with each id and pass in textfile . I am currently using Http as HttpClass .

[dday9]

So you need to extract the data from the text file to a list or a datatable? I have a function in the codebank here that converts a delimited text file to a datatable and vise-versa. From there, if you want to enter in the value of each row into an HtmlElement, you will need to first get the element using the .GetElementId method or some other GetElement method. Once you have the element, you set the value attribute using .SetAttribute method. Here is an example of how to use the SetAttribute method with an HtmlElement where it's Id is txtID:

Dim txt_input As HtmlElement = WebBrowser1.Document.GetElementId("txtID")

txt_input.SetAttribute("value", "your id value here")

[TeraBaap]

So you need to extract the data from the text file to a list or a datatable? I have a function in the codebank here that converts a delimited text file to a datatable and vise-versa. From there, if you want to enter in the value of each row into an HtmlElement, you will need to first get the element using the .GetElementId method or some other GetElement method. Once you have the element, you set the value attribute using .SetAttribute method. Here is an example of how to use the SetAttribute method with an HtmlElement where it's Id is txtID:

Dim txt_input As HtmlElement = WebBrowser1.Document.GetElementId("txtID")

txt_input.SetAttribute("value", "your id value here")

Public Class Form2


Dim Http As New HttpClass("https://link.com")
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (user.Text = "" Or pass.Text.ToString() = "" Or TextBox1.Text = "").ToString() Then

MessageBox.Show("Fields can not be blank!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)


Else


id = user.Text
pas = pass.Text.ToString()


post = "form_sent=1&referer=&next=&username=" + id + "&password=" + pas + "&passwordfake=Password"
Me.ToolStripStatusLabel1.Text = label + "Signing In ...."
Http.Request("GET", "http://link.com/login", Nothing)
Http.Request("POST", "http://link.com//login", post)
Me.ToolStripStatusLabel1.Text = label + "Logged In ...."
Me.ToolStripStatusLabel1.ForeColor = Color.IndianRed
source = Http.Request("GET", http://link.com/" + TextBox1.Text, Nothing)
Me.ToolStripStatusLabel1.Text = label + "Following -> " + TextBox1.Text
Try
Dim r As New System.Text.RegularExpressions.Regex("<input type=""hidden"" name=""example"" value="".*"" />")
Dim rr As New System.Text.RegularExpressions.Regex("<input type=""hidden"" name=""example1"" value="".*"" />")
Dim matches As MatchCollection = r.Matches(source)
Dim matches1 As MatchCollection = rr.Matches(source)
For Each f As Match In matches
re = f.Value.Split("""").GetValue(5)


For Each ff As Match In matches1


re1 = ff.Value.Split("""").GetValue(5)
Next


Next
Catch ex As Exception
Console.WriteLine(ex)
End Try
Dim fol = "friend=" + re + "&validate=" + re1
unfollow = fol.ToString()
Http.Request("POST", "http://link.com/", fol)
MsgBox("Done!")
Me.ToolStripStatusLabel1.Text = label + "DONE !"
Console.WriteLine(fol.ToString())




End If
End Sub

I am not actually using webbrowser for it all i want to do is for each value1:value2 in the textfile i want to send the post request i have quoted above

[ident]

I am not actually using webbrowser for it all i want to do is for each value1:value2 in the textfile i want to send the post request i have quoted above

You say you are using the HttpWebRequest class. It's by know means for beginners. If you can create One request why cant you simulate 200? Did you ever consider to post your code?

[dunfiddlin]

&passwordfake=Password

Uh, huh?

[TeraBaap]

i did post the code although i couldnt post all of it cuz there is too much of it .But Suppose if there is a text file where the user credentials are stored in value1:value2 in each line how can retrieve the value1 and value2 and parse the values to id and pas variable .

[TeraBaap]

its just how the form data is lol .

[GBeats]

Hi

But Suppose if there is a text file where the user credentials are stored in value1:value2 in each line how can retrieve the value1 and value2 and parse the values to id and pas variable .

maybe this is something your after
(Psuedo)

read the data into a list of string

for each item in list
dim data as list(of string)
'use the split function here,it will seperate data in delimited format and put it into a list'

dim name as string = data(0)
dim password as string = Data(1)

Next

[TeraBaap]

Hi



maybe this is something your after
(Psuedo)

read the data into a list of string

for each item in list
dim data as list(of string)
'use the split function here,it will seperate data in delimited format and put it into a list'

dim name as string = data(0)
dim password as string = Data(1)

Next

hmm could you give me an example ?
and it should be " for each item as String in list " instead of for each item in list " ?

[TeraBaap]

Let me make this a bit more clear the text file from which i want to parse data has content like this

Value1:value2
Value3:Value4
Value5:Value6 

*note : all these values represent different user credentials

[dunfiddlin]

and it should be " for each item as String in list " instead of for each item in list " ?

You were told that this was Pseudo code (albeit with mispelling) so actual syntax is not at issue here.

could you give me an example ?

Seriously? You have a code including Regex and Http Requests and you need an example of a For Each loop? That doesn't look suspicious at all!

Get thee to VB.Net kindergarten ... here and here.

[TeraBaap]

You were told that this was Pseudo code (albeit with mispelling) so actual syntax is not at issue here.



Seriously? You have a code including Regex and Http Requests and you need an example of a For Each loop? That doesn't look suspicious at all!

Get thee to VB.Net kindergarten ... here and here.

First of all english isnt my primary language so i couldn't undertand what pseudo code means secondly just because my program includes Regex and Httpwebrequests (i did had help in making a cookie container for storing session cookies) just doesnt mean i c+p if thats what you are implying right there sir . I do know what for each loop is i just dont know about List as ive never used it .

[GBeats]

its best to do a for each loop like

for each item as <whatever> in <whatever>

or

Dim Item as <whatever>

for each item in <whatever>

..
..

and really you should do the simple stuff yourself, at least show an effort to try, you will be helped if you try it for yourself, seriously.

regex is super simple after you try it out yourself, just goto MSDN site and find an example......

but regex will take time to get right as getting the 'Check' Part right sometimes gets tricky.

as for split

i think its string.split(string, delimiter) or something similar, look it up its super simple to use

[ident]

Ok we will give you the benefit of the doubt and you did write this. Your regex is extremely greedy. What data does this field contain.

Public Class Form1
 
    Private ReadOnly m_someFile() As String = IO.File.ReadAllLines("path")
 
    Private Sub SomeMethod()
        For Each item In Me.m_someFile
            Dim parts() As String = item.Split(":"c)
            Threading.ThreadPool.QueueUserWorkItem(Sub() SomeRequest(parts(0), parts(1)))
        Next
    End Sub
 
    Private Sub SomeRequest(ByVal userName As String,
                            ByVal password As String)
        ' Do what ever
    End Sub
 
End Class