Batcher

回复 5# wyhs4000


SendKeys.ps1

param([byte]$Key,[byte]$Shift)
Add-Type @"
using System;
using System.Runtime.InteropServices;
public class Keyboard {
    [DllImport("user32.dll")]
    private static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
    Keyboard(){}
    public static void Sendkeys(byte key, byte shift = 0){
        if(shift == 0){
            keybd_event(key, 0, 0, 0);
            keybd_event(key, 0, 2, 0);
        }else{
            keybd_event(shift, 0, 0, 0);
            keybd_event(key, 0, 0, 0);
            keybd_event(key, 0, 2, 0);
            keybd_event(shift, 0, 2, 0);
        }
    }
}
"@;
[Keyboard]::Sendkeys($Key,$Shift) # Ctrl=17;97=Num1
复制代码

Run.vbs

function KeyBoard(byval vkey,byval shift)
set ws=createobject("Wscript.Shell")
ws.run "powershell -noprofile -executionpolicy bypass -file "&chr(34)& "SendKeys.ps1"&chr(34)&chr(32)&vKey&chr(32)&Shift,0
end function
'使用方法<键值,组合键值>
KeyBoard 101,0
复制代码

Batcher

回复 11# wyhs4000


你不需要懂PowerShell也不需要懂VBS，只需要知道怎么执行它们就行了。试试这样：
9楼第1段代码保存为 C:\SendKeys.ps1
9楼第2段代码保存为 C:\Run.vbs
双击文件 C:\Windows\System32\cmd.exe
在打开的CMD窗口中输入命令：
cd /d "C:\"
回车
输入命令：
cscript //nologo Run.vbs
回车
观察CMD窗口里面是否自动出现了数字5

如果有报错，或者不是你希望的效果。请给几个截图说明一下你的具体需求。
如果需要上传文件，可以用阿里云盘或百度网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html