如何解决sendMessage和postMessage中文乱码问题

伶俐的毛豆

求助各位老师帮忙看看代码，为什么老是乱码，应该怎么解决呢

1. 
   
2. Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
3. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As LongLong, lParam As Long) As Long
   
5. Public Const WM_CHAR = &H102 '
   
6. 
   
7. Type Org
   
8.     tag As String
   
9. End Type
   
10. 
    
11. Sub ?o?e????yX()
    
12.     Dim hwnd As Long
    
13.     Dim TitleName As String, s As String
    
14. 
    
15.     shell "CMD.EXE"
    
16.      Application.Wait (Now + TimeValue("00:00:02"))
    
17.     TitleName = "C:\Windows\SYSTEM32\CMD.EXE"
    
18.     hwnd = FindWindow(vbNullString, TitleName)
    
19.       
    
20.     '方法1：
    
21.     s = "我"
    
22.     PostMessage hwnd, WM_SYSCHAR, Asc(s), ByVal 0&
    
23.    
    
24.     '方法2：
    
25.     Dim str As Org
    
26.     str.tag = s
    
27.     PostMessage hwnd, WM_SYSCHAR, Asc(str.tag), ByVal 0&
    
28. End Sub

复制代码

tspliu

粗一看，这里绝对有问题

tspliu

我试着没有什么问题

伶俐的毛豆

我更正了以後，還是亂

1. 
   
2. Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
3. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As LongLong, lParam As Any) As Long
   
5. Public Const WM_CHAR = &H102 '
   
6. 'Public Const EM_GETLINECOUNT = &HBA
   
7. 'Public Const EM_GETLINE = &HC4
   
8. Type Org
   
9.     tag As String
   
10. End Type
    
11. 
    
12. Sub 祇癳いゅ睹絏()
    
13.     Dim hwnd As Long
    
14.     Dim TitleName As String, s As String
    
15. 
    
16.     shell "CMD.EXE"
    
17.      Application.Wait (Now + TimeValue("00:00:02"))
    
18.     TitleName = "C:\Windows\SYSTEM32\CMD.EXE"
    
19.     hwnd = FindWindow("ConsoleWindowClass", TitleName)
    
20.       
    
21.     'よ猭1�G
    
22.     s = "и"
    
23.     PostMessage hwnd, WM_CHAR, Asc(s), ByVal 0&
    
24.    
    
25.     'よ猭2�G
    
26.     Dim str As Org
    
27.     str.tag = s
    
28.     PostMessage hwnd, WM_CHAR, Asc(str.tag), ByVal 0&
    
29. End Sub

复制代码

碼

lss001

伶俐的毛豆 发表于 2024-7-29 17:33
我更正了以後，還是亂
碼

乱码根本原因是cmd编码问题，也就是说cmd活动代码页设置的编码跟你发送的字符串编码有冲突，您得查一下活动代码页中设置的是什么编码？

以下是常用活动代码页
65001——>UTF-8
936——>简体中文
950——>繁体中文
437——>美国英语
932——>日文
949——>韩文
866——>俄文

查看活动代码页，输入：chcp→回车
更改活动代码页，输入：chcp 65001→回车

伶俐的毛豆

lss001 发表于 2024-7-29 21:12
乱码根本原因是cmd编码问题，也就是说cmd活动代码页设置的编码跟你发送的字符串编码有冲突，您得查一下活 ...

老师，按照你的方法查询cmd默认编码是950,
我把编码设定成了65001，还是乱码

lss001

伶俐的毛豆 发表于 2024-7-30 08:22
老师，按照你的方法查询cmd默认编码是950,
我把编码设定成了65001，还是乱码

上面是举个例子而己，具体的还是要看您发的是什么字符串而变？比如您发送的是简体中文，而您的代码页设置的是65001那就不对了

伶俐的毛豆

lss001 发表于 2024-7-30 13:38
上面是举个例子而己，具体的还是要看您发的是什么字符串而变？比如您发送的是简体中文，而您的代码页设 ...

其实我的dos窗口默认是繁体中文，用chcp打印出来是950
保持dos默认编码，在vba程序里面写入繁体字，传入还是乱码
因为我的系统是繁体

lss001

伶俐的毛豆 发表于 2024-7-30 15:59
其实我的dos窗口默认是繁体中文，用chcp打印出来是950
保持dos默认编码，在vba程序里面写入繁体字，传入 ...

可改为936简体中文试一下
或者找一下转码函数转一下