Scripting Winsock on other locales

[nmbook]

On non-latin non-Unicode locales, sending and receiving data on scripting suffers the same problem that it did internally before. When you call winsock.SendData STRING or winsock.GetData STRING, vbString, VB6 will mangle the data.

One workaround is to have VB6 use Byte() when interacting with Winsock. This is done in the internal program, now. The problem is, VBScript doesn't have that easy an access to Byte() data since it lacks the VB6 As keyword and types, It settles for dynamic typing with the Variant type. Existing scripts would have to be updated too.

A possible solution is to "wrap" the Winsock objects shared with scripts with CreateObj and handle the SendData and GetData calls as special cases, converting the Variant strings to Byte() and back for the actual calls to the object. Much like how clsSLongTimer wraps a Timer object.

[nmbook]

As of 432c910, it is possible to send and receive data for binary protocols through the DataBuffer's API, which circumvents all issues caused by locales.

    ' Example:
    ' Data buffering in a script made to connect to vL's BotNet service
    ' Headers are of the form:
    ' (UINT8) Protocol version (0x01)
    ' (UINT8) Packet ID
    ' (UINT16) Packet length

    ' BotNetSock is our Winsock object; this is the _DataArrival(Length) event
    ' RecvBuffer is a global DataBuffer object
    Sub BotNetSock_DataArrival(Length)
        Dim Packet
        RecvBuffer.GetDataAndAppend BotNetSock, Length
        Do While RecvBuffer.IsFullPacket(2)
            Set Packet = RecvBuffer.TakePacket(2)
            Call Recv_PacketSwitch(Packet)
            Set Packet = Nothing
        Loop
    End Sub

    ' sending function
    ' Buffer is a DataBuffer
    ' ID is a number between 0 and 255; usually constant values depending on packet in Buffer
    Sub BotNet_SendPacket(Buffer, ID)
        If BotNetSock.State <> 7 Then Exit Sub
        DataBuffer.InsertByte BN_PROTOCOL_VER ' constant 0x01
        DataBuffer.InsertByte ID
        DataBuffer.InsertWord Buffer.Length + 4
        If Buffer.Length > 0 Then
            DataBuffer.InsertByteArr Buffer.GetDataAsByteArr()
        End If
        DataBuffer.SendData BotNetSock
    End Sub

Since this does not fix old scripts that used Winsock's own .GetData() and .SendData() methods, this issue is not resolved.