versucht client und server zu coden in vb6
hallo,
ich habe nach einem Tutorial versucht einen server und einen clienten zu coden.
Es funktioniert aber ned wirklich.. hier mal den Source vielleicht könnt ihr Sagen was ich falsch gemacht habe
Client:
Code:
Option Explicit
Private Sub Form_Load()
Dim ServerIP As String
' Command1 deaktivieren
Command1.Enabled = False
' Die IP-Adresse oder Computer-Name des Servers
ServerIP = "192.168.2.1"
' 1. Parameter: Computername /-ip
' 2. Parameter: Portnummer
Winsock1.Connect ServerIP, 6885
End Sub
' Wenn eine direkte Verbindung aufgebaut ist
Private Sub Winsock1_Connect()
' Jezt können wir mit dem Button die Nachricht senden
Command1.Enabled = True
End Sub
Private Sub Command1_Click()
' Nachricht an Server senden
Winsock1.SendData "Hallo Server!"
End Sub
' Wenn die Verbindung geschlossen wird
Private Sub Winsock1_Close()
' Ohne Verbindung kann man auch keine
' Nachrichten senden: Button Aus
Command1.Enabled = False
End Sub
Server:
Code:
Private Sub Form_Load()
' Command1 deaktivieren
Command1.Enabled = False
' Port 12345 soll abgehört werden
Winsock1.LocalPort = 6885
' Abhör-Vorgang starten
Winsock1.Listen
End Sub
Private Sub List1_Click()
End Sub
' Wenn ein Computer versucht eine Verbindung mit dem
' Server aufzubauen
Private Sub Winsock1_ConnectionRequest( _
ByVal requestID As Long)
' Das Abhören wird beendet
Winsock1.Close
' Die Verbindung wird akzeptiert
Winsock1.Accept requestID
' Command1 anschalten damit man die Nachricht
' senden kann
Command1.Enabled = True
End Sub
' Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
' Die ankommenden Daten werden in einer Variable
' (strDaten) gespeichert
Winsock1.GetData sData
' Und in einer MutliLine-TextBox ausgegeben
With txtMsg
.SelStart = Len(.Text)
.SelText = sData
End With
End Sub
Private Sub Command1_Click()
' Nachricht wird zum Client gesendet
Winsock1.SendData "Hallo Client!"
End Sub
' Wenn die Verbindundung getrennt wird
Private Sub Winsock1_Close()
' Command1 ausschalten
Command1.Enabled = False
End Sub
was is daran falsch
