API函數postMessage如何將字符串高效率发送到dos窗口

伶俐的毛豆 · 发表于 2024-7-23 18:45

本帖最后由伶俐的毛豆于 2024-7-23 18:53 编辑

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
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
Const VN_KEYDOWN = &H100
Const VN_KEYUP = &H101
Sub test()
Dim hWnd As LongPtr
Dim lParan As Long
Dim TitleName As String
Dim j&
Dim Brr() As Byte
TitleName = "C:\Windows\SYSTEM32\CMD.EXE"
line1:
hWnd = FindWindow("ConsoleWindowClass", TitleName)
If hWnd <> 0 Then
AppActivate TitleName
Brr = StrConv("cd C:\Users\我的文档\AppData\Local\Programs\WinSCP", vbFromUnicode)
For j = LBound(Brr) To UBound(Brr)
PostMessage hWnd, VN_KEYDOWN, "&H" & Hex(Brr(j)), ByVal 0&
Next j
PostMessage hWnd, VN_KEYUP, &HD, ByVal 0&
Application.Wait (Now + TimeValue("0:00:02"))
Else
shell "CMD.EXE", 1
Application.Wait (Now + TimeValue("00:00:02"))
GoTo line1
End If
End Sub

复制代码

我想用postMessage函数将这串dos命令（"cd C:\Users\我的文档\AppData\Local\Programs\WinSCP"）发送到dos窗口，死活没有成功，请大家帮忙看看

tspliu · 发表于 2024-7-24 08:57

如果有中文，你就换个参数VN_KEYDOWN 换成 WM_SETTEXT 具体值百度找，我也记不住

伶俐的毛豆 · 发表于 2024-7-24 12:03

tspliu 发表于 2024-7-24 08:57
如果有中文，你就换个参数VN_KEYDOWN 换成 WM_SETTEXT 具体值百度找，我也记不住

WM_SETTEXT是sendMessage函數裡面的

tspliu · 发表于 2024-7-24 13:46

伶俐的毛豆发表于 2024-7-24 12:03
WM_SETTEXT是sendMessage函數裡面的

那就试试sendmessage,万变不离其宗

伶俐的毛豆 · 发表于 2024-7-25 19:47

有老师帮忙修改一下程序吗

lss001 · 发表于 2024-7-28 23:31

伶俐的毛豆发表于 2024-7-25 19:47
有老师帮忙修改一下程序吗

伶俐的毛豆 · 发表于 2024-7-30 08:24

lss001 发表于 2024-7-28 23:31
https://club.excelhome.net/forum.php?mod=viewthread&tid=1698267&page=1&extra=&_dsign=0fc4b28f

看了老师的专贴，已完美解决，感谢

		自动登录	找回密码
密码			免费注册

[求助] API函數postMessage如何將字符串高效率发送到dos窗口