winsock传输时，怎么才能完整的计算出整个包的长度呀

Question

没人知道吗？
len("你好")返回值为2
lenb("你好")返回值为4
lenb("你好aa")返回值是8，可我要得到返回值为6应该如何做呀

Answer 1

Private Function getLen()
    Dim i As Long
    Dim s As String
    Dim char As String
    Dim charCount As Long
    s = "asd风a格似"
    For i = 1 To Len(s)
        char = Mid(s, i, 1)
        If (Asc(char) > 255) Then
            charCount = charCount + 2
        Else
            charCount = charCount + 1
        End If
    Next i
    
    getLen = charCount
End Function