ich hab mal wieder ein problem
und zwar folgendes
1.ich möchte via winsock eine verbindung zu einem server aufbauen
(server hab ich noch garnicht)
2. möchte ich denn inhalt von zwei textboxen dort hin senden durch ein button click
das sieht bei mir so aus:
|
Source code
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Private Sub Command1_Click()
Winsock1.Connect "127.0.0.1", 1111
Winsock1.SendData Text1.Text
Winsock1.SendData Text2.Text
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Text2_Change()
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Not Winsock1.State Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrivel(ByVal bytesTotal As Long)
End Sub
|
aber irgendwie funktioniert das nicht
über hilfe würd ich mich sehr freuen