buyiyang

回复 7# wyhs4000
保存为bat脚本

#@&cls&powershell "type '%~f0'|out-string|iex"&exit
Add-Type @"
using System;
using System.Runtime.InteropServices;
public class ClickKey
{
    [DllImport("user32.dll")]
    private static extern void keybd_event(byte bVk, byte bScan, uint dwFlags, int dwExtraInfo);
    public static void Click(){keybd_event(0x01, 0x45, 0x65, 0);}
    public static void KeyPress(byte key){keybd_event(key, 0x45, 0x65, 0);}
    public static void KeyUp(byte key){keybd_event(key, 0x45, 0x02, 0);}
    public static void MouseUp(){keybd_event(0x01, 0x45, 0x02, 0);}
}
"@

#以下按照需要调整顺序或删除

# 按下左键
[ClickKey]::Click()

# 按下数字键盘的5键
$key = 0x65
[ClickKey]::KeyPress($key)

# 释放左键
[ClickKey]::MouseUp()

# 释放数字键盘的5键
[ClickKey]::KeyUp($key)
复制代码

buyiyang

回复 10# buyiyang


    这也不算是bat，都用的是powershell(C#)，不明白为什么一定要vbs，我参考http://demon.tw/programming/vbs-control-mouse.html写了一个vbs(vba)

Option Explicit 
Dim WshShell 
Dim oExcel, oBook, oModule 
Dim strRegKey, strCode, x, y 
Set oExcel = CreateObject("Excel.Application")
set WshShell = CreateObject("wscript.Shell") 
strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" 
strRegKey = Replace(strRegKey, "$", oExcel.Version) 
WshShell.RegWrite strRegKey, 1, "REG_DWORD" 
Set oBook = oExcel.Workbooks.Add
Set oModule = obook.VBProject.VBComponents.Add(1)
strCode = _ 
"Private Declare PtrSafe Sub keybd_event Lib ""user32"" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)" & vbCrLf & _ 
"Private Sub KeyClick()" & vbCrLf & _ 
"keybd_event &H65, 0, 0, 0" & vbCrLf & _ 
"keybd_event &H65, 0, 2, 0" & vbCrLf & _ 
"keybd_event 1, &H45, &H65, 0" & vbCrLf & _ 
"keybd_event 1, &H45, 2, 0" & vbCrLf & _ 
"End Sub"
oModule.CodeModule.AddFromString strCode
oExcel.Run "KeyClick"
oExcel.DisplayAlerts = False 
oBook.Close 
oExcel.Quit 
复制代码

15、16行按下、释放Numpad5键，17、18行按下、释放左键。