Como Obtener el Texto de una Ventana en Japones? :P

[RHL]

buenas tengo ese problema :/ no se como obtener el titulo de una ventana en japones
ya e probado con varios codigo obtengo los caracteres asi :  ?? ( el emoticono es ? x 3 )
y quiero obtener o hacer que mi aplicacion pueda leer y escribir caracteres de todos tipos
´pues  e probado tambien con GetWindowTextW y crei que me los devolveria pero mi resultado fue este:
 ? ? ? ? ?

como puedo hacer amigos? 

[coco]

en efecto, tenes que usar GetWindowTextW. pero para poder displayarlo, tambien necesitas apis Wide.
Usar un string te puede servir (tenes que usar el doble de caracteres de lo que realmente son), pero igualmente no lo podes mostrar en VB tan facil

[RHL]

si, lo hago asi, pero los caracteres sigen asi  ? ? ? ? ? ?

Código: (vb) [Seleccionar]

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextW" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Form_Load()
Dim CAD         As String

CAD = Space$(200)
Debug.Print GetWindowText(WHANDLE, CAD, 200)
End Sub


[seba123neo]

son caracteres unicode por eso no los ves, para eso podes usar algo asi, fijate esta pregunta:

Caracteres Especiales en TextBox [Ayuda]

[RHL]

tiene algo rollo :/ bueno gracias ya vere como me arreglo con el codigo

[raul338]

Lo puedes obtener bien, pero no puedes imprimirlo sobre una ventana que es ANSI trata de copiarlo al portapapeles y pegalo en el Notepad++ y te saldra

[LeandroA]

hola Otra codigo por si te interesa con el caption de formulario.

Código: (Vb) [Seleccionar]

Private Declare Function DefWindowProc Lib "USER32" Alias "DefWindowProcW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_SETTEXT        As Long = &HC
Private Const WM_GETTEXT        As Long = &HD
Private Const WM_GETTEXTLENGTH  As Long = &HE

Public Property Let CaptionW(ByVal NewValue As String)
    DefWindowProc Me.hwnd, WM_SETTEXT, 0, ByVal StrPtr(NewValue)
End Property

Public Property Get CaptionW() As String
    Dim strLen As Long
    strLen = DefWindowProc(Me.hwnd, WM_GETTEXTLENGTH, 0, ByVal 0)
    CaptionW = Space(strLen)
    DefWindowProc Me.hwnd, WM_GETTEXT, Len(CaptionW) + 1, ByVal StrPtr(CaptionW)
End Property

[RHL]

Mil gracias lo guardo