[其他] 批处理代码或VBS脚本Ctrl+M 怎样写？快捷键

FU586097

诚请各位老师帮忙写一个 vbs 的    Ctrl+M (键盘上的M键) 组合键  谢谢帮忙

FU586097

回复 27# buyiyang


    谢谢老师  很好

buyiyang

这个问题我又琢磨了一下
ps1

$title = '海王星'
$process = Get-Process | Where-Object {$_.MainWindowTitle -like "*{0}*" -f $title}
if ($process) {
    $handle = $process.MainWindowHandle
    Add-Type @'
    using System;
    using System.Runtime.InteropServices;
    public static class User32 {
        [DllImport("user32.dll")] public static extern bool SetForegroundWindow(IntPtr hWnd);
        [DllImport("user32.dll")] public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);
        [DllImport("user32.dll")] public static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
    }
'@
    [void][User32]::SetForegroundWindow($handle)
    [void][User32]::ShowWindow($handle, 9)
    [User32]::keybd_event(17, 0, 0, 0)
    [User32]::keybd_event(77, 0, 0, 0)
    Start-Sleep -Milliseconds 50
    [User32]::keybd_event(77, 0, 2, 0)
    [User32]::keybd_event(17, 0, 2, 0)
} else {
    Write-Host 没有找到有关 $title 的窗口
    Start-Sleep 2
}
复制代码

vbs

Set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate("海王星")
WScript.Sleep(500)
WshShell.SendKeys("^m")
复制代码

FU586097

回复 25# buyiyang

老师  弄好了  谢谢您

buyiyang

回复 24# FU586097


    看窗口title，看不到或者不会看，就到autohotkey安装文件夹里找到WindowSpy，用它看，勾选follow mouse，第一个方框第一个就是

FU586097

回复 23# buyiyang


    老师  这个是  海王星的快捷键名称---海王星金融终端v3.0-中国银河证券  试了也不行  能否写一个批处理  谢谢

   老师 非常感谢你耐心的指教 弄好了  保存为ANSI 格式就行   谢谢你了

buyiyang

回复 22# FU586097


    只要有可区分的关键词就行

FU586097

回复 21# buyiyang


    老师 谢谢  这个吗  海王星金融终端v3.0-中国银河证券

buyiyang

回复 20# FU586097


    ahk

SetTitleMatchMode, 2
WinTitle = 海王星 ; 前面设置窗口标题
WinActivate, %WinTitle%
WinWaitActive, %WinTitle%
Send, ^m
ExitApp
复制代码

FU586097

回复 19# buyiyang

老师  谢谢  改了 还是不行

buyiyang

回复 16# FU586097


    代码中的M改成小写m

FU586097

回复 2# buyiyang

老师  你好 能重新写一吗  这个不能用  谢谢

FU586097

回复 2# buyiyang


    老师  你好 还是没有弄好  快捷键是  Ctrl+键盘上的M键   你能查一下吗  谢谢

buyiyang

回复 14# FU586097


    你百度一下就知道鼠标宏是什么了

FU586097

回复 13# buyiyang


    谢谢老师 请问怎样设置 请指教