Wie Winsock problem(adresse schon benutz) Verfasst am: 13.04.2008, 16:25
Hallo, ich habe folgens problem,
was kann ich dagegen tuen das dieses nicht bassiert wenn es da eine lösung gibt google hat nicht viel gefunden , ich habe auch schon restart gemacht mit dem pc aber das hat auch irgend wie nicht geholfen kein ahnung warum , aber es half nix XD
jor meine frage wie kann man diesen fehler beheben ?
gru?
DFJ Spam bot
jojo4ever_ Poster
Anmeldedatum: 22.07.2007 Beiträge: 108
Verfasst am: 13.04.2008, 16:26
anderen Port usen?
PS:
Welchen Port benutzt du denn?
DFJ_ Poster
Anmeldedatum: 15.10.2007 Beiträge: 156
Verfasst am: 13.04.2008, 16:27
12345 / 12234 / usw.
keine ahnung warum aber es steht egal welche port ich ein gebe port benutz XD
Edit : \
hier der
source
naja hätte ich wieso später online gestellt
Tic Tac Toe Online
Code:
Dim figur As String
Private Sub cmd_connect_Click()
Winsock1.Connect txt_ip, "12345"
Frame1.Enabled = False
End Sub
Private Sub cmd_Listen_Click()
Winsock1.Listen
Frame1.Enabled = False
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = "12345"
Dim i As Integer
For i = 0 To 8
Label1(i).Caption = ""
Next i
End Sub
Private Sub Label1_Click(Index As Integer)
Dim abfall As String
If Label1(Index).Caption = "" Then
Select Case figur
Case "X"
Label1(Index).Caption = "X"
Label1(Index).ForeColor = "&H00000000"
abfall = "X" & "#" & Label1(Index)
Winsock1.SendData abfall
abfall = ""
End Select
End If
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
If figur_X.Value = True Then
figur = "X"
Winsock1.SendData "X"
Else
figur = "O"
Winsock1.SendData "O"
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim daten As String
Dim feld() As String
Winsock1.GetData daten
If InStr(1, daten, "#") = 1 Then
feld = Split(daten, "#")
Select Case feld(0)
Case "X"
Label1(feld(1)).Caption = feld(0)
Label1(feld(1)).ForeColor = "&H00000000"
Case "O"
Label1(feld(1)).Caption = feld(0)
Label1(feld(1)).ForeColor = "&H000000FF"
End Select
End If
Select Case daten
Case "X"
figur = "X"
Case "O"
figur = "O"
End Select
End Sub
Spam bot
Zuletzt bearbeitet von DFJ_ am 13.04.2008, 16:33, insgesamt 3-mal bearbeitet
jojo4ever_ Poster
Anmeldedatum: 22.07.2007 Beiträge: 108
Verfasst am: 13.04.2008, 16:31
Wenn der Server local ist muss er einen anderen Port haben
sonst fällt mir nichts ein, vielleicht ports freischalten
Registrieren
Login
