批处理之家 - Powered by Discuz! Board

标题: [其他] 批处理代码或VBS脚本Ctrl+M 怎样写？快捷键 [打印本页]

作者: FU586097 时间: 2023-3-16 14:03 标题: 帮忙写一个批处理代码 Ctrl+M 怎样写？

各位师傅帮忙写一个批处理代码 Ctrl+M 怎样写或者 ahk代码也行谢谢

作者: buyiyang 时间: 2023-3-16 14:47

bat

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

ahk

Send,^M
ExitApp
复制代码

你确定是大写的M？

作者: Batcher 时间: 2023-3-16 14:47

回复 1# FU586097

请说一下完整需求，在啥地方按Ctrl+M呢？

作者: FU586097 时间: 2023-3-16 16:07

回复 3# Batcher

师傅原来的海王星多股同列快捷键

作者: FU586097 时间: 2023-3-16 16:55

回复 2# buyiyang

师傅你好二个都没有效

作者: FU586097 时间: 2023-3-16 16:55

回复 3# Batcher

师傅能写一下吗谢谢

作者: FU586097 时间: 2023-3-16 17:34

回复 2# buyiyang

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

作者: FU586097 时间: 2023-3-16 18:31

回复 3# Batcher

老师你好能做到吗快捷键CTRL+M是打开海王星多股同列的谢谢

作者: buyiyang 时间: 2023-3-16 20:09

回复 7# FU586097

你想要怎么触发？

作者: FU586097 时间: 2023-3-16 22:44

本帖最后由 FU586097 于 2023-3-16 22:48 编辑

回复 9# buyiyang

谢谢老师 ahk在桌面上触发

作者: buyiyang 时间: 2023-3-16 23:32

回复 10# FU586097

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

作者: FU586097 时间: 2023-3-17 08:26

回复 11# buyiyang

谢谢老师把AHK放在桌面上鼠标点击触发

作者: buyiyang 时间: 2023-3-17 10:17

本帖最后由 buyiyang 于 2023-3-17 10:18 编辑

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

建议使用鼠标宏

作者: FU586097 时间: 2023-3-17 10:29

回复 13# buyiyang

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

作者: buyiyang 时间: 2023-3-17 10:37

回复 14# FU586097

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

作者: FU586097 时间: 2023-3-20 12:10

回复 2# buyiyang

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

作者: FU586097 时间: 2023-3-20 12:17 标题: 批处理代码或VBS脚本Ctrl+M 怎样写？快捷键

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

作者: FU586097 时间: 2023-3-20 12:46

本帖最后由 FU586097 于 2023-3-20 13:27 编辑

回复 2# buyiyang

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

作者: buyiyang 时间: 2023-3-20 14:03

回复 16# FU586097

代码中的M改成小写m

作者: FU586097 时间: 2023-3-20 14:27

回复 19# buyiyang

老师谢谢改了还是不行

作者: buyiyang 时间: 2023-3-20 14:47

本帖最后由 buyiyang 于 2023-3-23 18:41 编辑

回复 20# FU586097

ahk

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

作者: FU586097 时间: 2023-3-20 14:56

回复 21# buyiyang

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

作者: buyiyang 时间: 2023-3-20 14:57

回复 22# FU586097

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

作者: FU586097 时间: 2023-3-20 15:00

本帖最后由 FU586097 于 2023-3-20 15:08 编辑

回复 23# buyiyang

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

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

作者: buyiyang 时间: 2023-3-20 15:08

回复 24# FU586097

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

作者: FU586097 时间: 2023-3-20 15:12

回复 25# buyiyang

老师弄好了谢谢您

作者: buyiyang 时间: 2023-3-21 16:12

本帖最后由 buyiyang 于 2023-3-21 16:30 编辑

这个问题我又琢磨了一下
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 时间: 2023-3-22 10:30

回复 27# buyiyang

谢谢老师很好

欢迎光临批处理之家 (http://www.bathome.net/)