Dim ToServer As String
Dim Webport
Dim Data As String


Private Sub Winsock2_SendToWebserver()
Winsock2.Close
'Winsock2.RemoteHost = "10.62.182.54"
'Winsock2.RemotePort = 22
Winsock2.Connect
Webport = Winsock2.RemotePort
End Sub

Private Sub Winsock2_Connect()
If Winsock2.State <> sckConnected Then Exit Sub
Winsock2.SendData ToServer
End Sub


Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)

If Winsock2.State <> sckClosing Then
Winsock2.GetData Data
Winsock1.SendData Data
End If
End Sub
Private Sub Form_Load()
Form1.Visible = True
Do
If Winsock1.State <> sckConnected And Winsock1.State <> sckListening Then
Beep
Winsock1.Close
Winsock1.LocalPort = 8089
Winsock1.Listen
End If
DoEvents
Loop
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ServerData As String
Winsock1.GetData ServerData
ToServer = ServerData
Winsock2_SendToWebserver
End Sub