Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
DFJ_
Poster
Poster

Anmeldedatum: 15.10.2007
Beiträge: 156
Wie Winsock problem(adresse schon benutz)
Verfasst am: 13.04.2008, 15: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
Poster

Anmeldedatum: 22.07.2007
Beiträge: 108

Verfasst am: 13.04.2008, 15:26
anderen Port usen?
PS:
Welchen Port benutzt du denn?
_________________
 
DFJ_
Poster
Poster

Anmeldedatum: 15.10.2007
Beiträge: 156

Verfasst am: 13.04.2008, 15: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 "O"
Label1(Index).Caption = "O"
Label1(Index).ForeColor = "&H000000FF"
abfall = "O" & "#" & Label1(Index)
Winsock1.SendData abfall
abfall = ""

 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, 15:33, insgesamt 3-mal bearbeitet
 
jojo4ever_
Poster
Poster

Anmeldedatum: 22.07.2007
Beiträge: 108

Verfasst am: 13.04.2008, 15:31

Wenn der Server local ist muss er einen anderen Port haben Very Happy
sonst fällt mir nichts ein, vielleicht ports freischalten
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: winsock

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Tabelle auslesen Fehler excel.workbook 727 24.05.2011, 12:33
Keine neuen Beiträge VB.Net2005 und CMD 769 07.09.2010, 16:26
Keine neuen Beiträge VB.net als Lösung für mein Excel-Problem? 640 02.03.2010, 12:33
Keine neuen Beiträge Ähnliche Funktion wie PHP include??? 591 22.11.2007, 08:12
Keine neuen Beiträge google suchmaschiene???? 494 01.02.2007, 01:33
 




[ Time: 0.2001s ][ Queries: 93 (0.0212s) ][ GZIP on - Debug on ]