...If
DoEvents()
- Code: Select all
lanBuf = ""
'*** TimeOut = Timer + 60
TimeOut = 60
ReGetUnitData:
frm_Config.txtBox = "Retreiving " & UnitType[optUnit] & " Config, wait!" & vbCrLf
Do
If Len(lanBuf) > 17 Then
Break
End If '*** THIS IS LINE 234
DoEvents()
Loop While TimeOut > 0 '***While Timer < TimeOut
UnitSettings = lanBuf
If Len(UnitSettings) > 17 Then
If Asc(Left(UnitSettings, 1)) = msgGetExtSetup Then
RAUnitData_UType = Asc(Mid(UnitSettings, 2, 1))
RAUnitData_UCh = Asc(Mid(UnitSettings, 3, 1))
RAUnitData_USys = Asc(Mid(UnitSettings, 4, 1))
RAUnitData_Uunit = Asc(Mid(UnitSettings, 5, 1))
RAUnitData_UPwr = Asc(Mid(UnitSettings, 6, 1))
RAUnitData_USpc = Asc(Mid(UnitSettings, 7, 1))
RAUnitData_USpc1 = Asc(Mid(UnitSettings, 8, 1))
RAUnitData_USpc2 = Asc(Mid(UnitSettings, 9, 1))
RAUnitData_USpc3 = Asc(Mid(UnitSettings, 10, 1))
RAUnitData_USpc4 = Asc(Mid(UnitSettings, 11, 1))
RAUnitData_USpc5 = Asc(Mid(UnitSettings, 12, 1))
RAUnitData_USpc6 = Asc(Mid(UnitSettings, 13, 1))
frm_Config.txtBox = frm_Config.txtBox & vbCrLf & "Done!" & vbCrLf
rslt = True
Else
lanBuf = Right(lanBuf, Len(lanBuf) - 18)
If TimeOut > 0 Then 'Timer < TimeOut Then
GoTo ReGetUnitData
End If
End If
Else
/Henning