Set objShell = CreateObject("Wscript.Shell") do WScript.Sleep 1000 objShell.SendKeys "1" loop ----------------------------------------VBS @echo on taskkill /im wscript.exe /f pause ---------------------------------------bat -施放 急救 -stopcasting -run for i=1,GetNumTradeSkills()do a,_,b=GetTradeSkillInfo(i)if (a:find("魔纹绷带"))and b>0 then DoTradeSkill(i,1) break end end