Hader WinSock - og nu skal jeg fortælle jer hvorfor

Nytter intet at lave:
-----------------------------
Public Sub cmdchatSend_Click()

        If Not txtServerChat.Text = "" & frmSplash.lblConnected.Caption = "1" Then
            'Sender teksten 
            WS.SendData text1.text
           
            'renser chat-linien
            text1.Text = ""
        End If

End Sub
-----------------------------

Og heller ikke


-----------------------------
dim fedninja as integer
fedninja = 0
Public Sub cmdchatSend_Click()
Fedninja = 1

        If Not txtServerChat.Text = "" & frmSplash.lblConnected.Caption = "1" & fedninja <> "0" Then
            'Sender teksten 
            WS.SendData text1.text
           
            'renser chat-linien
            text1.Text = ""

           
        End If
fedninja = 0
End Sub
-----------------------------

åh undskyld txtserverchat.text skulle naturligvis være text1.text

http://www.devshed.com/c/a/Python/Sockets-in-Python/

Hvad hjælper det link? Koden virker jo, og sender data - det er bare muligt at lave et overflow af data til serveren.

og det er ikke muligt at få den til at sende 2x beskeder, lige efter hinanden - så bliver det lagt i samme "meddelelse"

Kan du så ikke bare benytte dig af SendComplete()


Public Sub cmdchatSend_Click()
  If Not txtServerChat.Text = "" & frmSplash.lblConnected.Caption = "1" Then
    cmdchatSend.Enabled = False ' <- Tilføjet af sjh
    WS.SendData text1.Text
    text1.Text = ""
  End If
End Sub

Private Sub WS_SendComplete()
  cmdchatSend.Enabled = True
End Sub

Jeg prøver lige, sjh

Det virker, sjh - med lidt sideeffekter. Man kan ikk sende multi-beskeder lige efter hinanden. Dvs.

  WS.SendData "tja"
  WS.SendData "ninja"

Så vil den låse op, indtil tja er sendt, og "glemmer" ninja.

Jeg tror løsningen bliver en list, hvor alle send-beskeder bliver lagt i - og så en timer, som hvert milisec sender beskeden afsted.
Det er bare alt for advanceret løsning til et så simpelt problem.

Men dit svar hjalp, bare læg svar, sjh.

med multi beskeder mener jeg ikke:

  WS.SendData "tja"
  WS.SendData "ninja"

Men naturligvis:

text1.text = "tja"
call cmdchatsend_click

text1.text = "ninja"
call cmdchatsend_click

Ja det er jo lidt svært at sige hvordan det skal laves på din løsning, men jeg vil nok vælge en løsning med flere winsock's, eller lave en commando som fortæller serveren at beskeden skal sendes til flere bruger.

Jeg springer point over.. ellers tak.

ellers prøv med noget i den stil...


Dim i As Long
Dim arrUsers() As String

  ReDim arrUsers(1) As String
  arrUsers(0) = "tja"
  arrUsers(1) = "ninja"

  For i = LBound(arrUsers) To UBound(arrUsers)
    Text1.Text = arrUsers(i)
    Do Until cmdchatSend.Enabled = True
      DoEvents
    Loop
    Call cmdchatSend_Click
  Next

:) Jeg prøver engang. Men skal ikke sendes til flere brugere, så flere winsocks hjælper vel ikke.

Er glad for din hjælp, sjh - hader bare winsock ;).

Jeg satte det sammen med en list til at holde øje med alle meddelelser. Det virker ;).