Ethernet through VB

[Anuj]

Does any one know how to communicate through Ethernet in VB
please tell me as soon as possible.

[sashi]

Hi Anuj,

make use the bundled winsock control.. where PC A will have an IP address and PC B will have another IP Address.. in these case either one PC can play the role of a server and another one will be client..

try looking for client/server sample source codes in google.com.. perhaps the link below will give you an idea to get started.. happy trying and good luck my fren..

http://www.planet-source-code.com/vb...30413&lngWId=1

[kuzure]

Dear friends,

This is my first post in this forum. Nice to meet you guys.

I have some questions here, since VB can communicate with Ethernet, how do I "fax" a document by an ADSL?

1) I know how to fax a document by window xp. There is an available function in Window xp, all I need to do is to enable it. But, problems occur... ...

If a modem is just a device to "send" data through PSTN, does it mean the document had converted into some kind of protocol before it "give" to the modem?

Does it mean if I'm able to fax by ADSL, I need to convert the document to some kind of protocol by myself before I "give" to the ADSL?

2)If I want to fax a document, lets say, from notepad, after I click on "print", I may choose a device to print. If I choose a "fax machine"(dial up modem that detected), it will pop out a window and inquiring for the fax number, and of course, it fax.

But if I'm using an ADSL, the "device" won't show an ADSL. I cannot choose my desire "fax device".

3)an ADSL cannot dial, how do I "dial" a number by VB?

4)if an ADSL is a multiplexer, does it mean I have a chance to fax my document through PSTN?

[Austen]

Private Sub Winsock_Close()
Winsock.Close 'closes any previous connections
Winsock.LocalPort = CLng(2007) '2006 is the port number agree byboth side (Both side must use the same number)
Winsock.Listen
bPreNextFrame = True ' Resend i7
lblStatus.Caption = "Listening"
bSendActive = False
Call Twincat.Ads1.AdsSyncWriteBoolVarReq(PreMarkDataRec eive, 2&, bSendActive)
tgfrmRunTimeDate = "[" & Format(Now, "dd-mmm-yyyy") & " " & Format(Now, "hh:nn:ss") & "]"
frmRunTimeMsg.lstMsg.AddItem (tgfrmRunTimeDate & " Vision Disconnected(Pre-Mark)")
PreMarkStatus = "DISCONNECTED"
'PreMarkDataReceive = True
End Sub

[Austen]

Private sub form_Load()
'2007 is the port num used by ethernet port to identify which program is
'connecting, 1 ethernet port may have few port number( for diff program

Winsock.LocalPort = CLng(2007)
Winsock.Listen
end sub

Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
Dim bErrorFlag As Boolean

'closes connection if one is already open
If Winsock.State <> sckClosed Then Winsock.Close
Winsock.Accept requestID 'allows new connection
end if
End Sub


Private Sub Winsock_Close()
Winsock.Close 'closes any previous connections
Winsock.LocalPort = CLng(2007) '2006 is the port number agree by
both side
Winsock.Listen
PreMarkStatus = "DISCONNECTED"
End Sub

command1_click ()
Winsock.SendData "INI; " & Mydate & " " & MyTime
end sub


Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
Dim stData, stHeader As String

Call Winsock.GetData(stData, vbString)

'code here

end sub

[kuzure]

Private sub form_Load()
'2007 is the port num used by ethernet port to identify which program is
'connecting, 1 ethernet port may have few port number( for diff program

Winsock.LocalPort = CLng(2007)
Winsock.Listen
end sub

Private Sub winsock_ConnectionRequest(ByVal requestID As Long)
Dim bErrorFlag As Boolean

'closes connection if one is already open
If Winsock.State <> sckClosed Then Winsock.Close
Winsock.Accept requestID 'allows new connection
end if
End Sub


Private Sub Winsock_Close()
Winsock.Close 'closes any previous connections
Winsock.LocalPort = CLng(2007) '2006 is the port number agree by
both side
Winsock.Listen
PreMarkStatus = "DISCONNECTED"
End Sub

command1_click ()
Winsock.SendData "INI; " & Mydate & " " & MyTime
end sub


Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
Dim stData, stHeader As String

Call Winsock.GetData(stData, vbString)

'code here

end sub

is that code for me or for Anuj???

[Austen]

is that code for me or for Anuj???

it is simple example dealing with Winsock, eternet application. is for Anuj

[kuzure]

it is simple example dealing with Winsock, eternet application. is for Anuj

sorry, i'm a newbie, but asked to do something I had never learn before, even Winsock... ...I dunno what is it!!!!!!!

hrm, I need to enable Winsock respectively? Or you mean we can just copy your code, and it will able to create a LAN network?

Still, looking for help in faxing via ADSL