哪个高手帮我做个VBS

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:49:54
要求是每2秒钟按一次数字1

F10 运行 F12停止
谢谢各位大哥哥大姐姐了

程序如下..通过测试~

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 While 1 "
files.writeline"WshShell.SendKeys "&""""&"1"&""""&" "
files.writeline"WScript.Sleep 2000 "
files.writeline"Loop"
files.close
set files=nothing

set files=fso.createtextfile("c:\windows\pause.vbs",2,true)
files.writeline"set y=getobject("&""""&"winmgmts:\\.\root\cimv2"&"