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
Fuka_
Coder
Coder



Anmeldedatum: 15.11.2007
Beiträge: 96
DataArrival Problem
Verfasst am: 02.04.2008, 10:22
Moin Leute!

Ich bin gerade dabei ein ganz kleines R.A.T zu schreiben.
Die Reverse Connection hab ich dank dem Source ( http://dbhost.info/vbx/viewtopic.php?t=1813&highlight=reverse ) gut verstanden und eingebaut! =)

Wenn ich auf Verbinden drücke, steht folgendes im Code:

Code:
   

If socket3.State = sckConnected Then
        Exit Sub
    Else
        If Lv.ListItems.Count <> 0 Then
            If socket2(Lv.SelectedItem.SubItems(2)).State = sckConnected Then
                socket3.Close
                socket3.LocalPort = 56
                socket3.Listen
                socket2(Lv.SelectedItem.SubItems(2)).SendData "connect"
               
            End If
        End If
    End If




Okay, ganz verständlich. Da wird "connect" an den Server gesendet, der damit dann zum Client verbindet.


Ich habe mir gedacht, um Commands zu versenden, mach ich es genauso, sprich:

Code:
 
If socket3.State = sckConnected Then
        Exit Sub
    Else
        If Lv.ListItems.Count <> 0 Then
            If socket2(Lv.SelectedItem.SubItems(2)).State = sckConnected Then
                socket3.Close
                socket3.LocalPort = 56
                socket3.Listen
                socket2(Lv.SelectedItem.SubItems(2)).SendData "test"
                     
            End If
        End If
    End If



Hier sendet der Client "test".

Im DataArrival steht das hier:

Code:

Private Sub Socket1_DataArrival(ByVal bytesTotal As Long)
Dim TestData As String

socket1.GetData TestData
If TestData = "test" Then
    socket4.Close
    MsgBox "test"
End If

End Sub




Also, wieso gibt er mir dann keine MsgBox raus? Question
Ich weiß einfach nicht mehr weiter...^^


MfG Wink
_________________


Zuletzt bearbeitet von Fuka_ am 02.04.2008, 13:46, insgesamt einmal bearbeitet
 
killer110_
Poster
Poster



Anmeldedatum: 16.04.2007
Beiträge: 165

Verfasst am: 02.04.2008, 12:03
Nehm ma das

Code:
Private Sub Socket1_DataArrival(ByVal bytesTotal As Long)
Dim TestData As String

socket1.GetData TestData
If TestData = "test" Then
    socket4.Close
    MsgBox "test"
End If

End Sub

_________________
 
Fuka_
Coder
Coder



Anmeldedatum: 15.11.2007
Beiträge: 96

Verfasst am: 02.04.2008, 13:19
Funzt auch nicht.. Sad

Ich weiß einfach nich wieso^^
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten

Tags: dataarrival, bytestotal

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Suche viele Leute für einen Downloader 516 28.09.2009, 16:10
Keine neuen Beiträge Feedback: Text1 und Text2 sollen an email gesendet werden 1547 25.09.2008, 16:33
Keine neuen Beiträge Server - Client 693 09.06.2007, 21:25
Keine neuen Beiträge Server BIuld Funtkion 489 19.05.2007, 22:41
Keine neuen Beiträge Server und client? 516 12.04.2007, 09:51
 




[ Time: 0.2490s ][ Queries: 89 (0.0940s) ][ GZIP on - Debug on ]