hello people i like ur forum very much
i got a vb6 project its about chatting
and got this function in it
Public Function SendTextPV(ByVal Kata As String, ByVal Tujuan As String, ByVal Pengirim As String)
SendTextPV = HexToAscii("0201F4000B" & DecToHexFull(Len(Kata) + Len(Tujuan) + Len(Pengirim) + 40) & "0008" & DecToHexFull(Len(Kata)) & AsciiToHex(Kata) & "00060000000200010004" & DecToHexFull(Len(Tujuan)) & AsciiToHex(Tujuan) & "000300000001010002" & DecToHexFull(Len(Pengirim)) & AsciiToHex(Pengirim) & "00010000000101")
End Function
its about sending private msg
now this function use ascii and hex
its working fine and everything is fine but when im trying to send text in arabic
like : مرحبا
it send it to the one im talking in pvt like this ظ ط±ط*ط¨ط§
so how we can make it support arabic ? or unicode ??
i got a vb6 project its about chatting
and got this function in it
Quote:
Public Function SendTextPV(ByVal Kata As String, ByVal Tujuan As String, ByVal Pengirim As String)
SendTextPV = HexToAscii("0201F4000B" & DecToHexFull(Len(Kata) + Len(Tujuan) + Len(Pengirim) + 40) & "0008" & DecToHexFull(Len(Kata)) & AsciiToHex(Kata) & "00060000000200010004" & DecToHexFull(Len(Tujuan)) & AsciiToHex(Tujuan) & "000300000001010002" & DecToHexFull(Len(Pengirim)) & AsciiToHex(Pengirim) & "00010000000101")
End Function
now this function use ascii and hex
its working fine and everything is fine but when im trying to send text in arabic
like : مرحبا
it send it to the one im talking in pvt like this ظ ط±ط*ط¨ط§
so how we can make it support arabic ? or unicode ??