📄 frmmain.frm
字号:
Top = 720
Width = 1095
End
Begin VB.TextBox TxtEmblem
Alignment = 2 'Center
Height = 320
Index = 5
Left = 1080
TabIndex = 9
Text = "0"
Top = 1080
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Blue Emblem"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 5
Left = 120
TabIndex = 74
Top = 0
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "经验"
ForeColor = &H80000008&
Height = 255
Index = 16
Left = 240
TabIndex = 13
Top = 1125
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "等级"
ForeColor = &H80000008&
Height = 255
Index = 17
Left = 240
TabIndex = 12
Top = 765
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "种类"
ForeColor = &H80000008&
Height = 255
Index = 18
Left = 240
TabIndex = 11
Top = 405
Width = 855
End
End
Begin VB.Frame Frame3
BackColor = &H80000005&
Caption = " "
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1575
Index = 2
Left = 5160
TabIndex = 2
Top = 4440
Width = 2415
Begin VB.ComboBox ComboEmblem
Height = 300
Index = 2
ItemData = "FrmMain.frx":0CDA
Left = 1080
List = "FrmMain.frx":0CDC
Style = 2 'Dropdown List
TabIndex = 80
Top = 360
Width = 1095
End
Begin VB.TextBox TxtEmblem
Alignment = 2 'Center
Height = 320
Index = 8
Left = 1080
TabIndex = 4
Text = "0"
Top = 1080
Width = 1095
End
Begin VB.TextBox TxtEmblem
Alignment = 2 'Center
Height = 320
Index = 7
Left = 1080
TabIndex = 3
Text = "0"
Top = 720
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "Green Emblem"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 6
Left = 120
TabIndex = 75
Top = 0
Width = 2055
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "经验"
ForeColor = &H80000008&
Height = 255
Index = 19
Left = 240
TabIndex = 7
Top = 1125
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "等级"
ForeColor = &H80000008&
Height = 255
Index = 20
Left = 240
TabIndex = 6
Top = 765
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "种类"
ForeColor = &H80000008&
Height = 255
Index = 21
Left = 240
TabIndex = 5
Top = 405
Width = 855
End
End
Begin VB.Line Line1
BorderColor = &H00800000&
BorderWidth = 3
X1 = 0
X2 = 7560
Y1 = 840
Y2 = 840
End
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "bbs.winsong.org"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 240
TabIndex = 68
Top = 6840
Width = 1815
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "by Superttl"
BeginProperty Font
Name = "Verdana"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 240
TabIndex = 67
Top = 6480
Width = 1575
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private lHandle As Long
Private lMatch(256) As Integer
Private lMatchCount As Integer
Private nP As Integer
Private Sub CmdNext_Click()
If nP = lMatchCount - 1 Then nP = 0 Else nP = nP + 1
If DispRole(lMatch(nP)) = False Then
TxtStatus.Text = "无法读取当前角色"
CmdSave.Enabled = False
Else
TxtStatus.Text = "读取成功"
CmdSave.Enabled = True
End If
Label2.Caption = nP + 1 & " \ " & lMatchCount
End Sub
Private Sub CmdPrev_Click()
If nP = 0 Then nP = lMatchCount - 1 Else nP = nP - 1
If DispRole(lMatch(nP)) = False Then
TxtStatus.Text = "无法读取当前角色"
CmdSave.Enabled = False
Else
TxtStatus.Text = "读取成功"
CmdSave.Enabled = True
End If
Label2.Caption = nP + 1 & " \ " & lMatchCount
End Sub
Private Sub CmdSave_Click()
Call SaveRole(lMatch(nP))
End Sub
Private Sub Command1_Click()
lHandle = GetProcessHandle()
FrameRole.Enabled = False
CmdSearch.Enabled = False
CmdSave.Enabled = False
If lHandle <> 0 Then
TxtStatus.Text = "查找游戏...稍候..."
DoEvents
Call GetRolesAddr(lHandle)
If lNumOfRoles > 0 Then
TxtStatus.Text = "在旁边的窗口选择你要修改角色的称号，然后点“查找角色”，选择“所有角色”可查找所有角色"
CmdSearch.Enabled = True
Else
TxtStatus.Text = "查找失败，请先载入进度，并确认你的游戏版本是否为2.0"
End If
Else
TxtStatus.Text = "未找到游戏进程"
End If
End Sub
Private Sub CmdSearch_Click()
Dim i As Integer, j As Integer
Dim lName As Long
lMatchCount = 0
nP = 0
j = Combo2.ListCount - 1
For i = 0 To lNumOfRoles - 1
If ReadRoleName(i, lName) Then
If Combo2.ListIndex = j Or lName = CLng(Combo2.ListIndex) Then
lMatch(lMatchCount) = i
lMatchCount = lMatchCount + 1
End If
End If
Next i
If lMatchCount > 0 Then
FrameRole.Enabled = True
CmdSave.Enabled = True
TxtStatus.Text = "找到 " & lMatchCount & " 个角色"
Call DispRole(lMatch(nP))
Label2.Caption = nP + 1 & " \ " & lMatchCount
Else
TxtStatus.Text = "没有找到这样的角色"
FrameRole.Enabled = False
CmdSave.Enabled = False
Label2.Caption = "0 \ 0"
End If
End Sub
Private Sub Form_Load()
With Combo2
.AddItem "FY测试员"
.AddItem "冒险猎人"
.AddItem "刻纹师"
.AddItem "杀戮天使"
.AddItem "狙击者"
.AddItem "势利眼"
.AddItem "暗杀者"
.AddItem "刻纹使者"
.AddItem "妖异的舞者"
.AddItem "疾风的猎人"
.AddItem "红色蔷薇"
.AddItem "鲁莽的斗牛"
.AddItem "迅捷的猎豹"
.AddItem "无声的野猫"
.AddItem "一击必杀"
.AddItem "见习生"
.AddItem "铁壁战士"
.AddItem "贤者"
.AddItem "狩影之风"
.AddItem "努力学习"
.AddItem "抢救贫穷"
.AddItem "百万富翁"
.AddItem "百战的勇者"
.AddItem "永远的新手"
.AddItem "热爱风色幻想"
.AddItem "杀人机器"
.AddItem "破坏狂"
.AddItem "常胜将军"
.AddItem "武之皇者"
.AddItem "战神"
.AddItem "坚持毅力"
.AddItem "善于逆转"
.AddItem "刻纹专家"
.AddItem "伟大的对手"
.AddItem "黑雾猎人"
.AddItem "守护者"
.AddItem "荣誉骑士"
.AddItem "魔法天才"
.AddItem "雪地的妖精"
.AddItem "传说的英雄"
.AddItem "FY战斗员"
.AddItem "世界第一武人"
.AddItem "杀手"
.AddItem "所有角色"
End With
Combo2.ListIndex = Combo2.ListCount - 1
With Combo1
.AddItem "FY测试员"
.AddItem "冒险猎人"
.AddItem "刻纹师"
.AddItem "杀戮天使"
.AddItem "狙击者"
.AddItem "势利眼"
.AddItem "暗杀者"
.AddItem "刻纹使者"
.AddItem "妖异的舞者"
.AddItem "疾风的猎人"
.AddItem "红色蔷薇"
.AddItem "鲁莽的斗牛"
.AddItem "迅捷的猎豹"
.AddItem "无声的野猫"
.AddItem "一击必杀"
.AddItem "见习生"
.AddItem "铁壁战士"
.AddItem "贤者"
.AddItem "狩影之风"
.AddItem "努力学习"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -