旺角卡门主题曲名字:高分求存档编辑器源代码

Private Sub Command1_Click()'这是打开文件并读出并显示到文本框的按钮
Dim sFile As String
Dim a1 As Long
With dlgCommonDialog
.DialogTitle = "打开《英雄传说六》存档文件"
.CancelError = False
'ToDo: 设置 common dialog 控件的标志和属性
.Filter = "存档文件 (SVDAT*.SAV)|SVDAT*.SAV"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
'打开 目标文件
Open sFile For Binary As #1
'把选择的路径 显示 文本 Text1 里
Text.Text = sFile
'读取 打开的文件 地址
Get #1, &H25C89, a1
'读取的地址 显示到 文本 text2 里
Text1.Text = a1

End Sub

Private Sub Command2_Click()'这是写入按钮
'定义变量类型
Dim b1 As Long
'读取写入值
b2 = "&H" & Hex(Text1.Text)
'写入数值
Put #1, &H25C89, b1
'关闭
Close (1)
End Sub

Private Sub Exit_Click()'关闭修改器的按钮
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)'只允许在 text1 写 0-9
If ((KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8) Then
KeyAscii = 0
End If
End Sub

PS：正板杀毒软件就一定什么都能防吗？咱两赌点啥
要是我给你个脚本文件你的软件查不出来怎么办？不要太相信那些东西~~~

#==============================================================================
# ■ Scene_Save
#------------------------------------------------------------------------------
# 处理存档画面的类。
#==============================================================================

class Scene_Save < Scene_File
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize
super("您要保存到这个文件吗？")
end
#--------------------------------------------------------------------------
# ● 确定时的处理
#--------------------------------------------------------------------------
def on_decision(filename)
# 演奏存档 SE
$game_system.se_play($data_system.save_se)
# 写入存档数据
file = File.open(filename, "wb")
write_save_data(file)
file.close
# 如果被事件调用
if $game_temp.save_calling
# 清除存档调用标志
$game_temp.save_calling = false
# 切换到地图画面
$scene = Scene_Map.new
return
end
# 切换到菜单画面
$scene = Scene_Menu.new(4)
end
#--------------------------------------------------------------------------
# ● 取消时的处理
#--------------------------------------------------------------------------
def on_cancel
# 演奏取消 SE
$game_system.se_play($data_system.cancel_se)
# 如果被事件调用
if $game_temp.save_calling
# 清除存档调用标志
$game_temp.save_calling = false
# 切换到地图画面
$scene = Scene_Map.new
return
end
# 切换到菜单画面
$scene = Scene_Menu.new(4)
end
#--------------------------------------------------------------------------
# ● 写入存档数据
# file : 写入用文件对像 (已经打开)
#--------------------------------------------------------------------------
def write_save_data(file)
# 生成描绘存档文件用的角色图形
characters = []
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
characters.push([actor.character_name, actor.character_hue])
end
# 写入描绘存档文件用的角色数据
Marshal.dump(characters, file)
# 写入测量游戏时间用画面计数
Marshal.dump(Graphics.frame_count, file)
# 增加 1 次存档次数
$game_system.save_count += 1
# 保存魔法编号
# (将编辑器保存的值以随机值替换)
$game_system.magic_number = $data_system.magic_number
# 写入各种游戏对像
Marshal.dump($game_system, file)
Marshal.dump($game_switches, file)
Marshal.dump($game_variables, file)
Marshal.dump($game_self_switches, file)
Marshal.dump($game_screen, file)
Marshal.dump($game_actors, file)
Marshal.dump($game_party, file)
Marshal.dump($game_troop, file)
Marshal.dump($game_map, file)
Marshal.dump($game_player, file)
end
end

楼上的好猛啊~~赞一个!