如何用vba向同一個dos窗口逐条发送命令

伶俐的毛豆

tspliu 发表于 2024-7-23 17:18
拆字符串转键码这算基础知识了应该，一个foreach循环就解决了的事。
读回显内容啊，有一类windowsAPI 可 ...

如何用postmessage把这串命令传到dos窗口？我试验了好几次，都失败了，比如我要传入"cd C:\Users\G4987120\AppData\Local\Programs\WinSCP"

1. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
2. Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongLong, lParam As LongPtr) As LongPtr
   
3. 
   
4. 
   
5. Const VN_KEYDOWN = &H100 '???U??L?Y??
   
6. Const VN_KEYUP = &H101 '?P?}??L?Y??
   
7. Sub test()
   
8.     Dim hWnd As LongPtr
   
9.     Dim lParan As Long
   
10.     Dim TitleName As String
    
11.     Dim j&
    
12.     Dim Brr() As Byte
    
13.    
    
14.     TitleName = "C:\Windows\SYSTEM32\CMD.EXE"
    
15.    
    
16. line1:
    
17.     hWnd = FindWindow("ConsoleWindowClass", TitleName)
    
18.     If hWnd <> 0 Then
    
19.         AppActivate TitleName
    
20.         Brr = StrConv("cd C:\Users\G4987120\AppData\Local\Programs\WinSCP", vbFromUnicode)
    
21.         For j = LBound(Brr) To UBound(Brr)
    
22.             Debug.Print "&H" & Format(Hex(Brr(j)), "00")
    
23.             PostMessage hWnd, VN_KEYDOWN, "&H" & Hex(Brr(j)), ByVal 0&      '?o?e??
    
24.         Next j
    
25.         PostMessage hWnd, VN_KEYUP, &HD, ByVal 0& '?o?e???^????
    
26.         Application.Wait (Now + TimeValue("0:00:02"))
    
27.     Else
    
28.        Debug.Print "??????CMD???f."
    
29.         shell "CMD.EXE", 1
    
30.        Application.Wait (Now + TimeValue("00:00:02"))
    
31.        GoTo line1
    
32.     End If
    
33. End Sub
    

复制代码

tspliu

伶俐的毛豆 发表于 2024-7-23 18:33
tspliu 发表于 2024-7-23 17:18
拆字符串转键码这算基础知识了应该，一个foreach循环就解决了的事。
读回 ...

我复制过来试了试没有问题，只是有一点，你得百度一个虚拟键码表做成字典，自己对应一下——100在键盘上对应的并不是字母，键盘上的字母大小写是同一个键
另外当参数使用时不需要十进制转十六进制

伶俐的毛豆

如何把中文字符，数学符号发送到dos窗口呢，还是不成功