📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "JY小外挂"
ClientHeight = 4455
ClientLeft = 7335
ClientTop = 4050
ClientWidth = 3795
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4455
ScaleWidth = 3795
Begin VB.CheckBox Check9
Caption = "启用保护"
Height = 255
Left = 1320
TabIndex = 30
Top = 2640
Width = 1215
End
Begin VB.TextBox Text1
Height = 285
Left = 360
TabIndex = 28
Top = 2640
Width = 855
End
Begin VB.CheckBox Check8
Caption = "Check8"
Height = 255
Left = 2400
TabIndex = 27
Top = 1200
Width = 255
End
Begin VB.CheckBox Check7
Caption = "Check7"
Height = 255
Left = 960
TabIndex = 25
Top = 2280
Width = 255
End
Begin VB.CheckBox Check6
Caption = "Check6"
Height = 255
Left = 960
TabIndex = 23
Top = 1920
Width = 255
End
Begin VB.CheckBox Check5
Caption = "Check5"
Height = 255
Left = 960
TabIndex = 21
Top = 1560
Width = 255
End
Begin VB.CheckBox Check4
Caption = "Check4"
Height = 255
Left = 960
TabIndex = 19
Top = 1200
Width = 255
End
Begin VB.CheckBox Check3
Caption = "Check3"
Height = 255
Left = 960
TabIndex = 17
Top = 840
Width = 255
End
Begin VB.CheckBox Check2
Caption = "Check2"
Height = 255
Left = 960
TabIndex = 13
Top = 480
Width = 255
End
Begin VB.Frame Frame1
Caption = "遇敌模式"
Height = 1095
Left = 1440
TabIndex = 7
Top = 0
Width = 1335
Begin VB.OptionButton Option3
Caption = "Option3"
Height = 255
Left = 120
TabIndex = 14
Top = 720
Value = -1 'True
Width = 255
End
Begin VB.OptionButton Option2
Caption = "Option2"
Height = 255
Left = 120
TabIndex = 9
Top = 480
Width = 255
End
Begin VB.OptionButton Option1
Caption = "Option1"
Height = 255
Left = 120
TabIndex = 8
Top = 240
Width = 255
End
Begin VB.Label Label9
Caption = "正常遇敌"
Height = 255
Left = 360
TabIndex = 15
Top = 720
Width = 735
End
Begin VB.Label Label6
Caption = "原地遇敌"
Height = 255
Left = 360
TabIndex = 11
Top = 480
Width = 855
End
Begin VB.Label Label4
Caption = "不遇敌"
Height = 255
Left = 360
TabIndex = 10
Top = 240
Width = 855
End
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Left = 960
TabIndex = 5
Top = 120
Width = 255
End
Begin VB.Timer Timer2
Interval = 500
Left = 2160
Top = 3000
End
Begin VB.Timer Timer1
Interval = 1000
Left = 2640
Top = 3000
End
Begin VB.Image Image1
Height = 885
Left = 0
Picture = "Form1.frx":030A
Top = 3600
Width = 4125
End
Begin VB.Label Label17
Caption = "ID:"
Height = 255
Left = 120
TabIndex = 29
Top = 2640
Width = 255
End
Begin VB.Label Label16
Caption = "固定NPC"
Height = 255
Left = 1440
TabIndex = 26
Top = 1200
Width = 735
End
Begin VB.Label Label15
Caption = "快速出招"
Height = 255
Left = 120
TabIndex = 24
Top = 2280
Width = 855
End
Begin VB.Label Label14
Caption = "穿越"
Height = 255
Left = 120
TabIndex = 22
Top = 1920
Width = 735
End
Begin VB.Label Label13
Caption = "快速修练"
Height = 255
Left = 120
TabIndex = 20
Top = 1560
Width = 735
End
Begin VB.Label Label12
Caption = "任意逃跑"
Height = 255
Left = 120
TabIndex = 18
Top = 1200
Width = 735
End
Begin VB.Label Label10
Caption = "快速聚气"
Height = 255
Left = 120
TabIndex = 16
Top = 840
Width = 735
End
Begin VB.Label Label7
Caption = "战斗快退"
Height = 255
Left = 120
TabIndex = 12
Top = 480
Width = 735
End
Begin VB.Label Label3
Caption = "快速行走"
Height = 255
Left = 120
TabIndex = 6
Top = 120
Width = 735
End
Begin VB.Label Label2
Caption = "状态"
Height = 375
Left = 0
TabIndex = 4
Top = 3360
Width = 495
End
Begin VB.Label Label1
Height = 255
Left = 720
TabIndex = 3
Top = 3360
Width = 1095
End
Begin VB.Label Label11
Height = 255
Left = 1920
TabIndex = 2
Top = 3360
Width = 1095
End
Begin VB.Label Label8
Height = 300
Left = 720
TabIndex = 1
Top = 3000
Width = 975
End
Begin VB.Label Label5
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000016&
Caption = "当前值："
ForeColor = &H80000008&
Height = 195
Left = 0
TabIndex = 0
Top = 3000
Width = 720
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim DiZhi As Long
Dim Dizhi1 As Long
Dim x As Form2
Dim CKJB As String
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vkey As Long) As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Function ncnr(lpADDress As Long) As Integer
' 声明一些需要的变量
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
hwnd = FindWindow(vbNullString, CKJB)
' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
' 在内存地址中读取数据
ReadProcessMemory pHandle, lpADDress, ByVal VarPtr(ncnr), 4, 0&
' 关闭进程句柄
CloseHandle hProcess
End Function
Private Function xr(lpADDress As Long, Zhi As Long) As Integer
' 声明一些需要的变量
Dim hwnd As Long ' 储存 FindWindow 函数返回的句柄
Dim pid As Long ' 储存进程标识符( Process Id )
Dim pHandle As Long ' 储存进程句柄
hwnd = FindWindow(vbNullString, CKJB)
' 取得进程标识符
GetWindowThreadProcessId hwnd, pid
' 使用进程标识符取得进程句柄
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
WriteProcessMemory pHandle, lpADDress, Zhi, 1, 0&
' 关闭进程句柄
CloseHandle hProcess
End Function
Private Sub Check1_Click()
DiZhi = &H6E4E96
If Check1.Value = Checked Then
xr DiZhi, &H80
xr DiZhi + 1, &H3E
Label1.Caption = "快速行走启用"
Else
xr DiZhi, &HFA
xr DiZhi + 1, &H44
Label1.Caption = "快速行走关闭"
End If
End Sub
Private Sub Check2_Click()
DiZhi = &H8AD2F3
Dizhi1 = &H8FC5D4
If Check2.Value = Checked Then
xr DiZhi, &H0
xr DiZhi + 1, &H0
xr Dizhi1, &H0
xr Dizhi1 + 1, &H0
Label1.Caption = "战斗快退启用"
Else
xr DiZhi, &H98
xr DiZhi + 1, &H9A
xr Dizhi1, &H98
xr Dizhi1 + 1, &H3A
Label1.Caption = "战斗快退关闭"
End If
End Sub
Private Sub Check3_Click()
DiZhi = &H90064C
Dizhi1 = &H9005DC
If Check3.Value = Checked Then
xr DiZhi, &HB0 + FE
xr DiZhi, &HB0 + FE
Label1.Caption = "快速聚气启用"
Else
xr DiZhi, &H3 + C2
xr DiZhi, &H3 + C2
Label1.Caption = "取消快速聚气"
End If
End Sub
Private Sub Check4_Click() '任意逃跑
DiZhi = &H8F39FD
Dizhi1 = &H93B38D
If Check4.Value = Checked Then
xr DiZhi, &H90 + 90
xr Dizhi1, &H90 + 90 + 90 + 90 + 90 + 90
Label1.Caption = "任意逃跑启用"
Else
xr DiZhi, &H7C + D
xr Dizhi1, &HF + 84 + 87 + 0 + 0 + 0
Label1.Caption = "任意逃跑取消"
End If
End Sub
Private Sub Check5_Click()
DiZhi = &H67BF0E
If Check5.Value = Checked Then
xr DiZhi, &H0 + 0
Label1.Caption = "快速修炼起用"
Else
xr DiZhi, &H88 + 13
Label1.Caption = "快速修炼关闭"
End If
End Sub
Private Sub Check6_Click()
DiZhi = &H6D5C04
If Check6.Value = Checked Then
xr DiZhi, &H90 + 90 + 90 + 90 + 90 + 90
xr DiZhi + 30, &HEB
xr DiZhi + 56, &HEB
xr DiZhi + 79, &H90 + 90
xr DiZhi + 89, &H90 + 90
Label1.Caption = "穿越起用"
Else
xr DiZhi, &HF
xr DiZhi, &H8E + CA + 0 + 0 + 0
xr DiZhi + 30, &H72
xr DiZhi + 56, &H72
xr DiZhi + 79, &H75
xr DiZhi + 80, &H7F
xr DiZhi + 89, &H75 + 75
Label1.Caption = "穿越取消"
End If
End Sub
Private Sub Check7_Click()
DiZhi = &H8E6999
Dizhi1 = &H8FE6F7
If Check7.Value = Checked Then
xr DiZhi, &HB0 + 9 + 90 + 90 + 90 + 90
xr Dizhi1, &H7
Label1.Caption = "起用快招"
Else
xr DiZhi, &HB8A + 86 + &H2C + 3 + 0 + 0
xr Dizhi1, &H8
Label1.Caption = "取消快招"
End If
End Sub
Private Sub Check8_Click()
DiZhi = &H67C103
If Check8.Value = Checked Then
xr DiZhi, &H90 + 90 + 90 + 90 + 90
xr DiZhi + &HC, &H90 + 90 + 90 + 90 + 90
Label1.Caption = "固定NPC"
Else
xr DiZhi, &HE8
xr DiZhi + 1, &H7B + C7 + 6 + 0
xr DiZhi + &HC, &HE8
xr DiZhi + &HD, &H9C
xr DiZhi + HE, &H6B + 9 + 0
Label1.Caption = "取消固定NPC"
End If
End Sub
Private Sub Check9_Click()
If Text1.Text = "" Then
Label1.Caption = "请输入ID"
Exit Sub
End If
If Check9.Value = Checked Then
CKJB = "loginp" + Text1.Text
Label1.Caption = CKJB
Else
cbjb = "JYOnline"
End If
End Sub
Private Sub Form_Load()
CKJB = "JYOnlie"
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx pid
Dim ret As Long
'取消Message的截取，使之送往原来的windows程序
ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
Call UnregisterHotKey(Me.hwnd, uVirtKey)
End Sub
Private Sub Label4_Click()
End Sub
Private Sub Option1_Click()
DiZhi = &H878E8A
xr DiZhi, &H0 + 69 + 0 + 0 + 69 + 0
End Sub
Private Sub Option2_Click()
DiZhi = &H878E8A
xr DiZhi, &H0 + 0 + 0 + 0 + 0 + 0
End Sub
Private Sub Option3_Click()
DiZhi = &H878E8A
xr DiZhi, &H48 + 44 + 0 + 0 + 48 + 42
End Sub
Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, CKJB)
If hwnd = 0 Then
Label11.Caption = "游戏未加载"
Timer1.Enabled = True
Exit Sub
End If
If hwnd <> 0 Then
Label11.Caption = "游戏已加载"
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
DiZhi = &HA6E3D74
Dim NowHp As Long
Dim HP As Integer
NowHp = ncnr(DiZhi)
HP = 30000
Label8.Caption = Str(NowHp)
'If Check9.Value = Checked And hwnd <> 0 And NowHp < HP Then
'SendKeys "f9"
'End If
End Sub
Function Http(Web)
HyperJump = ShellExecute(0&, vbNullString, Web, vbNullString, vbNullString, vbNormalFocus)
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -