예, IP: 137.0.0.1을 사용하세요.

이 IP는 루프백 주소로, 일반적으로 프로그램 테스트에 사용됩니다. form1 컨트롤에 다음을 추가합니다: Winsock 컨트롤, 텍스트, 명령. 이러한 컨트롤은 form2에도 추가되며, form1은 서버 역할을 하고, form2는 클라이언트 역할을 합니다(TCP 프로토콜 사용).

나는 간단히 이 코드를 작성했는데, 개선하고 싶다면 직접 변경해야 합니다! !

form1의 코드는 다음과 같습니다.

Private Sub Command1_Click() '데이터 보내기

Winsock1.SendData Text1.Text

End Sub

Private Sub Form_Load() 통신 '포트 설정

Winsock1.LocalPort = 1001

Winsock1.Listen 'Listen

Form2 .Show

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

If Winsock1.State <> sckClosed Then

Winsock1 .Close

End If

Winsock1.Accept requestID '클라이언트가 보낸 연결 요청을 받습니다.

End Sub

Private Sub Winsock1_DataArrival (ByVal bytesTotal As Long)

Dim getstr As String

Winsock1.GetData getstr '상대방이 보낸 정보 가져오기

Text1.Text = ""

Text1.Text = getstr

End Sub

form2의 코드는 다음과 같습니다.

Private Sub Command1_Click() 'Send 데이터

Winsock1 .SendData Text1.Text

End Sub

Private Sub Form_Load()

Winsock1.RemoteHost = "127.0.0.1 " '서버 IP

Winsock1.RemotePort = 1001 '서버 포트

Winsock1.Connect '연결 보내기

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim getstr As String

Winsock1.GetData getstr

Text1.Text = ""

Text1 .Text = getstr

End Sub

이 방법으로 양측 모두 메시지를 보낼 수 있습니다. 만족하시나요?