مشکل اتصال به سوکت سرور B4A و B4J

[hobolhossein 1]

سلام
وقت بخیر

بنده با B4J روی PC یک سوکت سرور درست کردم
که کاربر با B4A از طریق سوکت به سرور متصل میشه

در صورتی که کاربر اپلیکیشن رو ببنده، سوکت قطع میشه و در سرور به ساب async_Terminated رویدادی ارسال میشه و در B4J متوجه میشیم
اما زمانی که مثلا WIFI رو قطع بکنه هیچ پالسی به سرور نمیفرسته و رویدادی رخ نمیده

و مشکل بزرگ تر از اون اینکه مجددا نمیتونه به سرور کانکت بشه
چون سرور هنوز اتصال قبلی رو نگه داشته

بخشی از سورس سرور در B4J:

Sub Process_Globals
	
	Private fx As JFX
	Private MainForm As Form
    
	Dim server As ServerSocket
	Dim async(10000) As AsyncStreams
	Dim port As Int = 4000
	
End Sub


sub AppStart
    server.Initialize(port,"server")
    server.Listen
end sub


Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
	If (Successful) Then
        fx.msgbox...
    EndIf
End Sub


Sub async_Terminated
	fx.msgbox...
End Sub


Sub async_Error
	fx.msgbox...
End Sub

کسی میتونه راهنمایی کنه؟