View Single Post
  #2  
Old 01-08-2021, 08:26 AM
WesR WesR is offline
Registered User
 
Join Date: Mar 2005
Location: USA
Posts: 137
As usual, as soon as I post a question, I get it to work. Here is the relevant change. I added both the Error Resume Next and the two Session.Connected checks.

Code:
	Do while 1
		On Error resume next
		If crt.Session.Connected = 0 then
			exit sub
		End If
		If text.WaitForString ("Explict Text") = True Then
			If crt.Session.Connected then
				Result = crt.Dialog.Prompt("Enter a value", "Enter Value")
				If Result = "" Then exit sub
				'send the results here
			else
				Exit Sub
			End if
		End If
	Loop
End Sub
Reply With Quote