You know 100% of vb6? Ok, answer me, i ask few questions..
What does this mean?
Code:
Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, lpUsedDefaultChar As Long) As Long
Code:
Function UTF8decode(ByRef Text As String) As String
Dim bytText() As Byte, bytOut() As Byte, lngOut As Long
'
bytText = StrConv(Text, vbFromUnicode)
' comments off ;D
lngOut = LenB(Text) * 2
ReDim bytOut(lngOut - 1)
' suoritetaan muunnos
lngOut = MultiByteToWideChar(65001&, 0&, ByVal VarPtr(bytText(0)), Len(Text), ByVal VarPtr(bytOut(0)), lngOut)
' ..
If lngOut > 0 Then
ReDim Preserve bytOut(lngOut * 2 - 1)
UTF8decode = bytOut
End If
End Function
Well, and same without API's..
Code:
Private Sub Command1_Click()
Dim tiedosto As String, pituus As Long, tavut() As Byte, teksti As String
file = Environ$("userprofile") & "\desktop\test.txt"
pituus = FileLen(file)
ReDim tavut(1 To pituus)
Open file For Binary Access Read As #1
Get #1, 4, tavut: Close #1
For i = 1 To UBound(tavut)
Select Case Val(Format$(tavut(i)))
Case 32 To 127
qq = qq + Chr(Val(Format$(tavut(i))))
'äö
Case 132
teksti = teksti + "Ä"
Case 133
qq = qq + "Ö"
Case 150
qq = qq + "Ã…"
Case 164
qq = q + "ä"
Case 165
qq = teksti + "Ã¥"
Case 182
qq = qq + "ö"
End Select
Next i
MsgBox asd
End Sub
And paste here how to use OpenGL with Vb6..
And can you make vb6 hack within .dll's?
And about C++..30%?
If u know 30% of C++ i ask simple question..
how to make a XOR swap?