Winsock - kontakt via to pc´er

Tags:    visual-basic

hej... jeg har problemer med at få 2 computere til at få kontakt med hinanden... nærmest som client og server... men jeg ved ik hvad der er galt her:
- server clienten -
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Text1.Text = data & vbCrLf & Text1.Text
End Sub

Private Sub Form_Load()
Winsock1.LocalPort = 4000
Winsock1.Listen
Form1.Caption = "Running at " & Winsock1.LocalIP
Text1.Text = ""
End Sub

- clienten -
Private Sub Form_Load()
Winsock1.RemotePort = 4000
End Sub

Private Sub cmdconn_Click()
Winsock1.RemoteHost = txtip.Text
Winsock1.Connect
End Sub

Private Sub cmdsend_Click()
Winsock1.SendData txtmsg.Text
End Sub

-- det skal fungere sådan at når man skriver en besked via clienten modtager "serveren" beskeden i en textbox... men jeg ved ikke hvad der er galt



4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Hej micheal b.

Ja sikke et problem du har der!´
Men jeg tror at fejlen ligger i at man skal huske a få den til at bind!

Så til at starte med i FORM_LOAD skal man skrive!

W.BIND

Så simpelt kan det være. Og hvis at du vil have svar fra SERVEREN skal du huske at få den til det.

Håber det virker ellers sig til!

---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?



Tak!



Tak!

Det virkede ikke men jeg har fundet ud af det. Men hvordan kan jeg få den til at gå ind på en hjemmeside eller åbne en fil?



Tak!
Det virkede ikke men jeg har fundet ud af det. Men hvordan kan jeg få den til at gå ind på en hjemmeside eller åbne en fil?


Til at få den til at åbene en fil anbefaler jeg denne side
http://www.udvikleren.dk/article.php?aid=81&techid=4
Men du osse bruge en richtextbox
richtextbox1.SaveFile FILNAVN
og
richtextbox1.LoadFile FILNAVN

Og til at gå ind på en hjemmeside
Dim data As String
Dim startprogram
data = """C:\\Programmer\\Internet Explorer\\iexplore.exe"" www.jubii.dk"
startprogram = Shell(data, vbMaximizedFocus)

Men det kommer an på om at internetexxplore er indstalleret på brugerens computer og at der er indleret der!

Det Burde være det

En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?



t