如何從外部應用程序獲取非ansi字符串顯示正確？

-1

我想從聊天室獲取文本。爲此，我使用Marshal類獲取字符串指針並使用Marshal.PtrToStringUni將其轉換回字符串。我的目標字符串是用越南語（UTF-8，代碼頁Windows-1258）編寫的。我無法正確顯示它（結果顯示奇怪的中文和符號）。我應該在下面的代碼中更改什麼才能正確使用？謝謝〜如何從外部應用程序獲取非ansi字符串顯示正確？

'API Declaration 
Declare Auto Function SendMessage Lib "user32.dll"(ByVal hWnd As IntPtr, ByVal msg As Integer, _ 
    ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 
     Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 

    'Sub to get chat room text 
    ' I already got the handle of the chat text area (RoomText) 
    Private Sub GetText() 
     'get text length 
     length = SendMessage(RoomText, WM_GETTEXTLENGTH, 0, 0) + 1 
     'Alloc memory for the buffer that receives the text 
     Dim Handle As IntPtr = Marshal.AllocHGlobal(length) 
     'send WM_GETTEXT message to the chat window 
     Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, length, Handle) 
     'copy the characters from the unmanaged memory to a managed string 
     Dim Text As String = Marshal.PtrToStringUni(Handle) 
     'Display the string using a textbox 
     TextBox1.AppendText(Text) 

    End Sub

這裏是上面代碼的結果：

P/S：在其他的努力，我試過SendMessageW和SendMessageA功能，只有SendMessageA產生的串混合了英語和問號（類似於ng？y de？p ...）。 SendMessageW返回奇怪的字符。

來源

2017-08-01 Garena Plus Beta

[MultiByteToWideChar]（https://msdn.microsoft.com/en-us/library/windows/desktop/dd319072.aspx）。要理解爲什麼，請閱讀[絕對最低限度的每個軟件開發人員，積極肯定Unicode和字符集（無藉口！）]（https://www.joelonsoftware.com/2003/10/08/the-absolute-minimum -every軟件開發商，絕對-正必知 - 關於支持unicode和字符集，沒有藉口/）。 – IInspectable

@IInspectable。謝謝你的提示。 –

您正在調用SendMessageA。改爲調用SendMessageW。 –

-1

'API Declaration 
     Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32 
       Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 

      'Sub to get chat room text 
      ' I already got the handle of the chat text area (RoomText) 
      Private Sub GetText() 
       'get text length 
       length = SendMessage(RoomText, WM_GETTEXTLENGTH, 0, 0) + 1 
       'Alloc memory for the buffer that receives the text 
       'Be noted that Length is the string character count, but Marshal.AllocHGlobal need byte count. 
       'in VB.net string, a character use 2 byte so I put *2 
       Dim Handle As IntPtr = Marshal.AllocHGlobal(length*2) 
       'send WM_GETTEXT message to the chat window 
       Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, length, Handle) 
       'copy the characters from the unmanaged memory to a managed string 
       Dim Text As String = Marshal.PtrToStringUni(Handle) 
       'Display the string using a textbox 
       TextBox1.AppendText(Text) 

      End Sub

來源

2017-08-01 14:10:34

這是**錯誤**簽名。它將在64位Windows上失敗。它並不能解決你的問題，因爲你沒有分析你的問題。恐怕，這個答案沒有用。 -1。 – IInspectable

@Inspectable。我正在測試這個代碼在我的Windows 10,64位，它的工作原理。是的，我誤解了聊天窗口中的文本是UTF-8。對於獲取文本的更一般的方式，您的觀點是什麼？....順便說一下，在這種情況下，我認爲MultiByteToWideChar沒有任何用處。我對嗎？ –

如何從外部應用程序獲取非ansi字符串顯示正確？

回答

相關問題