vbs如何模拟键盘按下 右边数字键盘的5 求大神指导

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

buyiyang

回复 10# buyiyang


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

1. Option Explicit
   
2. Dim WshShell
   
3. Dim oExcel, oBook, oModule
   
4. Dim strRegKey, strCode, x, y
   
5. Set oExcel = CreateObject("Excel.Application")
   
6. set WshShell = CreateObject("wscript.Shell")
   
7. strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM"
   
8. strRegKey = Replace(strRegKey, "$", oExcel.Version)
   
9. WshShell.RegWrite strRegKey, 1, "REG_DWORD"
   
10. Set oBook = oExcel.Workbooks.Add
    
11. Set oModule = obook.VBProject.VBComponents.Add(1)
    
12. strCode = _
    
13. "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 & _
    
14. "Private Sub KeyClick()" & vbCrLf & _
    
15. "keybd_event &H65, 0, 0, 0" & vbCrLf & _
    
16. "keybd_event &H65, 0, 2, 0" & vbCrLf & _
    
17. "keybd_event 1, &H45, &H65, 0" & vbCrLf & _
    
18. "keybd_event 1, &H45, 2, 0" & vbCrLf & _
    
19. "End Sub"
    
20. oModule.CodeModule.AddFromString strCode
    
21. oExcel.Run "KeyClick"
    
22. oExcel.DisplayAlerts = False
    
23. oBook.Close
    
24. oExcel.Quit

复制代码

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