天龙八部辅助打怪工具（VB模拟按键）

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



Const GameTitle As String = "天龙八部 1.10.0600 (南部电信二区:烟雨轩)" '这里修改成自己所在的区服

Dim Status As Boolean ' 挂机状态

Const WM_KEYDOWN = &H100

Const WM_KEYUP = &H101

Const VK_F1 = &H70

Const VK_F2 = &H71



Sub SendKey(KStr As String)

DoEvents

Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄

hwnd = FindWindow(vbNullString, GameTitle)

Select Case KStr

Case "F1" '游戏中设置为F1为打怪快捷键

PostMessage hwnd, WM_KEYDOWN, VK_F1, 0&

PostMessage hwnd, WM_KEYUP, VK_F1, 0&

Case "F2" '游戏中设置为F2为选怪快捷键

PostMessage hwnd, WM_KEYDOWN, VK_F2, 0&

PostMessage hwnd, WM_KEYUP, VK_F2, 0&

End Select

End Sub



Sub Delay(Tnum As Long)

Sleep Tnum

End Sub



'判断游戏是否正在运行

Function IsRun() As Boolean

IsRun = False

Dim hwnd As Long '储存 FindWindow 函数返回的句柄

hwnd = FindWindow(vbNullString, GameTitle)

If hwnd = 0 Then

IsRun = False

Else

IsRun = True

End If

End Function



'开始按钮

Private Sub Command1_Click()

If IsRun = False Then

MsgBox "游戏没有运行，让我怎么挂？", 16

Exit Sub

Else

MsgBox "开始挂机，设置打怪时间为" & Text1.Text & "秒！"

End If

Status = True

GuaJiStatus.Caption = "挂机中"

End Sub



'停止按钮

Private Sub Command2_Click()

Status = False

GuaJiStatus.Caption = "休息中"

End Sub



Private Sub Form_Load()

Status = False

End Sub



Private Sub Form_Unload(Cancel As Integer)

End

End Sub



'Timer控件

Private Sub TimerGuaJi_Timer()

DoEvents

If Status = False Then Exit Sub

SendKey ("F2")

Delay 100

SendKey ("F1")

Delay Text1.Text * 1000 'Text1.Text为设置的打怪间隔

End Sub