Alright in my last post, dunfiddlin helped me figure out how to pause this Sub (which is ran in/by a background worker)
In this post I'm trying to figure out how to replace URL variables..with 'textboxs' i can edit via my form.
Alright so here is my code...and I want to replace some of the url variables with TextBox's incase I want to collect names just in a certain contest thread. I did figure out how to place a Textbox for the # of seconds pausing though LoL:goose:
I don't know how to do this spacing/context wise...but here's what I'm wanting to replaceCode:Private Sub ParseUsers() Dim pageSrc As String = GetStuff("http://www.my-forum.com/my-search/index.htm?get_forum_id_sub=11&thread_id=22&b=1") Dim maxPages As Integer = GetMaxPages(pageSrc) ProgressBar1.Maximum = maxPages Profilelist.AddRange(ExtractUsers(pageSrc)) For i As Integer = 2 To maxPages pageSrc = GetStuff("http://www.my-forum.com/my-search/index.htm?get_forum_id_sub=11&thread_id=22&b=" & i.ToString) Profilelist.AddRange(ExtractUsers(pageSrc)) ProgressBar1.Value = i Dim t As UInt64 = Now.Ticks Do Until Now.Ticks - t >= TextBox3.Text * 10 ^ 7 'where TextBox3.Text is required delay in seconds Loop Next IO.File.WriteAllLines("USERS.txt", Profilelist.ToArray) End Sub
Code:?get_forum_id_sub=11& (replace just the #11 with TextBox1.Text) &thread_id=22& (replace just the #22 with TextBox2.Text)





-_-_- |
Reply With Quote
