vbs按键问题（高分求）

来源：百度知道 编辑：UC知道 时间：2024/09/27 12:14:40
dim a,b,c,d,e,f,g
msgbox("攻击键为a")
b=Inputbox("输入补血的时间","单位/秒")
d=b*1000
c=Inputbox("输入补血键")
e=Inputbox("输入补体时间","单位/秒")
f=inputbox("输入补体键")
g=e*1000
set wshshell=createobject("wscript.shell")
do
do
wshshell.sendkeys(a)
loop
sleep(b)
wshshlee.sendkeys(c)
sleep(e)
wshshlee.sendkeys(g)
loop

有什么问题，该怎么改。
好像还运行不了

'是这样吗？
dim a,b,c,d,e,f,g
a='a'
msgbox("攻击键为a")
b=Inputbox("输入补血的时间","单位/秒")
d=b*1000
c=Inputbox("输入补血键")
e=Inputbox("输入补体时间","单位/秒")
f=inputbox("输入补体键")
g=e*1000
set wshshell=createobject("wscript.shell")
do
wshshell.sendkeys(a)
wshshlee.sendkeys(c)
wscript.sleep d
wshshlee.sendkeys(f)
wscript.sleep g
loop

g=e*1000
应改为e=e*1000
d=b*1000
应改为b=b*1000