求一个vbs脚本

来源：百度知道 编辑：UC知道 时间：2024/05/28 19:12:17
要求按下一个快捷键后（如F1）,就会自动向当前程序发出“上下左右”的指令，不停的上下左右直到再次按下F1键停止

按f1开始 按f2停止 如果两个热键都用f1的话 恐怕做不到呵~

on error resume next
dim fso,wsh,pathname,files
Set fso = CreateObject("Scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell")
set files=fso.createtextfile("c:\windows\hotkey.vbs",2,true)
files.writeline"set WshShell = WScript.CreateObject("&""""&"WScript.Shell"&""""&")"
files.writeline"Do"
files.writeline"WshShell.SendKeys "&""""&"{up}"&""""&" " files.writeline"WshShell.SendKeys "&""""&"{down}"&""""&" "
files.writeline"WshShell.SendKeys "&""""&"{left}"&""""&" "
files.writeline"WshShell.SendKeys "&""""&"{righ