📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H00FFC0FF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 5670
ClientLeft = 4785
ClientTop = 2775
ClientWidth = 4245
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "Form1.frx":0000
ScaleHeight = 5670
ScaleWidth = 4245
ShowInTaskbar = 0 'False
Begin 工程1.UserControl1 Uf
Height = 225
Left = 3660
TabIndex = 7
ToolTipText = "关于"
Top = 990
Width = 225
_ExtentX = 397
_ExtentY = 397
PictureMove = "Form1.frx":157B
PictureUp = "Form1.frx":1B01
PictureDown = "Form1.frx":2087
PictureDisabled = "Form1.frx":260D
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16777215
Caption = ""
End
Begin 工程1.UserControl1 Unend
Height = 270
Left = 3690
TabIndex = 6
Top = 90
Width = 270
_ExtentX = 476
_ExtentY = 476
PictureMove = "Form1.frx":2B93
PictureUp = "Form1.frx":319D
PictureDown = "Form1.frx":37A7
PictureDisabled = "Form1.frx":3DB1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16777215
Caption = ""
End
Begin 工程1.UserControl1 CoSeve
Height = 330
Left = 2310
TabIndex = 4
Top = 930
Width = 1260
_ExtentX = 2223
_ExtentY = 582
Enabled = 0 'False
PictureMove = "Form1.frx":43BB
PictureUp = "Form1.frx":5055
PictureDown = "Form1.frx":5CEF
PictureDisabled = "Form1.frx":6989
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16777215
Caption = "保 存"
End
Begin 工程1.UserControl1 CoSOuSe
Height = 330
Left = 120
TabIndex = 3
Top = 930
Width = 1260
_ExtentX = 2223
_ExtentY = 582
Enabled = 0 'False
PictureMove = "Form1.frx":7623
PictureUp = "Form1.frx":82BD
PictureDown = "Form1.frx":8F57
PictureDisabled = "Form1.frx":9BF1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16777215
Caption = "搜 索"
End
Begin 工程1.UserControl1 CDopen
Height = 330
Left = 120
TabIndex = 2
Top = 510
Width = 1260
_ExtentX = 2223
_ExtentY = 582
PictureMove = "Form1.frx":A88B
PictureUp = "Form1.frx":B525
PictureDown = "Form1.frx":C1BF
PictureDisabled = "Form1.frx":CE59
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16777215
Caption = "打 开"
End
Begin VB.TextBox TexLeiR
BackColor = &H00461F0A&
ForeColor = &H8000000E&
Height = 4155
Left = 60
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 1320
Width = 3915
End
Begin VB.TextBox Textapp
BackColor = &H00461F0A&
ForeColor = &H80000004&
Height = 315
Left = 1440
TabIndex = 0
Text = "D:\Program Files\诛仙\element\elementclient.exe"
Top = 510
Width = 2505
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = " 特征码地址 诛仙 VB版"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 285
Left = 60
TabIndex = 5
Top = 90
Width = 3585
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytDat() As Byte '文件数组
Dim lngRet As Long '文件长度
Dim Re As Long
Dim DinWi As Long '定位地址
Private Sub Command1_Click()
End Sub
Private Sub CoSeve_Click() '保存文件
CoSeve.Enabled = False
Dim th As String
th = App.Path
If Right(th, 1) <> "\" Then th = th + "\"
Open th & "地址文件.txt" For Output As #1
Print #1, TexLeiR.Text
Close #1
End Sub
Private Sub CoSOuSe_Click()
Dim CallJ As Long
TexLeiR.Text = TexLeiR.Text & "正在搜索数据，请稍后。。。。。" & vbCrLf & vbCrLf
TexLeiR.Text = TexLeiR.Text & "名称 数值 定位地址" & vbCrLf
CallJ = ShouSuo(bytDat, "E8 F3 44 10 00 5F 5E 5B 83 C4 0C C2 ", &H450000, &H500000, &H1044F8)
If CallJ Then TexLeiR.Text = TexLeiR.Text & "拾取物品 " & "&H" & Hex(CallJ) & " &H" & Hex(DinWi) & vbCrLf
CallJ = ShouSuo(bytDat, "E8 22 B7 02 00 83 C4 10 5F 5E 5D 5B", &H550000, &H600000, &H2B727)
If CallJ Then TexLeiR.Text = TexLeiR.Text & "使用物品 " & "&H" & Hex(CallJ) & " &H" & Hex(DinWi) & vbCrLf
CallJ = ShouSuo(bytDat, "E8 D5 16 15 00 B0 01", &H430000, &H470000, &H1516DA)
If CallJ Then TexLeiR.Text = TexLeiR.Text & "打 坐 " & "&H" & Hex(CallJ) & " &H" & Hex(DinWi) & vbCrLf
CallJ = ShouSuo(bytDat, "E8 0B 17 15 00 B0 01", &H430000, &H470000, &H151710)
If CallJ Then TexLeiR.Text = TexLeiR.Text & "取消打坐 " & "&H" & Hex(CallJ) & " &H" & Hex(DinWi) & vbCrLf
CallJ = ShouSuo(bytDat, "E8 8B 99 FC FF B0 01 C3", &H480000, &H520000, -222832)
If CallJ Then TexLeiR.Text = TexLeiR.Text & "技能 ID " & "&H" & Hex(CallJ) & " &H" & Hex(DinWi) & vbCrLf
TexLeiR.Text = TexLeiR.Text & vbCrLf & "数据搜索完毕！" & vbCrLf
TexLeiR.Text = TexLeiR.Text & " 。。。。。。。。 谢谢使用！" & vbCrLf & vbCrLf & vbCrLf & vbCrLf
End Sub
'特征码 搜索过程
Public Function ShouSuo(ByBs() As Byte, StrZf As String, SoQ As Long, SoZ As Long, SoPl As Long) As Long
Dim Szcd As Integer '特征码长度
Dim Call_jz() As Byte '特征码临时数组
Dim i As Long
Dim j As Integer
DinWi = 0 '初始化定位地址
Szcd = Str_VAL(Str_Spe(StrZf), Call_jz) '读取特征码长度 并读取特征码到数组
For i = SoQ - &H400000 To SoZ - &H400011 Step 1
For j = 0 To Szcd - 1
If bytDat(i + j) = Call_jz(j) Then
If j = Szcd - 1 Then DinWi = Re + i '得到
Else
Exit For
End If
Next j
Next i
If DinWi Then ShouSuo = DinWi + SoPl Else ShouSuo = 0 '跟据定位地址+地址偏量得到基址
End Function
Private Sub CDopen_Click() '打开
If Trim(Textapp.Text) = "" Then
Dim ofn As OPENFILENAME
Dim rtn As String
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Me.hwnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "所有文件"
ofn.lpstrFile = Space(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = App.Path
ofn.lpstrTitle = "打开文件"
ofn.flags = 6148
rtn = GetOpenFileName(ofn)
If rtn >= 1 Then
Textapp.Text = ofn.lpstrFile
Close #1
End If
End If
lngRet = LoadFile(Textapp.Text, bytDat) '读取文件长度 并读取文件
If lngRet > 0 Then
TexLeiR.Text = TexLeiR.Text & "数据读入完成！长度为：" & lngRet & "字节！" & vbCrLf
CoSOuSe.Enabled = True
Else
TexLeiR.Text = TexLeiR.Text & "数据读取错误！" & vbCrLf
End If
End Sub
'从文件中读取数据
Private Function LoadFile(ByVal strFileName As String, bytArr() As Byte) As Long
Dim intFile As Integer
Dim lngDatLength As Single
On Local Error Resume Next
lngDatLength = 0
If strFileName = "" Then
LoadFile = 0
Exit Function
End If
If Dir(strFileName, vbNormal) <> "" Then
intFile = FreeFile()
Open strFileName For Binary Access Read As intFile
If Err Then
Err.Clear
LoadFile = 0
Exit Function
End If
lngDatLength = LOF(intFile)
If lngDatLength > 0 Then
ReDim bytArr(lngDatLength - 1)
Get #intFile, , bytArr
blnRet = True
End If
Close intFile
End If
LoadFile = lngDatLength
End Function
Private Sub Form_Load()
Re = CLng(&H400000)
Form1.BackColor = &HFFC0FF
Call FormStyles(Me.hwnd, &HFFC0FF, 1)
CDopen.CsF
CoSOuSe.CsF
CoSeve.CsF
Unend.CsF
End Sub
Public Function Str_VAL(Strte As String, bytArr() As Byte) As Integer '将字符存入数组
Dim i As Long
Dim Cd As Integer
Cd = Len(Strte) / 2
If Cd Then
ReDim bytArr(Cd - 1)
For i = 0 To Len(Strte) / 2 - 1 Step 1
bytArr(i) = Val("&H" & Mid(Strte, i * 2 + 1, 2))
Next i
End If
Str_VAL = Cd
End Function
Public Function Str_Spe(Strte As String) As String '除去字符中的空格
Dim i As Integer
For i = 1 To Len(Strte)
If Mid(Strte, i, 1) <> " " Then Str_Spe = Str_Spe + Mid(Strte, i, 1)
Next i
End Function
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MoveForm(Me.hwnd)
End Sub
Private Sub TexLeiR_Change()
CoSeve.Enabled = True
End Sub
Private Sub Uf_Click()
Form2.Show
End Sub
Private Sub Unend_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -