|
|
VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "密传英雄测试版"
ClientHeight = 4170
ClientLeft = 7320
ClientTop = 4035
ClientWidth = 6105
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4170
ScaleWidth = 6105
Begin VB.Timer Timer11
Interval = 5000
Left = 4800
Top = 3720
End
Begin VB.Timer Timer10
Interval = 5000
Left = 4320
Top = 3720
End
Begin VB.Timer Timer9
Interval = 5000
Left = 3840
Top = 3720
End
Begin VB.Timer Timer8
Interval = 5000
Left = 3360
Top = 3720
End
Begin VB.Frame Frame5
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "自动喊话"
ForeColor = &H80000008&
Height = 735
Left = 2760
TabIndex = 38
Top = 2400
Width = 3255
Begin VB.CheckBox Check11
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 54
Top = 360
Width = 255
End
Begin VB.TextBox Text18
Appearance = 0 'Flat
Height = 270
Left = 2520
TabIndex = 52
Text = "10"
Top = 360
Width = 255
End
Begin VB.TextBox Text17
Appearance = 0 'Flat
Height = 270
Left = 480
ScrollBars = 1 'Horizontal
TabIndex = 50
Text = "欢迎使用密传英雄！"
Top = 360
Width = 1695
End
Begin VB.Label Label21
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "秒"
ForeColor = &H80000008&
Height = 255
Left = 2880
TabIndex = 53
Top = 360
Width = 255
End
Begin VB.Label Label20
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "每"
ForeColor = &H80000008&
Height = 255
Left = 2280
TabIndex = 51
Top = 360
Width = 195
End
End
Begin VB.Frame Frame4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "辅助魔法"
ForeColor = &H80000008&
Height = 975
Left = 2760
TabIndex = 27
Top = 1320
Width = 3255
Begin VB.TextBox Text16
Appearance = 0 'Flat
Height = 270
Left = 2280
TabIndex = 46
Text = "60"
Top = 600
Width = 375
End
Begin VB.TextBox Text15
Appearance = 0 'Flat
Height = 270
Left = 1080
TabIndex = 45
Top = 600
Width = 255
End
Begin VB.TextBox Text14
Appearance = 0 'Flat
Height = 270
Left = 2280
TabIndex = 44
Text = "60"
Top = 240
Width = 375
End
Begin VB.TextBox Text13
Appearance = 0 'Flat
Height = 270
Left = 1080
TabIndex = 41
Top = 240
Width = 255
End
Begin VB.CheckBox Check10
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "辅助二"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 40
Top = 600
Width = 855
End
Begin VB.CheckBox Check9
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "辅助一"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 39
Top = 240
Width = 855
End
Begin VB.Label Label19
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "秒"
ForeColor = &H80000008&
Height = 255
Left = 2760
TabIndex = 48
Top = 600
Width = 255
End
Begin VB.Label Label18
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "秒"
ForeColor = &H80000008&
Height = 255
Left = 2760
TabIndex = 47
Top = 240
Width = 255
End
Begin VB.Label Label17
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键 延时"
ForeColor = &H80000008&
Height = 255
Left = 1440
TabIndex = 43
Top = 600
Width = 855
End
Begin VB.Label Label16
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键 延时"
ForeColor = &H80000008&
Height = 255
Left = 1440
TabIndex = 42
Top = 240
Width = 855
End
End
Begin VB.Frame Frame3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "魔法攻击"
ForeColor = &H80000008&
Height = 1095
Left = 2760
TabIndex = 26
Top = 120
Width = 3255
Begin VB.TextBox Text12
Appearance = 0 'Flat
Height = 270
Left = 2280
TabIndex = 36
Text = "5000"
Top = 600
Width = 375
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
Height = 270
Left = 1080
TabIndex = 34
Top = 600
Width = 255
End
Begin VB.CheckBox Check8
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "攻击二"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 33
Top = 600
Width = 855
End
Begin VB.TextBox Text10
Appearance = 0 'Flat
Height = 270
Left = 2280
TabIndex = 31
Text = "1000"
Top = 240
Width = 375
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
Height = 270
Left = 1080
TabIndex = 30
Top = 240
Width = 255
End
Begin VB.CheckBox Check7
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "攻击一"
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 28
Top = 240
Width = 855
End
Begin VB.Label Label15
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "毫秒"
ForeColor = &H80000008&
Height = 255
Left = 2760
TabIndex = 37
Top = 600
Width = 375
End
Begin VB.Label Label14
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键 延时"
ForeColor = &H80000008&
Height = 255
Left = 1440
TabIndex = 35
Top = 600
Width = 735
End
Begin VB.Label Label13
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "毫秒"
ForeColor = &H80000008&
Height = 255
Left = 2760
TabIndex = 32
Top = 240
Width = 375
End
Begin VB.Label Label12
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键 延时"
ForeColor = &H80000008&
Height = 225
Left = 1440
TabIndex = 29
Top = 240
Width = 735
End
End
Begin VB.Frame Frame2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "基本状态"
ForeColor = &H80000008&
Height = 975
Left = 120
TabIndex = 20
Top = 2160
Width = 2535
Begin VB.Label Label5
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
Caption = "生命："
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 25
Top = 240
Width = 540
End
Begin VB.Label Label6
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "魔法："
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 24
Top = 480
Width = 540
End
Begin VB.Label Label8
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 180
Left = 720
TabIndex = 23
Top = 240
Width = 1695
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 180
Left = 720
TabIndex = 22
Top = 480
Width = 1695
End
Begin VB.Label Label10
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 180
Left = 120
TabIndex = 21
Top = 720
Width = 1695
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1935
Left = 120
TabIndex = 1
Top = 120
Width = 2535
Begin VB.CheckBox Check1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "生命小于"
ForeColor = &H80000008&
Height = 227
Left = 120
TabIndex = 15
Top = 120
Width = 1080
End
Begin VB.CheckBox Check3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "魔法小于"
ForeColor = &H80000008&
Height = 227
Left = 120
TabIndex = 14
Top = 840
Width = 1080
End
Begin VB.CheckBox Check2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "魔法小于"
ForeColor = &H80000008&
Height = 227
Left = 120
TabIndex = 13
Top = 480
Width = 1080
End
Begin VB.CheckBox Check4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "生命小于"
ForeColor = &H80000008&
Height = 227
Left = 120
TabIndex = 12
Top = 1200
Width = 1080
End
Begin VB.CheckBox Check5
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "拣钱"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 11
Top = 1560
Width = 855
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 10
Text = "100"
Top = 120
Width = 420
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 9
Text = "100"
Top = 480
Width = 420
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 8
Text = "10"
Top = 840
Width = 420
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 270
Left = 1320
TabIndex = 7
Text = "10"
Top = 1200
Width = 420
End
Begin VB.CheckBox Check6
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "物理攻击"
ForeColor = &H80000008&
Height = 255
Left = 1200
TabIndex = 6
Top = 1560
Width = 1095
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
Height = 270
Left = 2040
TabIndex = 5
Top = 120
Width = 255
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 270
Left = 2040
TabIndex = 4
Top = 480
Width = 255
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
Height = 270
Left = 2040
TabIndex = 3
Top = 840
Width = 255
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
Height = 270
Left = 2040
TabIndex = 2
Top = 1200
Width = 255
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键"
ForeColor = &H80000008&
Height = 227
Left = 1800
TabIndex = 19
Top = 120
Width = 200
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键"
ForeColor = &H80000008&
Height = 255
Left = 1800
TabIndex = 18
Top = 480
Width = 255
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键"
ForeColor = &H80000008&
Height = 255
Left = 1800
TabIndex = 17
Top = 840
Width = 255
End
Begin VB.Label Label4
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "键"
ForeColor = &H80000008&
Height = 255
Left = 1800
TabIndex = 16
Top = 1200
Width = 255
End
End
Begin VB.Timer Timer7
Interval = 1500
Left = 2880
Top = 3720
End
Begin VB.Timer Timer6
Interval = 4000
Left = 2400
Top = 3720
End
Begin VB.Timer Timer5
Interval = 5000
Left = 1920
Top = 3720
End
Begin VB.Timer Timer4
Interval = 5000
Left = 1440
Top = 3720
End
Begin VB.Timer Timer3
Interval = 5000
Left = 960
Top = 3720
End
Begin VB.Timer Timer2
Interval = 500
Left = 480
Top = 3720
End
Begin VB.Timer Timer1
Interval = 1000
Left = 0
Top = 3720
End
Begin VB.Label Label22
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "http://www.9dkjw.cn学员作品"
ForeColor = &H80000008&
Height = 255
Left = 3120
TabIndex = 55
Top = 3240
Width = 2895
End
Begin VB.Label LblShow
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 1200
TabIndex = 49
Top = 3240
Width = 1215
End
Begin VB.Label Label11
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 0
Top = 3240
Width = 975
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowPos Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long _
) As Long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40 '窗口总在最前面
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETHOTKEY = &H32
Private Const HOTKEYF_SHIFT = &H1
Private Const HOTKEYF_CONTROL = &H2
Private Const HOTKEYF_ALT = &H4 '定义系统热键呼出
Dim DiZhi As Long
Dim MPDZ As Long
Dim GongJi As Long
Dim SEThp1 As Long
Dim SEThp2 As Long
Dim SETmp1 As Long
Dim SETmp2 As Long
Dim T1 As Long
Dim T2 As Long
Dim T3 As Long
Dim T4 As Long
Dim T5 As Long
Private Function ncnr(lpADDress As Long) As Long
' 声明一些需要的变量
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
hwnd = FindWindow(vbNullString, "Tantra Launcher")
' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
' 在内存地址中读取数据
ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
' 关闭进程句柄
CloseHandle hProcess
End Function
Private Sub Form_Load()
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 415, 265, SWP_SHOWWINDOW)
Dim l As Long
Dim wHotkey As Long
wHotkey = HOTKEYF_CONTROL * (2 ^ 8) + 48
l = SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
DiZhi = &H17D279E8
MPDZ = &H17D08C70
GongJi = &H17D10282
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer10.Enabled = False
Timer11.Enabled = False
End Sub
Private Sub Timer1_Timer()
LblShow.FontSize = 10
LblShow.FontName = "宋体"
LblShow.Caption = Time
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "Tantra Launcher")
If hwnd = 0 Then
Label11.Caption = "游戏未加载"
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False
Timer9.Enabled = False
Timer10.Enabled = False
Timer11.Enabled = False
Exit Sub
End If
Label11.Caption = "游戏已加载"
Timer2.Enabled = True
SEThp1 = Text1.Text
SETmp2 = Text2.Text
SETmp1 = Text3.Text
SEThp2 = Text4.Text
T1 = Text10.Text
T2 = Text12.Text
T3 = Text14.Text * 1000
T4 = Text16.Text * 1000
T5 = Text18.Text * 1000
Timer2.Enabled = True
If Check5.Value Then
Timer6.Enabled = True
Timer7.Enabled = True
End If
End Sub
Private Sub Timer10_Timer()
Timer10.Enabled = False
Timer10.Interval = T4
End Sub
Private Sub Timer11_Timer()
Timer11.Enabled = False
Timer11.Interval = T5
End Sub
Private Sub Timer2_Timer()
Dim NowHp As Long
Dim NowMp As Long
Dim NowGj As Long
NowHp = ncnr(DiZhi)
NowMp = ncnr(MPDZ)
NowGj = ncnr(GongJi)
Label8.Caption = Str(NowHp) + "/" + Str(ncnr(DiZhi - 4))
Label9.Caption = Str(NowMp) + "/" + Str(ncnr(MPDZ - 4))
Label10.Caption = "最大攻击力：" + Str(NowGj)
If (NowHp) < SEThp1 And Check1.Value And Timer3.Enabled = False Then
SendKeys Text5.Text
Timer3.Enabled = True
End If
If (NowMp) < SETmp1 And Check2.Value And Timer4.Enabled = False Then
SendKeys Text6.Text
Timer4.Enabled = True
End If
If (NowMp) < SETmp2 And Check3.Value Then
SendKeys Text7.Text
Timer5.Enabled = True
End If
If (NowHp) < SEThp2 And Check4.Value Then
SendKeys Text8.Text
End If
If Check7.Value And Timer5.Enabled = False Then
SendKeys Text9.Text
Timer5.Enabled = True
End If
If Check8.Value And Timer8.Enabled = False Then
SendKeys Text11.Text
Timer8.Enabled = True
End If
If Check9.Value And Timer9.Enabled = False Then
SendKeys Text13.Text
Timer9.Enabled = True
End If
If Check10.Value And Timer10.Enabled = False Then
SendKeys Text15.Text
Timer10.Enabled = True
End If
If Check11.Value And Timer11.Enabled = False Then
SendKeys "{Enter}"
SendKeys Text17.Text
SendKeys "{Enter}"
Timer11.Enabled = True
End If
If T3 > 65000 Then
MsgBox "超出范围,程序将关闭！"
Unload Me
End If
If T4 > 65000 Then
MsgBox "超出范围,程序将关闭！"
Unload Me
End If
If T5 > 65000 Then
MsgBox "超出范围,程序将关闭！"
Unload Me
End If
End Sub
Private Sub Timer3_Timer()
Timer3.Enabled = False
End Sub
Private Sub Timer4_Timer()
Timer4.Enabled = False
End Sub
Private Sub Timer5_Timer()
Timer5.Enabled = False
Timer5.Interval = T1
End Sub
Private Sub Timer6_Timer()
If Check5.Value Then
SendKeys "(F)"
End If
End Sub
Private Sub Timer7_Timer()
If Check6.Value Then
SendKeys "(E)(R)"
End If
End Sub
Private Sub Timer8_Timer()
Timer8.Enabled = False
Timer8.Interval = T2
End Sub
Private Sub Timer9_Timer()
Timer9.Enabled = False
Timer9.Interval = T3
End Sub
http://yunpan.cn/QGw6uRXZeKF6H |
|
发表于 2013-9-11 08:12:27