Do you work with and analyze data? Enroll in October's Course of the Month for 7+ hours of SQL training, allowing you to quickly and efficiently store or retrieve data. It's free for Premium Members, Team Accounts, and Qualified Experts!
Try 'Som kind of messaging that process is initiated Me.Text = "HTTP POST STARTED" Dim threadCounter As Integer = 1 While returnedPhoneTable.Rows.Count > 0 'Declare string to hold comma seperated phone string from datatable Dim dataRowString As String = "" 'Declare var for data row in loaded data table Dim row = returnedPhoneTable.Rows(0) 'Populate datarow string dataRowString = row("phoneList").ToString() 'Dev - Show comma seperated phone list 'Debug.Write(vbCrLf + vbCrLf + "Phonelist this row: " & dataRowString) 'Declare string() to handle split by comma Dim sites As String() = dataRowString.Split(","c) Dim sendRow As String = "" 'For each phone number build the command line 'And group together all 7 numbers For Each s As String In sites 'Get command for this particular phone postData = getCommandString(s) 'Append to sendRow with line break to send all 7 phones to monitor at once sendRow = sendRow + postData + vbCrLf Next 'Declare and start individual thread for each loop Dim phoneWorkerThread As New Thread(AddressOf startPhoneMonitoring) phoneWorkerThread.Start(sendRow) 'Some kind of messaging that shows how many threads are running Me.Text = "HTTP POST Thread Count: " + threadCounter 'increase counter for next loop threadCounter = threadCounter + 1 'Remove datarow just sent from datatable returnedPhoneTable.Rows.RemoveAt(0) 'Reset SendRow string sendRow = "" 'Since telephoy vendor needs about 1/2 second to process each phone...give plenty of time before next process start. System.Threading.Thread.Sleep(7000) End While Catch ex As Exception Debug.WriteLine("Error on record " & ErrorOnLoopNumber & vbCrLf & ex.Message.ToString) End Try
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.