|
| Autor |
Nachricht |
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
Winsock Console connected nicht
Verfasst am: 22.03.2008, 15:55 |
|
|
So, nachdem ich bisher immer dank SuFu und Google alles gefunden habe, brauch ich jetzt doch mal eure Hilfe.
Ich code gerade eine Client Console (oder wie man das nennt) damit ich mit
mehreren Servern connecten kann, allerdings kann ich momentan nicht connecten. Vielleicht könnt ihr erkennen was am Code nicht stimmt.
Die ganzen Labels und die Liste sind erstmal egal^^
Screenshot: Klick mich hart!
Client Code:
| Code: | Private Function FindFreeIndex() As Integer
Dim i As Integer
For i = 1 To Winsock1.Count - 1
If Winsock1(i).State = sckClosed Then
FindFreeIndex = i
Exit Function
End If
Next
'Falls keine Verbindung frei ist, wird eine angelegt.
FindFreeIndex = Winsock1.Count
Load Winsock1(FindFreeIndex)
End Function
Private Sub cmd_listen_Click()
Winsock1(0).Close
Winsock1(0).Listen
lbl_listen.Caption = "Listening on Port " & Winsock1(0).LocalPort
lbl_stop.Caption = ""
lbl_stat.Caption = "Status: 2 = Listening "
End Sub
Private Sub cmd_stop_Click()
Winsock1(0).Close
lbl_stop.Caption = "Not listening on Port " & Winsock1(0).LocalPort
lbl_listen.Caption = "Not listening on Port " & Winsock1(0).LocalPort
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Form_Load()
Winsock1(0).LocalPort = 16661
Text1.Text = "Hostname : " & Winsock1(0).LocalHostName
Text2.Text = "IP : " & Winsock1(0).LocalIP
Text3.Text = "Local Port : " & Winsock1(0).LocalPort
End Sub
Private Sub Timer1_Timer()
If Winsock1(0).State = 2 Then
lbl_stat.Caption = "Status: 2 = Listening"
End If
If Winsock1(0).State = 0 Xor 1 Xor 8 Xor 9 Then
lbl_stat.Caption = "Status: 0 = No Connection"
End If
If Winsock1(0).State = 7 Then
lbl_stat.Caption = "Status: 7 = Connected"
Text4.Text = Winsock1(0).RemoteHost
Text5.Text = Winsock1(0).RemoteHostIP
Text6.Text = Winsock1(0).RemotePort
End If
Label1.Caption = Winsock1(0).State
Label2.Caption = Winsock1(i).State
Label3.Caption = Winsock1.Count
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1(FindFreeIndex).Accept requestID
End Sub
Private Sub Winsock1_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
End Sub
|
Ich hoffe ihr könnt mir Helfen
Mfg BAXX |
|
| |
|
 |
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
Verfasst am: 24.03.2008, 23:40 |
|
|
*Push*
 |
|
| |
|
|
slayer616_
Coder
Anmeldedatum: 16.05.2007
Beiträge: 90
|
Verfasst am: 25.03.2008, 10:14 |
|
|
| Code: |
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Winsock1(FindFreeIndex).Accept requestID
End Sub
|
da ist das Problem! Wenn du es selber gecodet hast müsstest du wissen was du hier falsch gemacht hast! |
|
| |
|
|
BAXX_
Newbie
Anmeldedatum: 14.01.2008
Beiträge: 7
Wohnort: BW/HE
|
Verfasst am: 25.03.2008, 14:40 |
|
|
 Auf anhieb kann ich den Fehler leider nicht finden...
Vielleicht kannst du mir noch nen Tipp geben oder den Fehler erklären.
Den Teil mit "FindFreeIndex" hab ich aus einem Tut von hier,
der Rest ist von mir. |
|
| |
|
|
slayer616_
Coder
Anmeldedatum: 16.05.2007
Beiträge: 90
|
Verfasst am: 25.03.2008, 16:06 |
|
|
versuche es mal so
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Load Winsock(FindFreeIndex)
Winsock1(FindFreeIndex).Accept requestID
End Sub |
|
| |
|
|
|
|
Registrieren
Login
