本人大学主修编程 无聊之余喜欢写点诛仙的辅助软件
今天本人 教大家写最简单的软件 自动点牌子
思路很简单 就是 每隔多少s 自动 按1
然后每隔多少秒 自动按2 如此 按3 按4 按5
这样可以实现自动点牌子 也可以把师徒技能 家族技能放进去 每隔时间自动点
软件我是写好了 但不知道斑竹相信我不? 所以我先发软件图.如有必要我可以提供源代码
并一步一步教你们 甚至你们以后可以自己增加功能 比如全自动刷榜文 比如 被杀死自动关机 等等
图片上有 3个 30 表示 30s 我默认是30s 分别对应 按键2 按键3 按键4 按键1是一直按的
完全是模拟鼠标操作 不属于外挂 相信mt 也不希望大家的身体因为天天晚上起来点牌子 而变差吧
当然我更希望完美能把此功能加进去
我说明下 外挂的定义 真正的外挂是直接修改或调用游戏的函数 并远程注入 比如 dll注入 这种是绝对犯法
另外一种是不修改游戏任何东西 只是模拟人 按1 按2 类似按键精灵 这种软件本身是合法 本身受国家版权保护
所以完美也没资格说他是外挂 因为只是模拟人 按键盘 动鼠标而已
我发源代码吧 大家可以去下vb 自己把我源代码复制进去 然后编译 就可以用了(窗体界面操作我发的图来建立,名称用默认的 不要用控件数组)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo 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 Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal y As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub Timer1_Timer()
keybd_event 49, 0, 0, 0 '1
keybd_event 49, 0, 2, 0 '1
End Sub
Private Sub Timer2_Timer()
Label1.Caption = CLng(Label1.Caption) + 1
Label2.Caption = CLng(Label2.Caption) + 1
Label3.Caption = CLng(Label3.Caption) + 1
If Label1.Caption >= CLng(Text1.Text) Then
keybd_event 50, 0, 0, 0 '1
keybd_event 50, 0, 2, 0 '1
Label1.Caption = 0
End If
If CLng(Label2.Caption) >= CLng(Text2.Text) Then
keybd_event 51, 0, 0, 0 '1
keybd_event 51, 0, 2, 0 '1
Label2.Caption = 0
End If
If CLng(Label2.Caption) >= CLng(Text3.Text) Then
keybd_event 52, 0, 0, 0 '1
keybd_event 52, 0, 2, 0 '1
Label3.Caption = 0
End If
End Sub
Private Sub Timer3_Timer()
keybd_event 53, 0, 0, 0 '1
keybd_event 53, 0, 2, 0 '1
End Sub
软件下载地址 完全vb的独立exe 非按键的脚本 下载你就知道了 建议下载后去杀毒吧 如果不放心的话
http://au-ip.cn/zddpz.exe
最后附一张程序设计图
[
本帖最后由 kervin1984 于 2009-8-9 21:14 编辑 ]
