想做一个vbs脚本工具，但不报错也不执行，双击后没有反应

wangnangj

dim wsh
set wsh=createobject("wscript.shell")
wsh.sendKeys "(^{esc}%g)"


主要是调用win10系统的xbox game bar 的录屏功能。麻烦大神们帮忙指导一下~~谢谢

wangnangj

主要是想用脚本实现win+alt+r的快捷键

逍遥爱迪生

也许要先置前台程序？

perfect131

wangnangj 发表于 2024-7-1 12:00
主要是想用脚本实现win+alt+r的快捷键

sendkeys 没有 win键

如果电脑有vba  可以vbs 来模拟按键
https://club.excelhome.net/threa ... tml?_dsign=a15d8c7d

也可以改快捷键 再sendkeys即可

lss001

wangnangj 发表于 2024-7-1 12:00
主要是想用脚本实现win+alt+r的快捷键

https://learn.microsoft.com/zh-cn/windows/win32/inputdev/virtual-key-codes
'虚拟键请参考以上链接

Private Declare Sub keybd_event Lib "user32.dll" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Sub 模拟键盘()
    keybd_event &H5B, 0, 0, 0  ' 按下WIN
        keybd_event &H12, 0, 0, 0 'ALT
            keybd_event &H52, 0, 0, 0 'R
            keybd_event &H52, 0, 2, 0 ' 弹起
        keybd_event &H12, 0, 2, 0
    keybd_event &H5B, 0, 2, 0
End Sub

wangnangj

lss001 发表于 2024-7-2 15:22
https://learn.microsoft.com/zh-cn/windows/win32/inputdev/virtual-key-codes
'虚拟键请参考以上链接
...

您好，这个能用文本文档编辑成vbs吗？

perfect131

wangnangj 发表于 2024-7-2 16:10
您好，这个能用文本文档编辑成vbs吗？

可以 不过vbs需要焦点转换才能录制

lss001

wangnangj 发表于 2024-7-2 16:10
您好，这个能用文本文档编辑成vbs吗？

https://blog.csdn.net/weixin_30889885/article/details/97699269
可参考以上链接
把以下代码复制到记事本，保存为vbs即可

Call RunStr

Sub RunStr()
    Set eApp = CreateObject("excel.application") '创建excel对象
    Set wb = eApp.Workbooks.Add '添加表格
    Set vbaBas = wb.VBProject.VBComponents.Add(1) '添加模块
   'winApi函数
    str1 = "Private Declare Sub keybd_event Lib ""user32.dll"" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)"

    With vbaBas.CodeModule '添加模块代码
        .InsertLines 1, str1 '添加winapi函数
        .InsertLines 3, "Sub myMacro()"
        .InsertLines 4, "    keybd_event &H5B, 0, 0, 0"
        .InsertLines 5, "    keybd_event &H12, 0, 0, 0"
        .InsertLines 6, "    keybd_event &H47, 0, 0, 0"
        .InsertLines 7, "    keybd_event &H47, 0, 2, 0"
        .InsertLines 8, "    keybd_event &H12, 0, 2, 0"
        .InsertLines 9, "    keybd_event &H5B, 0, 2, 0"
        .InsertLines 11, "End Sub"
    End With

    eApp.Run "myMacro" '执行代码
    wb.VBProject.VBComponents.Remove vbaBas '删除模块
    wb.Saved = True '忽略保存提示！
    wb.Close '关闭表格
    eApp.Quit '退出excel
    Set vbaBas = Nothing '释放对象
    Set wb = Nothing
    Set eApp = Nothing
End Sub