how to support unicode in vb6

vb 6 when i use unicode

ДдαάǺǻª

it show ?????? like and when i login it show login fail.. how to solve this error i want to support all unicodes. kindly help me reza bro

check it out

[You must be registered and logged in to see this link.]

and here is something called chrw$ () calls


Option Explicit

Private Enum UnEscStates
uesNotInEscapeSeq = 0
uesProcessingEscSeq = 1
uesProcessingLongEscSeq = 2
uesProcessingLongEscSeqXEnd = 3
uesProcessingLongEscSeqUEnd = 5
End Enum

Public Function UnEscape(ByVal EscapedText As String) As String
'Un-escape a string value. Escape sequences supported:
'
' ^xhh 7 bit hex ^r vbCr
' ^uhhhh 16 bit hex ("Unicode") ^l vbLf
' ^b vbBack ^n vbNewLine/vbCrLf
' ^t vbTab ^q quote (")
' ^v vbVerticalTab ^0 vbNullChar
' ^f vbFormFeed ^^ ^

Dim Pos As Long
Dim ChS As String
Dim ChW As Integer
Dim UpChW As Integer
Dim UnEscState As UnEscStates
Dim UnPos As Long
Dim Unicode As Boolean
Dim Accum As Long

UnEscape = Space$(Len(EscapedText))
UnPos = 1&
For Pos = 1& To Len(EscapedText)
ChS = Mid$(EscapedText, Pos, 1&)
ChW = AscW(ChS)
UpChW = AscW(UCase$(ChS))
Select Case UnEscState
Case uesNotInEscapeSeq
If ChW = 94# Then ' "^"
UnEscState = uesProcessingEscSeq
End If
Case uesProcessingEscSeq
UnEscState = uesNotInEscapeSeq
Select Case UpChW
Case 88# ' "X"
UnEscState = uesProcessingLongEscSeq
Case 85# ' "U"
Unicode = True
UnEscState = uesProcessingLongEscSeq
Case 66# ' "B"
ChS = vbBack
Case 84# ' "T"
ChS = vbTab
Case 86# ' "V"
ChS = vbVerticalTab
Case 70# ' "F"
ChS = vbFormFeed
Case 82# ' "R"
ChS = vbCr
Case 76# ' "L"
ChS = vbLf
Case 78# ' "N"
Mid$(UnEscape, UnPos, 1&) = vbCr
UnPos = UnPos + 1
ChS = vbLf
Case 81# ' "Q"
ChS = """"
Case 48# ' "0"
ChS = vbNullChar
Case 94# ' "^", i.e. ^^
'
Case Else
Err.Raise 5
End Select
Case Else
If (48# <= UpChW And UpChW <= 57#) Then
Accum = 16& * Accum + (CLng(UpChW) And &HF&)
ElseIf (65# <= UpChW And UpChW <= 70#) Then
Accum = 16& * Accum + (CLng(UpChW) - 55&)
Else
Err.Raise 5
End If
UnEscState = UnEscState + 1&
If Unicode Then
If UnEscState > uesProcessingLongEscSeqUEnd Then
ChS = ChrW$(Accum)
Accum = 0&
UnEscState = uesNotInEscapeSeq
Unicode = False
End If
Else
If Accum > 127 Then Err.Raise 5
If UnEscState > uesProcessingLongEscSeqXEnd Then
ChS = ChrW$(Accum)
Accum = 0&
UnEscState = uesNotInEscapeSeq
End If
End If
End Select
If UnEscState = uesNotInEscapeSeq Then
Mid$(UnEscape, UnPos, 1&) = ChS
UnPos = UnPos + 1&
End If
Next
If UnEscState <> uesNotInEscapeSeq Then Err.Raise 5
UnEscape = Left$(UnEscape, UnPos - 1&)
End Function

bro if you give me one example then i can easly undterstand. give me any simple project to understand. one textbox and one command button who save textbox text in txt file.. plz

keylogger* wrote:

leopard wrote:

vb 6 when i use unicode

ДдαάǺǻª

it show ?????? like and when i login it show login fail.. how to solve this error i want to support all unicodes. kindly help me reza bro

vb6 dont support unicode
try using microsoft form2.0. but its also a bloody coding.

i encourage you to use vb.net instead of the old vb6 since vb6 dont really support unicode.

i seen softwares who made in vb 6 and support unicodes

Just uploaded it for you
Here is the project
[You must be registered and logged in to see this link.]

Cheers!
Khuram imtiaz

not on nimbuzz khuram

give example of vb6 nimbuzz login with a unicode character as a resource...
if you can do that then i will call you master khuram

I am not basically a vb6 programmer brother. Waiting for the leopard reply and based on that, i will see what i can do next regarding vb6.
Cheers!
Khuram imtiaz

try to analyze this...

[You must be registered and logged in to see this link.]

but as what i have told you vb6 don't really support unicode when it comes to packet sending and recieving.

good luck for having a headache

bro i need input unicode text thats auto not dectecting what language is it. just like login to nimbuzz. coz i can display it by form2.0 but while excuting that in programming its show error. and thanks so much khuram bro you given little help..


better give me nimbuzz unicode supported login project :*HYPNOTIC*: :*HYPNOTIC*: :*PATROLMAN*:

leopard wrote:

bro i need input unicode text thats auto not dectecting what language is it. just like login to nimbuzz. coz i can display it by form2.0 but while excuting that in programming its show error. and thanks so much khuram bro you given little help..


better give me nimbuzz unicode supported login project :*HYPNOTIC*: :*HYPNOTIC*: :*PATROLMAN*:

as what i have told you vb6 dont support unicode. khuram can't help you with this.
its really bloody coding using microsoft form2.0 for this kind of application...

try to learn vb.net. its more advance than the old vb6