Are you interested in becoming an AWS Certified Solutions Architect?
Discover a new interactive way of training for the exam.
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.