[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 2# buyiyang


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

TOP

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

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

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

回复 2# buyiyang

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

TOP

回复 16# FU586097


    代码中的M改成小写m

TOP

回复 19# buyiyang

老师  谢谢  改了 还是不行

TOP

本帖最后由 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
复制代码

TOP

回复 21# buyiyang


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

TOP

回复 22# FU586097


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

评分人数

TOP

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

回复 23# buyiyang


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

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

TOP

回复 24# FU586097


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

TOP

回复 25# buyiyang

老师  弄好了  谢谢您

TOP

本帖最后由 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")
复制代码

TOP

回复 27# buyiyang


    谢谢老师  很好

TOP

返回列表