- 积分
- 12858
饼子
- 推荐
- 710
- 金钱
- 956731
- 好人卡
- 3
- 香意
- 0
- 最后登录
- 2017-12-11
- 服务器
- 体验服
- 游戏名字
- 雾林吃饭团饼子
- 在线时间
- 1137 小时
超级版主
饼子
- 游戏名字
- 雾林吃饭团饼子
- 金钱
- 956731
- 雾林币
- 6251
- 香意
- 0
|
赶紧注册登录呢
您需要 登录 才可以下载或查看,没有账号?注册
×
本帖最后由 酒叶饼 于 2015-10-10 17:14 编辑
按键精灵 自动定点挂架挖矿脚本
这是一个挂机挖矿的脚本,很简单,很傻瓜不要有过多的功能要求!
脚本作者:
主要功能:
1.定点挂机挖矿
2.支持后台运行挖矿
3.支持吃豆奶
使用方法:
1.下载一个按键精灵
2.复制后面提供的脚本代码
3.将脚本代码放进按键精灵里面,然后运行就可以了,
4.豆奶放在快键栏1字位就支持吃豆奶,如果不想吃,就把1字快捷栏空着
是不是很简单,哈哈哈,下面我来一步步写教程
1)百度“按键精灵”,下载,然后安装,(下载安装要是自己也不会,你就不要玩科技了)
按键精灵下载>>
或者自己百度去下载:http://rj.baidu.com/soft/detail/17213.html
2)安装完成后打开按键精灵,点新建脚本-空白脚本-源代码
将脚本代码复制进去
3)点脚本属性,将你的脚本改个名字,有必要的顺便把启动键和中止键也改了
然后保存退出!
4)然后点保存退出,然后点我的脚本,然后选住那个挖矿脚本,然后,运行就可以了
5)打开游戏,站在矿堆边上,如果 没有自动挖矿,你就再按下启动F10(我的是f10运行)
然后你就会看到你的游戏标题栏在不停的跳数字,说明在运行
脚本代码回复可见
- Dim wk
- DimEnv cur
- Dim arr
- arr = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
- Dim threadArr
- threadArr = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
- While (True)
- wk= WaitKey()
- If (wk = 121) Then
- //单启动
- cur = Plugin.Window.GetKeyFocusWnd()
- idx = indexOf(cur)
- TracePrint("idx "+CStr(idx))
- If (idx = - 1 ) Then
- For i = 0 To UBound(arr)
- If (arr(i)= 0) Then
- arr(i) = cur
- threadArr(i) = BeginThread(clickF(cur))
- Exit For
- End If
- Next
- Else
- MsgBox("该窗口已启动")
- End If
- End If
- If(wk=122) Then
- //单停
- cur = Plugin.Window.GetKeyFocusWnd()
- idx = indexOf(cur)
- If (idx <> - 1 ) Then
- arr(idx) = 0
- StopThread threadArr(i)
- threadArr(i) =0
- End If
- End If
- If (wk = 123) Then
- EndScript
- End If
- Wend
- Sub clickF(hwnd)
- i = 0
- While (True)
- i=i+1
- Call Plugin.Window.SetText(hwnd,CStr(hwnd)+" ArcheAge自动挖矿中"+CStr(i mod 10))
- Call Plugin.Bkgnd.KeyPress(hwnd, 70)
- Delay 200
- Call Plugin.Bkgnd.KeyPress(hwnd, 49)
- Delay 200
- Wend
- End Sub
- Function indexOf(value)
- For i = 0 To UBound(arr)
- If (arr(i) = value) Then
- indexOf = i
- Exit For
- Else
- indexOf = -1
- End If
- Next
- End Function
复制代码
|
|