frmmain.frm

VB使用的CALL 非常好用

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "VB的CAll"
   ClientHeight    =   570
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   2580
   LinkTopic       =   "Form1"
   ScaleHeight     =   570
   ScaleWidth      =   2580
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer THook 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   45
      Top             =   1080
   End
   Begin VB.Label Label1 
      Caption         =   "用于测试VB全Call的程序"
      Height          =   420
      Left            =   45
      TabIndex        =   0
      Top             =   90
      Width           =   2490
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'Win32 API 基本定义
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

'游戏CALL函数定义  特别需要注意，Function 过程名称中的大小写必须与现在的一致，否则将无法找到函数入口而提示错误

'CheckIn 用于检查游戏是否运行和初始化设置的函数，其中包括申请内存区域等操作
Private Declare Function CheckIn Lib "VbCall.Dll" (ByVal hWnd As Long) As Long

'简单的CALL，其中包含了4个基本的call，1 是运气打坐，2 是取消运气打坐，3 是普通攻击，4 是发送TabCall找怪
Private Declare Function CallSingle Lib "VbCall.Dll" (ByVal lpSinglecall As Integer) As Long

'使用技能的Call，其参数为技能的ID，例如清风破ID为2
Private Declare Function UseSkills Lib "VbCall.Dll" (ByVal sKillsID As Long) As Long

'这个发包选怪的Call，其参数目前只做了一个，就是带参数1，表示遍历身边怪所有怪选择距离自己10以内的一个，后面还将增加比如批量拖怪啊等等参数
Private Declare Function SelectM Lib "VbCall.Dll" (ByVal sType As Long) As Long

'退出的函数，主要用于清理退出后内存中的垃圾啊这些东西的
Private Declare Function EndQuit Lib "VbCall.Dll" (ByVal EndType As Long) As Long

Private Sub Form_Load()
    Dim gHwnd As Long, gStart As Long, gCall As Long
  
    gHwnd = FindWindow("QElementClient Window", "Element Client")
    gStart = CheckIn(gHwnd)
    If gStart = 0 Then
        MsgBox "游戏未启动！"
        End
    End If
    THook.Enabled = True
End Sub

Private Function MyHotKey(vKeyCode) As Boolean
    MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Call EndQuit(1)
End Sub

'************************热健定义*************************************
Private Sub Thook_Timer()
    If MyHotKey(33) Then 'PageUP
        Call SelectM(1) '发包选怪
        'Call CallSingle(4) '发TabCall选怪
        'Call CallSingle(1) '打坐运气
        'Call CallSingle(2) '取消打坐状态
    ElseIf MyHotKey(34) Then 'PageDown
        Call UseSkills(2) '使用技能 参数2表示清风破的ID
        'Call CallSingle(3) '普通攻击
    End If
End Sub