Send(data)
{
	Global socket
	data .= "`r`n"
	datalen := StrPutVar(data, data2, "UTF-8")
	Return AHKsock_ForceSend(socket, &data2, datalen)
}
StrPutVar(string, ByRef var, encoding)
{
    ; Ensure capacity.
    VarSetCapacity( var, StrPut(string, encoding)
        ; StrPut returns char count, but VarSetCapacity needs bytes.
        * ((encoding="utf-16"||encoding="cp1200") ? 2 : 1) )
    ; Copy or convert the string.
    return StrPut(string, &var, encoding)
}