Newsgroup: it.comp.lang.visual-basic
Titolo: WS error 10061

WSAECONNREFUSED (10061)
Connection Refused -- The target machine actively refused the attempt to
connect to it.
L'errore che mi da da lato server....
vuol dire che proprio è la porta che non è in ascolto ?
In effetti all' azione connect del client il server non risponde con
ConnectionRequest...
Che devo da fa secondo voi?


...che pelotas Akuma!!!!
http://support.ipswitch.com/kb/WSK-19980709-EM01.htm
mi sembra chiaro no?
...
ma sto programma lo fai tu o lo facciamo noi?!?!
prenditi l'esempio su msdn....funziona! te lo assicuro!
c'ho fatto un internet cafè tanto tempo fa sulla base di quello....
e poi è pieno di esempi in rete!...scaricatene uno e "digeriscilo"
ad esempio....devi dire che si aspetta che arrivi una stringa
ti mando un piccolo stralcio di un programmino che sto "aggieggiando"
Private Sub WIN_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim intMax As Long
   If Index = 0 Then
      intMax = ConnVive
      intMax = intMax + 1
      If intMax <= MAXCONN Then
      Load WIN(intMax)
      WIN(intMax).LocalPort = PortaIN
      WIN(intMax).Accept requestID
      ConnVive = intMax
      End If
   End If
End Sub
Private Sub WIN_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim a As Variant
Dim Dum As Long
Dim datoB As Byte
Dim datoS As String
BufferIN(Index) = ""
    WIN(Index).GetData datoS, vbString
        BufferIN(Index) = BufferIN(Index) & Trim(datoS)
        frmIN.WinsockINDEX = Index
        frmIN.Cavolino = BufferIN(Index)
        frmIN.Scrivi
        frmIN.Show
        BufferIN(Index) = ""
End Sub
quando arriva qualcosa (il programma mio ha 2 porte una IN una OUT accetta X
client ed ognuno ha il suo bufferino....assomiglia a qualcosa di
visto?....oh beh!)
lo spedisce ad una form di visualizzazione...quella che vedi è la parte
minima che accetta comandi....se sostitusci frmIN con un msgbox stampi
quello che c'è nel buffer..ho tolto un sacco di controlli e ti ho lasciato
il nucleo del tutto
il client?semplicissimo....
ad esempio il mio prg di test dei comandi....
Option Explicit
Public Connesso As Boolean
Private Sub cmdSendConn_Click()
If Connesso Then
    WSCout.Close
    WSCin.Close
End If
WSCout.RemoteHost = Trim(Me.txtIP.Text)
WSCout.RemotePort = CLng(Me.txtPortOUT.Text)
WSCout.Connect
WSCin.RemoteHost = Trim(Me.txtIP.Text)
WSCin.RemotePort = CLng(Me.txtPortIN.Text)
WSCin.Connect
Connesso = True
End Sub
Private Sub cmdTestConn_Click()
InviaComando "CIAO SERVER!"
End Sub
Private Sub Form_Load()
Me.Caption = "Client per M.O.L."
Connesso = False
End Sub
Private Function InviaComando(Comando As String)
WSCout.SendData Comando
End Function
Buono studio!
p.s.
occhio che se hai installato il programma su un server da win2k up e hai
trovato un bravo admin di rete...hai le porte chiuse e devi chiedere a lui
di aprirle...da brava vergine lui avrà molta paura ad aprire le gambe!!!
bye man!
:o)

 :o)
Credo che dovro' togliermi il vizio di POSTARE prima di andare a cercare le
cose in rete :D
Cmq, sono a buon punto .. :)

 di aprirle...da brava vergine lui avrà molta paura ad aprire le gambe!!!
GHGH GH sempre + pazzi ^_^ cmq altri 2 piccoli consigli ,su MSDN o Internet
cerca WinsockChat e' banalissimo , ti fa capire come funziona in 5 minuti ,
sono 2 form chiamate server e client . vai nel prompt e digita "netstat -an"
per vedere se il tuo winsock e' il sitening o in connectestabilish ecc
ecc... ATTENTO A ANTIVIRUS E FIREWAL che a volta ti chiudono le porte !