buyiyang

bat

mshta vbscript:Execute("CreateObject(""WScript.Shell"").SendKeys ""^M"" : window.close")
复制代码

ahk

Send,^M
ExitApp
复制代码

你确定是大写的M？

buyiyang

回复 7# FU586097


    你想要怎么触发？

buyiyang

回复 10# FU586097


    我不了解海王星，你说鼠标必须必须在软件上所以点不了脚本运行，我问的是你想要以什么条件运行脚本，其他按键触发、定时触发什么的

buyiyang

师傅 对不起  我是需要打开海王星软件后 用快捷键调出多股同列的 鼠标必须在软件界面上  因此无法用ahk  但是 有其它方法达到吗  谢谢
FU586097 发表于 2023-3-16 17:34

建议使用鼠标宏

buyiyang

回复 14# FU586097


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

buyiyang

回复 16# FU586097


    代码中的M改成小写m

buyiyang

回复 20# FU586097


    ahk

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

buyiyang

回复 22# FU586097


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

buyiyang

回复 24# FU586097


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

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")
复制代码