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

[sinashahab]

سلام
این فایل سرور برای بار دوم ارور میده
کمکم کنید ممنون میشم .

[Dr.Bronx]

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

[sinashahab]

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

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

[r0ot$harp]

دوست عزیز شما در 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

باتشکر احسان

[sinashahab]

دوست عزیز شما در 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

باتشکر احسان

یلام
ببخشید باز هم نمیشه

[sinashahab]

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