winsock 컨트롤에 기능을 추가해야합니다.

Question

클라이언트 & 프록시 서버 응용 프로그램을 포함하는 응용 프로그램을 만들고 있습니다. 두 응용 프로그램 모두 winsock 컨트롤을 사용합니다. IP 주소를 사용하여 클라이언트를 서버에 연결하고 있습니다. 서버에 문제가 있습니다. 그것은 원하지 않는 내부 IP 주소만을 보여줍니다. 원하는 것은 외부 IP 주소 ieWan IP 주소입니다. winsock을 사용하면 가능합니까? 예제 코드가 있으면 제공하십시오. 또한 하나의 기능 서버가 필요합니다. 목록 상자에 서버에 연결된 클라이언트를 선택합니다 & 서버에서 해당 클라이언트의 연결을 끊습니다. 코드를 제공하십시오. 또한 서버에 연결되면 사용자가 인터넷이나 다른 프로그램을 사용하면 IP가 서버의 IP로 표시됩니다 (프록시와 유사 함). 섬기는 사람). 다음은 서버 코드입니다.

Option Explicit 
Dim iSockets As Integer 
Dim sServerMsg As String 
Dim sRequestID As String 

Private Sub Form_Load() 

    Form1.Show 
    lblHostID.Caption = Socket(0).LocalHostName 
    lblAddress.Caption = Socket(0).LocalIP 
    Socket(0).LocalPort = 1007 
    sServerMsg = "Listening to port: " & Socket(0).LocalPort 
    List1.AddItem (sServerMsg) 
    Socket(0).Listen 
End Sub 

Private Sub socket_Close(Index As Integer) 
    sServerMsg = "Connection closed: " & Socket(Index).RemoteHostIP 
    List1.AddItem (sServerMsg) 
    Socket(Index).Close 
    Unload Socket(Index) 
    iSockets = iSockets - 1 
    lblConnections.Caption = iSockets 

End Sub 

Private Sub socket_ConnectionRequest(Index As Integer, ByVal requestID As Long) 
    sServerMsg = "Connection request id " & requestID & " from " & Socket(Index).RemoteHostIP 
    If Index = 0 Then 
    List1.AddItem (sServerMsg) 
    sRequestID = requestID 
    iSockets = iSockets + 1 
    lblConnections.Caption = iSockets 
    Load Socket(iSockets) 
    Socket(iSockets).LocalPort = 1007 
    Socket(iSockets).Accept requestID 
    End If 

End Sub 

Answer 1

본인은으로 만들었 기능을 모니터링 형식의 텍스트를 보여줍니다 내 경우에는 내 서버

Private Sub wskServer_ConnectionRequest(ByVal requestID As Long) 
    With wskServer 
    If .State <> sckClosed Then 
     .Close 
    End If 
    .Accept requestID 
    ShowData "Connection from " & .RemoteHostIP & vbCrLf, True, vbBlack 
    End With 'wskServer 
End Sub 

에 연결되어있는 클라이언트를 표시하려면 다음 코드를 사용하지만 파일에 텍스트를 작성할 수 있습니다 또는 간단한 msgbox