For icnt As Integer = 1 To 100 Me.SetText(icnt) Dim gd As String = "" Dim gl As String = "" Dim cr As String = "" Dim lr As String = "" Dim tbs As String = "" Dim srt As String = "" Dim fp As String = "" Dim ky As String = "" Dim prx As String = "" Dim rnd As New Random Dim scrpurl As String = "" Dim bldstr As New List(Of String) scrpurl = GlobalVariables.domain(rnd.Next(0, GlobalVariables.googledomain.Count - 1)) & "/search?q=" scrpurl = scrpurl & GlobalVariables.prints(rnd.Next(0, GlobalVariables.footprints.Count - 1)) scrpurl = scrpurl & GlobalVariables.words(rnd.Next(0, GlobalVariables.keywords.Count - 1)) scrpurl = scrpurl & GlobalVariables.gl(rnd.Next(0, GlobalVariables.googlegl.Count - 1)) scrpurl = scrpurl & GlobalVariables.cr(rnd.Next(0, GlobalVariables.googlecr.Count - 1)) scrpurl = scrpurl & GlobalVariables.lr(rnd.Next(0, GlobalVariables.googlelr.Count - 1)) scrpurl = scrpurl & GlobalVariables.tbs(rnd.Next(0, GlobalVariables.googletbs.Count - 1)) scrpurl = scrpurl & GlobalVariables.start(rnd.Next(0, GlobalVariables.googlestart.Count - 1)) MsgBox(scrpurl) bldstr.Clear() bldstr.Add(scrpurl) Dim dr3 As DataRow() = dtse.Select("seurl ='" & scrpurl & "'", "se") If (dr3.Count = 0) Then Dim w1 As WaitCallback = New WaitCallback(AddressOf setdata) ThreadPool.QueueUserWorkItem(w1, bldstr) End If Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)