Spanish Error al enviar un requerimiento simple a un ESP8266

[jwgf]

Hola, amigos, tengo un problema el cual he "solucionado " de una forma torpe, por lo que solicito vuestra ayuda, en el código adjunto, me conecto a un ESP8266 que esta en modo AP, luego envío un get al root para que retorne un "OK", bueno esto en primera instancia me retorna el error : org.apache.http.conn.httpHostConnectException: Connection to http://100.100.0.10 refused, pero si dentro de JobDone, nuevamente envío el requerimiento una o dos veces mas funciona la contestación, se que es una cosa horrenda pero no encuentro una solución. Gracias desde ya, Jorge
PD. si retiro los Sleep, la cosa empeora o no funciona en absoluto es muy inestable.

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim wifi As MLwifi
    Dim job1 As HttpJob
    Dim cdor As Int
    
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    cdor = 0
    conectar
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub conectar()
    'si estaba salvado previamente me conecto, si no lo salvo y me conecto
    If wifi.isSavedWifiAP("Aparato") Then
        If wifi.connectWifiAP("Aparato") Then
            job1.Initialize("Job1",Me)
            Sleep(1000)
            job1.Download("http://100.100.0.10/")
        Else
            ToastMessageShow("Error en conectar estando salvado",True)   
        End If
    Else
        If wifi.saveWifiAP("Aparato",2,"123456789",True) Then
            job1.Initialize("Job1",Me)
            Sleep(1000)
            job1.Download("http://100.100.0.10/")
        Else
            ToastMessageShow("Error en conectar al salvar",True)
        End If
    End If
End Sub

Sub JobDone(job As HttpJob)
    If job.Success Then
        Select job.JobName
            Case "Job1"
                ToastMessageShow("Contesto correctamente",True)
        End Select       
    Else
        Select job.JobName
            Case "Job1"
                MsgboxAsync(job.ErrorMessage, "Error")
                Sleep(1000)
                job1.Download("http://100.100.0.10/")
        End Select           
        
    End If
End Sub