能不能用批处理或者VBS写这样一个程序: 20
打开这个批处理或者VBS后,在任意一个文本中单击一下,再按下F10,就会自动不停的输入数字“1”(每输入一个“1”后自动回车换行),按下F12结束输入。...
打开这个批处理或者VBS后,在任意一个文本中单击一下,再按下F10,就会自动不停的输入数字“1”(每输入一个“1”后自动回车换行),按下F12结束输入。
展开
5个回答
展开全部
要使用两个vbs文件
第一个:
~~~~~~~~~~~~~~~~~~~~~~~~~~
do
createobject("wscript.shell").sendkeys "1"
createobject("wscript.shell").sendkeys "~"
loop
~~~~~~~~~~~~~~~~~~~~~·~~~~~
第二个:
~~~~~~~~~~~~~~~~~~~~~~~~~~~
createobject("wscript.shell").run "cmd /c taskkill/im wscript.exe -f",0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
上面两段代码分别保存为1.vbs 、2.vbs 。然后分别创建桌面快捷方式,然后右键》属性 快捷键。。。。。。。。。。。。。。。。。。。
第一个:
~~~~~~~~~~~~~~~~~~~~~~~~~~
do
createobject("wscript.shell").sendkeys "1"
createobject("wscript.shell").sendkeys "~"
loop
~~~~~~~~~~~~~~~~~~~~~·~~~~~
第二个:
~~~~~~~~~~~~~~~~~~~~~~~~~~~
createobject("wscript.shell").run "cmd /c taskkill/im wscript.exe -f",0
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
上面两段代码分别保存为1.vbs 、2.vbs 。然后分别创建桌面快捷方式,然后右键》属性 快捷键。。。。。。。。。。。。。。。。。。。
追问
老大。。。。。说完整些呀。。。。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不可能,vbs不支持热键
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
F10应该可以用
F12肯定不行 是系统保留的 用不了
建议写AutoIt脚本..........
写个范例 ....
HotKeySet("^1", "Quit");;; ctrl + 1 退出程序
HotKeySet("^2", "Stop");; ctrl + 2 停止自动输入
HotKeySet("{F10}", "SendKey");;; F10 启动自动输入
Global $flag = False
While True
Sleep(100)
While $flag
Sleep(100)
Send("1")
Send("{Enter}")
WEnd
WEnd
Func Quit()
Exit
EndFunc
Func Stop()
$flag = False
EndFunc
Func SendKey()
$flag = True
EndFunc
F12肯定不行 是系统保留的 用不了
建议写AutoIt脚本..........
写个范例 ....
HotKeySet("^1", "Quit");;; ctrl + 1 退出程序
HotKeySet("^2", "Stop");; ctrl + 2 停止自动输入
HotKeySet("{F10}", "SendKey");;; F10 启动自动输入
Global $flag = False
While True
Sleep(100)
While $flag
Sleep(100)
Send("1")
Send("{Enter}")
WEnd
WEnd
Func Quit()
Exit
EndFunc
Func Stop()
$flag = False
EndFunc
Func SendKey()
$flag = True
EndFunc
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
bat不行,vbs可以,具体的可以到批处理之家去看看相关的帖子,VBS版块,搜“按键”
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
it is not gonna happen
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询