vahidmasoudi
 
| ارسالها: | 1 |
| عضویت: | 22 /4 /1398 |
|
در مورد چت آنلاین (فوری)
با سلام و احترام خدمت دوستان
من برنامه ساختم جهت دریافت و ارسال پیام ، اشکال کار ایجاست که موقع دریافت پیام بصورت ؟؟؟؟ نمایش داده می شود.
کد بشرح ذیل است.
پیشاپیش از پاسخگویی شما سپاس گذارم.
Private Sub MessageCallBack(ByVal aResult As IAsyncResult)
Try
Dim receivedData As Byte() = New Byte(1500) {}
receivedData = CType(aResult.AsyncState, Byte())
Dim aEncoding As New ASCIIEncoding()
Dim receivedMassage As String = aEncoding.GetString(receivedData)
ListMessage.Items.Add("Friend :" & receivedMassage)
buffer = New Byte(1500) {}
sck.BeginReceiveFrom(buffer, 0, buffer.Length, SocketFlags.None, epRemot, New AsyncCallback(AddressOf MessageCallBack), buffer)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
|
|
| شنبه 22 تیر 1398 - 01:51 |
|
