Здравствуйте!
У меня такой вопрос: мне надо написать программу для передачи сообщений по сети на VB 9 (использую MS Visual Studio 2008). Дело в том, что на VB6 у меня это получается за 1 минуту, а тут, если я делаю все аналогично, то нет. Если нетрудно, дайте, пожалуйста, пример такой программы. На всякий случай в приложение скину код на VB9 клиента и сервера, может быть, удастся найти ошибку.
Дополнительный вопрос: скажите, пожалуйста, какие отличительные особенности 9 версии от 6?
Большое спасибо заранее, ОЧЕНЬ надеюсь на помощь!
Приложение:
Код клиента:
Public Class Form1
Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent
AxWinsock1.SendData("SS")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWinsock1.Close()
AxWinsock1.Connect()
End Sub
End Class
Код сервера (сервер должен принимать):
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWinsock1.Listen()
End Sub
Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent
End Sub
Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
Dim R As Integer
AxWinsock1.Close()
AxWinsock1.Accept(R)
End Sub
Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
Dim S As String
AxWinsock1.GetData(S)
Me.Text = ""
End Sub
End Class