una mano con winsock

[imente]

allora ho fatto due applicazioni

con winsock (un server e un client)

in locale (impostando l'IP o il nome del mio computer come Host)
tutto funziona

ma se do' il client a una persona su un'altro computer
e gli faccio impostare l'host con il mio IP

nulla, non funziona

la porta è la 1001

cosa debbo fare?

l'IP è sbagliato?

ho provato con l'IP che ti da' di risposta una pagina ASP che legge l'IP del computer, messa online
(l'indirizzo è http://www21.brinkster.com/imente/ip.asp)

aiuto...

qualcuno che ne capisce più di me in questa storia?

tutto in locale funziona (stesso computer però)

ma in internet no!!!

help me

[steno12]

Tagliamo la testa al toro:

questo è il server:
fai un nuovo progetto e incolla questo codice:
ci sono due pulsanti command1 caption INVIA e command3 caption cancella. 2 text una si chiamam txtOutput e una txtSendData
il winsock1 e nominato come TCP1


'-------taglia da quì a qui-----------------
Private Sub Command1_Click()
txtSendData.Text = ""
End Sub
Private Sub tcp1_DataArrival _
(ByVal bytesTotal As Long)
'Stop
' Dichiara una variabile per i dati in ingresso.
' Richiama il metodo GetData e assegna i dati
' alla proprietà Text del controllo casella di
' testo txtOutput.
Dim strData As String
TCP1.GetData strData, vbString
txtOutput.Text = txtOutput.Text & strData & vbCrLf
End Sub
Private Sub tcp1_ConnectionRequest _
(ByVal requestID As Long)
'Stop
' Verifica se il valore della proprietà State
' è sckClosed. In caso contrario, chiude la
' connessione prima di accettare quella nuova.
If TCP1.State <> sckClosed Then _
TCP1.Close
' Stop
' Accetta la richiesta con il parametro
' requestID.
TCP1.Accept requestID
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
TCP1.SendData txtSendData.Text

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
TCP1.GetData Dalserver, vbString
Text4 = Text4 & Dalserver

End Sub

Private Sub Form_Load()
' Imposta su un intero la proprietà LocalPort.
' Richiama quindi il metodo Listen.
TCP1.LocalPort = 1001
TCP1.Listen
Command3.Enabled = False
End Sub

Private Sub txtSendData_Change()
'TCP1 SendData txtSend.Text
'TCP1.SendData txtSendData.Text
End Sub
'-------------fino a quì-----------------



'**********************************
'**********************************

fai un nuovo progetto

questo è il client:


'---------taglia da quì------------------
Private Sub Command1_Click()
TCP2.SendData txtSendData.Text
End Sub

Private Sub Command2_Click()
txtSendData.Text = ""
End Sub

Private Sub connetti_Click()
TCP2.RemoteHost = Text1.Text
TCP2.RemotePort = 1001
TCP2.Connect
End Sub

Private Sub tcp2_DataArrival _
(ByVal bytesTotal As Long)
'Stop
Dim strData As String
TCP2.GetData strData, vbString
txtOutput.Text = txtOutput.Text & strData & vbCrLf
End Sub
'-----------a qui-------------------------

+----------+
| by Ten |
+----------+




link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[imente]

ti ringrazio per la tua premura, ma io questa cosa l'ho già fatta (ben più raffinata) e funziona perfettamente

è in buona sostanza UGUALE

il mio problema è questo

l'IP non lo accetta

esempio

il computer A ha l'IP 111.111.111.111
egli ha sopra il server

il computer B
egli ha sopra il client

anche se imposto al client l'IP del computer A
e la stessa porta (1001)

non riesce nemmeno a connettersi!!!

capisci?

non capisco

in LOCALE (sullo stesso computer) con l'IP impostato con il nome del mio computer, o con l'IP del mio computer
funziona perfettamente

se divido su 2 computer client e server, la magia si rompe

non riescono a comunicare

CAPISCI???

[steno12]

posta il codice che gli dò un occhiata.................

[imente]

continui a non capire...

il codice è a posto

si connette in locale infatti (e funziona perfettamente!!!)

il problema è online

se mi dai la tua mail telo mando, così lo vedi tu stesso

(e magari mi aiuti a fare un'altro test online)

se ti va

[steno12]

fai cosi fai un progetto con il mio codice server e dammi il tuo ip

io sono già pronto con il client........

[imente]

ho aperto il server

il mio IP è

62.98.72.121

puoi darmi la tua e.mail per piacere

se non vuoi pubblicarla mandami una email vuota a

imente@virgilio.it

così almeno io la vedo

e ti spedisco 20KB del mio progettino

grazir

[steno12]

l'email le trovi cliccando sui link del messaggio di prima.

riavvia il server........

[imente]

Webmaster@twork.it??

è questa

cmq il server l'ho riavviato

ho provato a connettermi io stesso con un mio Client, e ci riesco

il problema è sempre su internet

ma tu l'hai mai testato?

e se io provo col client e tu mi dai l'IP??

[steno12]

guarda che sul sito trovi un programma fatto da me che si chiama ChangeTime e funziona come napster..............

comunque sto tentando di connettermi......tu devi avviare il mio listato server e rimanere in attesa di un saluto da parte mia, sulla tua text............