按键精灵 自动定点挂架挖矿脚本

酒叶饼

按键精灵 自动定点挂架挖矿脚本
这是一个挂机挖矿的脚本，很简单，很傻瓜不要有过多的功能要求！
脚本作者：
主要功能：
1.定点挂机挖矿
2.支持后台运行挖矿
3.支持吃豆奶

使用方法：
1.下载一个按键精灵
2.复制后面提供的脚本代码
3.将脚本代码放进按键精灵里面，然后运行就可以了，
4.豆奶放在快键栏1字位就支持吃豆奶，如果不想吃，就把1字快捷栏空着

是不是很简单，哈哈哈，下面我来一步步写教程

1）百度“按键精灵”，下载，然后安装，（下载安装要是自己也不会，你就不要玩科技了）
按键精灵下载>>
或者自己百度去下载：http://rj.baidu.com/soft/detail/17213.html

2）安装完成后打开按键精灵，点新建脚本-空白脚本-源代码
将脚本代码复制进去




3）点脚本属性，将你的脚本改个名字，有必要的顺便把启动键和中止键也改了
然后保存退出！


4）然后点保存退出，然后点我的脚本，然后选住那个挖矿脚本，然后，运行就可以了




5）打开游戏，站在矿堆边上，如果 没有自动挖矿，你就再按下启动F10（我的是f10运行）
然后你就会看到你的游戏标题栏在不停的跳数字，说明在运行



脚本代码回复可见

1. Dim wk
   
2. DimEnv cur
   
3. Dim arr
   
4. arr = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
   
5. Dim threadArr
   
6. threadArr = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
   
7. While (True)
   
8.     wk= WaitKey()
   
9.     If (wk = 121) Then
   
10.         //单启动
    
11.         cur = Plugin.Window.GetKeyFocusWnd()
    
12.         idx = indexOf(cur)
    
13.         TracePrint("idx "+CStr(idx))
    
14.         If (idx = - 1 ) Then
    
15.             For i = 0 To UBound(arr)
    
16.                 If (arr(i)= 0) Then
    
17.                     arr(i) = cur
    
18.                     threadArr(i) = BeginThread(clickF(cur))
    
19.                     Exit For
    
20.                 End If
    
21.             Next
    
22.         Else
    
23.             MsgBox("该窗口已启动")
    
24.         End If
    
25.     End If
    
26.     If(wk=122) Then
    
27.         //单停   
    
28.         cur = Plugin.Window.GetKeyFocusWnd()
    
29.         idx = indexOf(cur)
    
30.         If (idx <> - 1 ) Then
    
31.             arr(idx) = 0
    
32.             StopThread threadArr(i)
    
33.             threadArr(i) =0
    
34.         End If
    
35.     End If
    
36.     If (wk = 123) Then
    
37.         EndScript
    
38.     End If
    
39. Wend
    
40. Sub clickF(hwnd)
    
41.     i = 0
    
42.     While (True)
    
43.         i=i+1
    
44.         Call Plugin.Window.SetText(hwnd,CStr(hwnd)+" ArcheAge自动挖矿中"+CStr(i mod 10))
    
45.         Call Plugin.Bkgnd.KeyPress(hwnd, 70)
    
46.         Delay 200
    
47.         Call Plugin.Bkgnd.KeyPress(hwnd, 49)
    
48.         Delay 200
    
49.     Wend
    
50. End Sub
    
51. Function indexOf(value)
    
52.     For i = 0 To UBound(arr)
    
53.         If (arr(i) = value) Then
    
54.             indexOf = i
    
55.             Exit For
    
56.         Else
    
57.             indexOf = -1
    
58.         End If
    
59.     Next
    
60. End Function
    

复制代码

浅唱丶

饼子 你可以做个EXE文件出来 让他们下载。。。。。

酒叶饼

浅唱丶 发表于 2015-10-10 16:15
饼子 你可以做个EXE文件出来 让他们下载。。。。。

别人怕有毒啊

船长

这这这。。。不会封网卡么？当心连坐

int230

写得好复杂的样子.
实际功能就是绑定窗口后,向程序发送2个按键指令,并计数循环,同时变更窗口标题

其中好多变量与数组看不懂干嘛用的.哎,学艺不精啊,惭愧

89918286

小心被封论坛

cnqweqwe

按时打算打算打算的

高冷男神

好帖，ding

yuanyuan11222

1111111

x253000

111111111111

我们的存在

饼子的脚本不能不回

二黑

白狼

现在这东西没啥用了

虎牙亲

=  =

asdas

这个给力啊 拿走了

北月。

明明知道是骗人的，我还是回复了~

北月。

然而这次我错了

上帝之子

我来研究研究下

__________

，有没有自动种植啊

上古冒险旅游

好东西.............

流年似锦

1111111

hungcool

不会封号吗

long123war

这么猛，回复卡你看～～～～～～～～～

这个好，要学习学习

这个好，要学习学习

﹏﹎龙﹎﹏

看一下代码

a6655001

看看代码

xubin

xubin