分享下我的荆棘火炮豆角军vbs代码

英雄本色

郁闷，我的是WIN7 64位系统，运行第一还是第二个都出这个错误，电子表格的宏安全设置我已经设置好了，是2010版本的。求解决

house0826

英雄本色 发表于 2016-5-22 10:58
郁闷，我的是WIN7 64位系统，运行第一还是第二个都出这个错误，电子表格的宏安全设置我已经设置好了，是201 ...

我也是这样-_-||

aaarice@163.com

lalz 发表于 2016-5-13 16:21
谢谢支持，需要别的功能可以告诉我，我来改

请问就是说天谴 和盾闪 都是手动？？

如果要加个盾闪进去是 自己复制多一组1按键进去， 要不和后面的重叠，时间应该设置在多少左右合适？

lalz

aaarice@163.com 发表于 2016-5-23 01:43
请问就是说天谴 和盾闪 都是手动？？

如果要加个盾闪进去是 自己复制多一组1按键进去， 要不和后面的 ...

不建议设置盾闪 因为 盾闪这个技能有问题 不能空放，必须鼠标下有怪才能放出来，不如把盾闪放在左键上。
天谴是可以放进去的， 不过呢天谴的cd比较短，像跑马一样，需要不停地放，实际上，在元素戒指物理前， 可以放两次天谴用来聚怪，所以也不建议加进循环。

如果要把天谴加入循环建议直接在加在火炮那行里面。也就是最后几行改为 注意1技能是天谴
if t>3000 and t<3200 then      
objShell.SendKeys "{3}"
objShell.SendKeys "{1}"
WScript.Sleep 100
objShell.SendKeys "{3}"
objShell.SendKeys "{1}"
WScript.Sleep 100
objShell.SendKeys "{3}"
objShell.SendKeys "{1}"
end if
if t>3900 and t<4100 then      
objShell.SendKeys "{4}"
WScript.Sleep 100
objShell.SendKeys "{4}"
WScript.Sleep 100
objShell.SendKeys "{4}"
end if
WScript.Sleep 30
Loop
oBook.Close
oExcel.Quit
msgbox "程序已结束"

aaarice@163.com

lalz 发表于 2016-5-23 08:32
不建议设置盾闪 因为 盾闪这个技能有问题 不能空放，必须鼠标下有怪才能放出来，不如把盾闪放在左键上。
...

谢谢，

另外我刚试了下，貌似盾闪可以设在一空放啊？？  找有怪的地方 ，鼠标下没怪， 按1 后范围内的怪也是会目盲啊貌似？

aaarice@163.com

lalz 发表于 2016-5-23 08:32
不建议设置盾闪 因为 盾闪这个技能有问题 不能空放，必须鼠标下有怪才能放出来，不如把盾闪放在左键上。
...

请问这个是什么原因，已经按设置了啊？？win10 64位， 已经改了Private Declare Function 了啊

magicchou

大神  问个很傻的问题。。。  用WPS的excel可以嘛？？？还是一定得用OFFICE呢

讯哥儿

虽然你们的代码我一行都看不懂，非常之高端，但是我还是要说一句，你们这是瞎**玩啊

SamSir-

卧槽！懵了 新手 能讲下t具体的嘛

snakegb

好东西  紫薯补丁

magicchou

帮忙看看这是什么情况  运行不了。。。  我是WIN7 64位，office 2007
会不会是OFFICE版本太低了呢？？？

SamSir-

lalz 发表于 2016-5-13 16:29
原理有点专业：
是这样的之前高玩的代码中只是双击打开就能使用，我要加入新的功能：按a重新匹配时间， ...

佩服，膜拜大神

magicchou

aaarice@163.com 发表于 2016-5-23 18:31
请问这个是什么原因，已经按设置了啊？？win10 64位， 已经改了Private Declare Function 了啊

我也遇到同样的问题   也是这样的提示  但我是WIN7 64位的。。。  也不知道咋回事啊

Babyblade

在哪里勾选信任宏我都找不到，怎么办！