Re: ANSI Character in Yahoo
i have tryed the Unicode & able to make the text pad ,, but i dont know how the Unicode works with yahoo , sending like
& # 97 ; or 2494 & converting it in to the Character/Symbol.
Is there any way to send these & converting the Unicode in to the Character in yahoo.
the yahoo messenger supports the all ANSI Character, like , ¬ ¢, but i cant send them with mi chat client ,
Is there any way to send these Character (¬ ¢) in yahoo with vb.
-thanx
Re: ANSI Character in Yahoo
try sniffing the packets or try using these function
Public Function HextoAscii(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Chr(Val("&H" & spilter(i)))
Next i
HextoAscii = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Chr(Val("&H" & inputstr))
HextoAscii = finnal
End If
End Function
Public Function HextoLen(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Asc(Chr(Val("&H" & spilter(i)))) & " "
Next i
HextoLen = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Asc(Chr(Val("&H" & inputstr)))
HextoLen = finnal
End If
End Function
Public Function LentoHex(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
inputstr = Trim(inputstr)
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Hex(Asc(Chr(spilter(i)))) & " "
Next i
LentoHex = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Hex(Asc(Chr(inputstr)))
LentoHex = finnal
End If
End Function
Public Function Asciitohex(inputstr As String) As String
On Error Resume Next
Dim spilter As Variant, i As Integer, finnal As String
For i = 1 To Len(inputstr)
finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "
Next i
Asciitohex = Mid(finnal, 1, Len(finnal) - 1)
End Function
example
Sock.SendData (HextoAscii("put the hex part here")
hope that helps