DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Problem when connecting with winsock through router

•

Join Date: Sep 2008

Posts: 4

Reputation: Zeraskurinos is an unknown quantity at this point

Solved Threads: 0

Zeraskurinos Zeraskurinos is offline

Offline

Newbie Poster

Problem when connecting with winsock through router

Sep 30th, 2008

I use winsock a lot in my programs and it is very good but I can't achieve a connection when one of the users is behind an adsl router.

What should I do in order to make the connection?
I tryied port forwarding but the problem remains.

The applications I tested this on are working fine on a lan network or ona an internet network but with modem connection.

plz help me.

•

Join Date: Jul 2008

Posts: 3

Reputation: coolcurrent4u is an unknown quantity at this point

Solved Threads: 0

coolcurrent4u coolcurrent4u is offline

Offline

Newbie Poster

Re: Problem when connecting with winsock through router

Oct 1st, 2008

•

Originally Posted by Zeraskurinos

I use winsock a lot in my programs and it is very good but I can't achieve a connection when one of the users is behind an adsl router.

What should I do in order to make the connection?
I tryied port forwarding but the problem remains.

The applications I tested this on are working fine on a lan network or ona an internet network but with modem connection.

plz help me.

can you pls post your source code so that i can check it for you

•

Join Date: Sep 2008

Posts: 4

Reputation: Zeraskurinos is an unknown quantity at this point

Solved Threads: 0

Zeraskurinos Zeraskurinos is offline

Offline

Newbie Poster

Re: Problem when connecting with winsock through router

Oct 1st, 2008

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Private Sub Command1_Click()
w1.Close
DoEvents
w1.Connect Text1.Text, Text2.Text
DoEvents
DoEvents
End Sub
 
Private Sub Command2_Click()
w2.Close
DoEvents
w2.LocalPort = Text3.Text
DoEvents
w2.Listen
DoEvents
End Sub
 
Private Sub Command3_Click()
If w1.State = sckConnected Then MsgBox "AXAXOUXA!"
End Sub
 
Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckConnected Then w1.Close
w1.Accept requestID
End Sub
 
Private Sub w2_ConnectionRequest(ByVal requestID As Long)
If w2.State <> sckConnected Then w2.Close
w2.Accept requestID
End Sub
Private Sub Command1_Click()
w1.Close
DoEvents
w1.Connect Text1.Text, Text2.Text
DoEvents
DoEvents
End Sub

Private Sub Command2_Click()
w2.Close
DoEvents
w2.LocalPort = Text3.Text
DoEvents
w2.Listen
DoEvents
End Sub

Private Sub Command3_Click()
If w1.State = sckConnected Then MsgBox "AXAXOUXA!"
End Sub

Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckConnected Then w1.Close
w1.Accept requestID
End Sub

Private Sub w2_ConnectionRequest(ByVal requestID As Long)
If w2.State <> sckConnected Then w2.Close
w2.Accept requestID
End Sub