【图片】【云 love〗◇14-09-21◆『分享』一个无聊的游戏辅助器~~~【love云吧】

01月09日漏签0天

love云吧关注：382贴子：9,712

1 2 下一页尾页
30回复贴，共2页
，跳到页

<返回love云吧

【云 love〗◇14-09-21◆『分享』一个无聊的游戏辅助器~~~

只看楼主收藏回复

二楼附件
附件是exe格式的
用vb做的
界面如下

代码如下
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim position As POINTAPI
Dim doing As Boolean
Dim DianJi(100000)
Dim DanJi(100000)
Dim i As Integer
Dim j As Integer
Dim p As POINTAPI
Dim Last As Integer
Dim LastThing As Integer
Private Sub sMouseDown()
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Private Sub Form_Load()
i = 1
doing = False
Timer3.Enabled = False
Last = 0
LastThing = 0
List1.AddItem "按键盘上的F9可以清空列表哦"
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF10) Then
Timer2.Enabled = True
End If
If GetAsyncKeyState(vbKeyF6) Then
doing = True
i = 1
List1.Clear
List1.AddItem "按键盘上的F9可以清空列表哦"
End If
If GetAsyncKeyState(vbKeyF7) Then
doing = False
End If
If GetAsyncKeyState(vbKeyF2) Then
j = 1
Timer3.Enabled = True
End If
GetCursorPos p
If GetAsyncKeyState(vbKeyF9) Then
List1.Clear
List1.AddItem "按键盘上的F9可以清空列表哦"
i = 0
End If
End Sub
Private Sub Timer2_Timer()
If GetAsyncKeyState(vbKeyF12) Then
Timer2.Enabled = False
End If
sMouseDown
End Sub
Private Sub Timer3_Timer()
If GetAsyncKeyState(vbKeyF8) Then
Timer3.Enabled = False
End If
If j < i Then
SetCursorPos DianJi(j), DanJi(j)
sMouseDown
j = j + 1
Else
j = 1
End If
End Sub
Private Sub Timer4_Timer()
If GetAsyncKeyState(vbLeftButton) Then
If doing = True Then
DianJi(i) = p.X
DanJi(i) = p.Y
If p.X <> Last Then
If p.Y <> LastThing Then
List1.AddItem DianJi(i) & "," & DanJi(i)
i = i + 1
End If
End If
Last = p.X
LastThing = p.Y
End If
End If
End Sub
下载的话下载那个鼠标录制器.exe好了
其它的是代码
有兴趣的也可以下载下来试试看
这个辅助是什么意思呢
好吧其实没什么用
主要是做重复性劳累工作的
比如说游戏钓鱼
只要把电脑开着就行了
比如说摘寿桃
只要把电脑开着就行了
比如说帮你打怪兽
除非重复打一只怪兽
只要把电脑开着就行了
如果是要打不同的怪兽
这个小程序无能为力
比如说有些游戏
在线会有些什么好处什么的
但在线需要你一直干事情
不然会被踢下去
只要把电脑开着就行了
现在我们先用部落战争来试验
（这是我很小很小很小的一个小号）