B4R Question Could anyone tell me what's wrong that Alexa can't find the devices?

Sub Process_Globals
    Public Serial1 As Serial
    Public wifi As ESP8266WiFi
    Public eeprom As EEPROM
    Private const MAGIC_EEPROM As Byte = 213
    Private sr As B4RSerializator
    Private bc As ByteConverter
    Public esp As ESP8266
    Public alexa As Espalexa
    Public device As Device
    Public Timer1 As Timer
    Public time = 0 As UInt
End Sub

Private Sub AppStart
    Serial1.Initialize(115200)
    Log("AppStart")
    WiFiServer.Start
    ConnectToNetwork(0)
    
    alexa.Initialize("DeviceChanged")
    Timer1.Initialize("LoopRun",1000)
    Timer1.Enabled = True
    
    alexa.addDevice("Ventilador auto",0)
    alexa.addDevice("Ventilador norma",1)
    alexa.addDevice("Ventilador baixo",2)
End Sub

Sub LoopRun
    alexa.RunLoop
    time = time + 1
    If time = 90000 Then
        time = 0
        Log(time)
    End If
End Sub

Sub DeviceChanged(index As Byte)
    Log("deviceindex=",index,"deviceName=",alexa.getName(index))
    Select Case index
        Case 0
            If alexa.getValue(0) = 0 Then
                Log("CMDA ",(1))
            Else
                Log("CMDA ",(0))
            End If
        Case 1
            If alexa.getValue(1) = 0 Then
                Log("CMDB ",(1))
            Else
                Log("CMDB ",(0))
            End If
        Case 2
            If alexa.getValue(2) = 0 Then
                Log("CMDC ",(1))
            Else
                Log("CMDC ",(0))
            End If
        Case 3
            If alexa.getValue(3) = 0 Then
                Log("CMDD ",(1))
            Else
                Log("CMDD ",(0))
            End If
    End Select
End Sub
Public Sub SaveNetworkDetails(Data() As Byte)'Gravar Eeprom
    Log("Salvando dados de Rede")
    Log("Comprimento de Dados : ", Data.Length)
    Log("Memoria=", AvailableRAM)
    Log("Tamanho :",StackBufferUsage)
    eeprom.WriteBytes(Array As Byte(MAGIC_EEPROM,Data.Length), 0)
    eeprom.WriteBytes(Data, 2)
End Sub

Public Sub ConnectToNetwork(tag As Byte)
    wifi.Disconnect
    If GetStoredData = 1 Then
        'read settings from EEPROM
        Dim SSID As String = bc.StringFromBytes(GStore1.slot0) 'ignore
        Dim Password As String = bc.StringFromBytes(GStore1.slot1) 'ignore" '
        Log("Tentando se Conectar a: ", SSID, " Senha: ", Password)
        If wifi.Connect2(SSID,Password) Then
            Log("Conectado com Sucesso : ", GStore1.slot0)
            Log("IP Local: ", wifi.LocalIp)
            StopAP
        Else
            Log("WIFI Falha Ao Se Conectar - Iniciar WifiServer ")
            Log("Automatico Reset em 1 m")
            CallSubPlus("ConnectToNetwork",60*1000,0) 'tente conectar novamente após 1 minuto
        End If
    Else
        Log("Dados Da Rede Não Encontrados .")
        WiFiServer.Start
    End If
End Sub

Public Sub GetStoredDataLength As Byte'Ler Eemprom
    Dim header() As Byte = eeprom.ReadBytes(0, 2)
    If header(0) = MAGIC_EEPROM  Then
        Return header(1)
    End If
    Return 0
End Sub

Sub    GetStoredData As Byte'Ler Objetos Eeeprom
    Dim length As Byte = GetStoredDataLength
    Log("Parâmetros do Wifi Salvo na Eeprom  =",length)
    If length > 0 Then
        Dim ObjectsBuffer(8) As Object
        Dim Data() As Byte = eeprom.ReadBytes(2, length)
        Dim Objects() As Object = sr.ConvertBytesToArray(Data, ObjectsBuffer)
        If Objects.Length <> 0 Then
            For i = 0 To 7
                GStore1.Put(i,Objects(i))
            Next
            Return 1
        Else
            Return 0
        End If
    Else
        Return 0
    End If
End Sub

Public Sub ClearStoredDataLength'Apagar Eeeprom
    Dim header() As Byte = eeprom.ReadBytes(0, 2)
    If header(0) = MAGIC_EEPROM Then
        header(1) = 0
        eeprom.WriteBytes(header,0)
        Log("EEprom Apagada")
    End If
    GStore1.Slot0(" ")
    GStore1.Slot1(" ")
    Delay(100)
    esp.restart
End Sub

public Sub StopAP
    Log("Stop AP")
    RunNative("stopAP", Null)
End Sub

#if C
  #include <ESP8266WiFi.h>
  void stopAP (B4R::Object* u) {
  WiFi.softAPdisconnect(1);
  }
#end if

    alexa.addDevice("Ventilador auto",0)
    alexa.addDevice("Ventilador norma",1)
    alexa.addDevice("Ventilador baixo",2)

    alexa.addDeviceOnOff("Ventilador auto",127)
    alexa.addDeviceOnOff("Ventilador norma",127)
    alexa.addDeviceOnOff("Ventilador baixo",127)

Astream NewData startB=GET /description.xml HTTP/1.1
Host: 10.0.0.13
Accept: */*
Content-Type: application/json
Astream NewData startB=GET /description.xml HTTP/1.1
Host: 10.0.0.13
Accept: */*
Content-Type: application/json

WiFiServer.Start
    ConnectToNetwork(0)
   
    alexa.Initialize("DeviceChanged")
    Timer3.Initialize("LoopRun",1)
    Timer3.Enabled = True
   
    alexa.addDeviceOnOff("test0",127)
    Log("device test0 created")
    alexa.addDeviceDimming("test1",126)
    Log("device test1 created")
    alexa.addDeviceWhiteSpectrum("test2",250)
    Log("device test2 created")
   
    Delay(1000)
    For i = 0 To 9
      Log("device name: ",alexa.getName(i))
      Log("value=",alexa.getValue(i))
    Next
    Log("mac address: ",alexa.getEscapedMac)
   
   
   
 
Meu IP AP: 192.168.4.1
Parâmetros do Wifi Salvo na Eeprom  =89
Tentando se Conectar a: Help-Info Central Tec 2.4G Senha: Pp1c2s3m4
Conectado com Sucesso : Help-Info Central Tec 2.4G
IP Local: 10.0.0.13
Stop AP
device test0 created
device test1 created
device test2 created
device test3 created
device test4 created
device name: test0
value=127
device name: test1
value=126
device name: test2
value=250
device name: test3
value=127
device name: test4
value=255
device name:
value=0
device name:
value=0
device name:
value=0
device name:
value=0
device name:
value=0
mac address: e8db84986f41