使用脚本有风险 请自行斟酌是否使用

暗黑3 一键换装脚本 0.5s内完成换装

停止更新及使用, 博主已经放弃D3,故不再更新,如需一键换装功能,请自行搜索多玩暗黑3盒子.

暗黑3 一键换装下载地址: 停止更新及使用

暗黑3 一键换装演示视频: 停止更新及使用

更新v1.01:
换装完成后鼠标恢复到换装前位置


1,设置好你要换几件装备 去掉右戒指 比如我自己要换的MF装备有12件 除了武器其他的都换 那么我就填11 热键不变然后保存设置
2,进入游戏,按F10或者手动点击启动 打开背包 鼠标指向包内第一个要更换的装备 按下F3 会弹出提示已辨识1件 还剩10件 如此重复直到除了右戒指之外的其他11件装备辨识完成
3,鼠标指向右戒指 按下F4辨识 会弹出提示右戒指辨识完成
4,关闭背包 按下F1 会发现可以正常换装了
出现的问题:
只要开启后就不要中止脚本 除非你退出游戏或者不想使用换装功能了
如果按下换装键无反应 那么说明你当前窗口并非游戏窗口或者使用的英文版客户端
如果提示数据未保存 那么说明你并未完全辨认完成 缺少右戒指或者是装备数量填写不正确

源码版:(自己有按键精灵的可以直接粘贴进去 由于上面那个是有GUI界面的 所以我放的源码和上面有些不一样)
这个只有换装功能 不能去辨认装备 装备的坐标值需要自己搞一下
需要自己在按键精灵根目录建一个D3.ini 文件
里面内容如下:
BRx(0)=0 //第一件装备的x坐标
BRy(0)=0 //第二件装备的y坐标 下同 用抓抓自己抓一下就好

[坐标数据]
BRx(0)=0
BRy(0)=0
BRx(1)=0
BRy(1)=0
BRx(2)=0
BRy(2)=0
BRx(3)=0
BRy(3)=0
BRx(4)=0
BRy(4)=0
BRx(5)=0
BRy(5)=0
BRx(6)=0
BRy(6)=0
BRx(7)=0
BRy(7)=0
BRx(8)=0
BRy(8)=0
BRx(9)=0
BRy(9)=0
BRx(10)=0
BRy(10)=0
BRx(11)=0
BRy(11)=0
BRx(12)=0
BRy(12)=0
Dim items
Dim itemkey
items = 12 //这是你要换的装备数量
itemkey = "C" //背包按键
Dim BRx(12)
Dim BRy(12)</code>

<code>Key = WaitKey()
If Key = 112 Then //112是换装快捷键 默认是 F1 键
diablo3 = Lib.API.查找窗口句柄("D3 Main Window Class","暗黑破壞神III")
Hwnd = Plugin.Window.Foreground()
If Hwnd = diablo3 Then //检测D3是否最前
GetCursorPos tx, ty //取得换装前鼠标坐标
KeyPress itemkey, 1
Dim cont1
cont1 = 0
Rem 换装
If cont1 &lt; items Then
BRx(cont1) = Plugin.File.ReadINI("坐标数据", "BRx(" &amp; (cont1) &amp; ")", ".\D3.ini")
BRy(cont1) = Plugin.File.ReadINI("坐标数据", "BRy(" &amp; (cont1) &amp; ")", ".\D3.ini")
MoveTo BRx(cont1), BRy(cont1)
RightClick 1
cont1=cont1+1
Goto 换装
Else
BRx(items) = Plugin.File.ReadINI("坐标数据", "BRx("&amp;items&amp;")", ".\D3.ini")
BRy(items) = Plugin.File.ReadINI("坐标数据", "BRy("&amp;items&amp;")", ".\D3.ini")
MoveTo BRx(items), BRy(items)
KeyDown "Alt", 1
RightClick 1
KeyUp "Alt", 1
KeyPress itemkey, 1
MoveTo tx, ty //移动到换装前鼠标位置
End If
End If
End If

27条评论

  1. 按了f3沒彈視窗出來 我的遊戲畫面已設定為最大+視窗了 我xp的 window7的朋友都可以 是這個問題嗎?

  2. 今天自己删除了 在下载也不能用 怎么回事啊

  3. nga观光 At 2012-06-20 17:42 Said:

    [eek] 为啥下下来金山毒霸报毒了?说是有木马

  4. 不错不错 很有效率 我XP的用的没问题

  5. allenlpx At 2012-06-25 09:42 Said:

    请问清空数据选项点下去没反映是什么情况 XP系统

  6. 1、可以在一键换装前默认按一次空格
    2、可以设置下鼠标右击间隔时间,太快了容易被BLZ发现吧
    3、能不能把辨识部分的源代码发我一份学习下谢谢了。
    4、不知道暗黑会不会侦测第三方软件的进程呢,深表担心啊

  7. 支持你,博主!

  8. 支持你,博主.我想请问要双持单武器。怎么让他换右手武器?他会连续换2次左手武器·

  9. 很好的软件,能把鼠标中键设成换装键吗

  10. 请问如何更改句柄让英文客户端试用

  11. 哥们,我用的是WIN7,美服但是繁文版,启动了,进游戏按F10和F3都没有反应啊

  12. 好久没动静了 怎么换主副手武器啊?

  13. 红酒木瓜 At 2012-08-02 15:42 Said:

    看不懂啊还是。。

  14. 请求博主可以把这个主题给我。

  15. [han] 请求博主可以把这个主题共享给我。谢谢,送上我的菊花。❀

  16. 有那么多的内容可以一直原创下去真的挺不容易的

  17. 强大的脚本~

    [smile]