CONECTAR SEM TER QUE REINICIAR OS FORMS CLIENTE E O SERVIDOR.

 

'no form load

       Winsock1.RemoteHost = txtIP.Text
       Winsock1.RemotePort = txtPorta.Text
       Winsock1.Connect
'------------------------

 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdados As String
  
   Winsock1.GetData strdados, vbString
  
   If strdados = "Null" Then
      lblStatus.Caption = "Servidor não encontrado."
   End If
  
   If strdados = "CONECTADO COM O SERVIDOR." Then
      lblStatus.Caption = "Conectado como o Servidor com sucesso."
      lblStatus.Caption = strdados
   End If
     
      lblStatus.Caption = strdados

 

End Sub

Private Sub Winsock1_SendComplete()
frmPedido.lblStatusServidor.Caption = "Transmissão de dados concluida." & vbCrLf & strdados
End Sub

Private Sub cmdConectar_Click()
 On Error GoTo ErrorHandler

If Not Winsock1.State = sckConnected Then
   Winsock1.RemoteHost = txtIP.Text
   Winsock1.RemotePort = 100
   Winsock1.Connect

Else
   lblStatus.Caption = "Já existe uma conexão com o Host."
End If

ErrorHandler:   ' Rotina de tratamento de erro.
      Select Case Err.Number
     
       Case 40020   ' Erro Salvar Arquivo
        frmMsgBox.Show
        frmMsgBox.lblMsgBox.Caption = "NÃO FOI POSSÍVEL CONECTAR COM O SERVIDOR."
        frmMsgBox.imgCritical.Visible = False
        frmMsgBox.imgexclamation.Visible = False
        frmMsgBox.imgquestion.Visible = False
        frmMsgBox.imgInformation.Visible = True
        lblStatus.Caption = "ATENÇÃO: NO MOMENTO O SERVIDOR NÃO ESTA ONLINE."
    
         ' Trata outras situações aqui...
     End Select
End Sub

 

OBS. QUANDO EXECULTO OS DOIS PROGRAMAS NÃO HÁ PROBLEMA NA CONEXÃO! SÓ Q SI EU FECHAR UM DELES E DEPOIS TENTAR CONECTAR ELE NÃO CONECTA.