Winsock And Split Function(RESOLVED)

[baked_noodle]

I need to know how to use the split function. I have a program I wrote using the split function and it works but the one I am writing doesnt seem to want to work

for instance I have a client when the use clicks send it does this

sckSend.SendData strName & strMsg

I need the host to take it and split it to two variables like this

Private Sub sckAccept_DataArrival(ByVal bytesTotal As Long)
sckAccept.GetData Data, vbString, bytesTotal

I need it to get the data and then split it to its necessary variables likes this on the data accept do this

MsgBox " strName & strMsg "

I am basically asking how to assign the data received to variables for use in the server

[dglienna]

You have to send it with a character that you use to split the data. If you use the space character, then it would split on first name and last name in addition to the message. Perhaps you could use the ~ character. This would be easy to split.

dim arr() as string
arr = Split(mystring,"~")

then arr(0) is the name and arr(1) is the message

[moeur]

Use a delimiter before sending the data
sckSend.SendData strName & "|" & strMsg
Then split it this way
MyData = Split(Data, "|", 2)
MsgBox MyData(0) & " " & MyData(1)

[baked_noodle]

How can I tell what is assigned to Data(0) and Data(1) my program doesnt seem to use the values of these variables

[dglienna]

How did you split Data?

[baked_noodle]

Private Sub sckAccept_DataArrival(ByVal bytesTotal As Long)
sckAccept.GetData Data, vbString, bytesTotal
Data2() = Split(Data, "|", 2)
Shell "C:\Windows\system32\cmd.exe /C net send" & Data2(0) & " " & Data2(1)
End Sub

[dglienna]

Private Sub sckAccept_DataArrival(ByVal bytesTotal As Long)
sckAccept.GetData Data, vbString, bytesTotal
Data2() = Split(Data, "|", 2)
Shell "C:\Windows\system32\cmd.exe /C net send" & Data2(0) & " " & Data2(1)
End Sub

You forgot the space after Net Send, try it like this:

Shell ("C:\Windows\system32\cmd.exe /C net send " & Data2(0) & " " & Data2(1)), vbNormalFocus

[baked_noodle]

its always something dumb like that thanks

[dglienna]

A second pair of eyes find more errors than eight hours staring at a screen.