Board logo

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

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

各位师傅  帮忙写一个批处理代码   Ctrl+M  怎样写  或者  ahk代码也行   谢谢
作者: buyiyang    时间: 2023-3-16 14:47

bat
  1. mshta vbscript:Execute("CreateObject(""WScript.Shell"").SendKeys ""^M"" : window.close")
复制代码
ahk
  1. Send,^M
  2. 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
  1. SetTitleMatchMode, 2
  2. WinTitle = 海王星 ; 前面设置窗口标题
  3. WinActivate, %WinTitle%
  4. WinWaitActive, %WinTitle%
  5. Send, ^m
  6. 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
  1. $title = '海王星'
  2. $process = Get-Process | Where-Object {$_.MainWindowTitle -like "*{0}*" -f $title}
  3. if ($process) {
  4.     $handle = $process.MainWindowHandle
  5.     Add-Type @'
  6.     using System;
  7.     using System.Runtime.InteropServices;
  8.     public static class User32 {
  9.         [DllImport("user32.dll")] public static extern bool SetForegroundWindow(IntPtr hWnd);
  10.         [DllImport("user32.dll")] public static extern bool ShowWindow(IntPtr hWnd, int nCmdShow);
  11.         [DllImport("user32.dll")] public static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
  12.     }
  13. '@
  14.     [void][User32]::SetForegroundWindow($handle)
  15.     [void][User32]::ShowWindow($handle, 9)
  16.     [User32]::keybd_event(17, 0, 0, 0)
  17.     [User32]::keybd_event(77, 0, 0, 0)
  18.     Start-Sleep -Milliseconds 50
  19.     [User32]::keybd_event(77, 0, 2, 0)
  20.     [User32]::keybd_event(17, 0, 2, 0)
  21. } else {
  22.     Write-Host 没有找到有关 $title 的窗口
  23.     Start-Sleep 2
  24. }
复制代码
vbs
  1. Set WshShell = CreateObject("WScript.Shell")
  2. WshShell.AppActivate("海王星")
  3. WScript.Sleep(500)
  4. WshShell.SendKeys("^m")
复制代码

作者: FU586097    时间: 2023-3-22 10:30

回复 27# buyiyang


    谢谢老师  很好




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2