این چرا بیش از یک بار وصل نمیشه ؟

سلام
این فایل سرور برای بار دوم ارور میده :گریه:
کمکم کنید ممنون میشم .:لبخند:
:تشویق::تشویق:

کدوم فایل !!!
یه توضیحی بدین که بفهمیم موضوع چیه خوب تا بتونیم کمک کنیم

نقل قول:

---

نوشته شده توسط Dr.Bronx

کدوم فایل !!!
یه توضیحی بدین که بفهمیم موضوع چیه خوب تا بتونیم کمک کنیم

---

یادم رفته بود فایل رو اپلود کنم :لبخند:

دوست عزیز شما در Event زیر مشکل دارین :

Private Sub WskServer_Close(Index As Integer)

    lblInfo.Caption = "Connection Closed..."



End Sub

وقتی ارتباط قطع می شود شما باید یه متغیر در کل برنامه معرفی کنید که هر وقت اتصال قطع شد به مقدارش یه دونه اضافه بشه .

می شه اینجوری :

Private Sub WskServer_Close(Index As Integer)

    lblInfo.Caption = "Connection Closed..."

a=a+1

End Sub

بعد وقتی می خوای دوباره درخواست رو در Event زیر دریافت کنی اینجوری می شه :

Private Sub WskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)

    Load WskServer(a + 1)

    WskServer(a + 1).Accept requestID

    lblInfo.Caption = "Connection Estabilished..."

End Sub

باتشکر احسان

نقل قول:

---

نوشته شده توسط sanaz13x

دوست عزیز شما در Event زیر مشکل دارین :

Private Sub WskServer_Close(Index As Integer)

    lblInfo.Caption = "Connection Closed..."

 

End Sub

وقتی ارتباط قطع می شود شما باید یه متغیر در کل برنامه معرفی کنید که هر وقت اتصال قطع شد به مقدارش یه دونه اضافه بشه .

می شه اینجوری :

Private Sub WskServer_Close(Index As Integer)

    lblInfo.Caption = "Connection Closed..."

a=a+1

End Sub

بعد وقتی می خوای دوباره درخواست رو در Event زیر دریافت کنی اینجوری می شه :

Private Sub WskServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)

    Load WskServer(a + 1)

    WskServer(a + 1).Accept requestID

    lblInfo.Caption = "Connection Estabilished..."

End Sub

باتشکر احسان

---

یلام
ببخشید باز هم نمیشه :گریه:

کسی نیست جواب بده .
مگه ادم برای یه اشتباه باید کسی بهش جواب نده ؟