请教:VB问题

我想做一个游戏辅助程序,不是外挂那种.

假设程序不是在游戏根目录的话,通过什么命令说"请放到游戏目录"那些句子

还有,我想把一个文件加载到程序中,然后通过Command按钮进行生成文件,

假设我把A.exe放进From.exe中 当我按了Command1后,程序生成A.exe到指定目录.

或许说的话有点难懂,抱歉.

点击Command后-生成文件到A目录-把旧文件做备份.

Shell "cmd.exe /c cd D:\GAME\小游戏\&start.exe

'

'用以上方法启动你的游戏文件， D:\GAME\小游戏\start.exe

'

'Start.exe 代表你要启动的文件，即是你的游戏文件，注意了，Start.exe 前面还有一个 &

Private Sub Command1_Click() FileName = App.Path & "\txt.exe" '这里定义了要被打补丁覆盖的文件名 If FileExists_V2(FileName) Then '通过检查目标文件是否存在判断是否在游戏目录中 FileCopy FileName, FileName + ".bak" '这里定义了打补丁时备份文件的名字 Kill FileName Dim byt() As Byte byt = LoadResData(101, "EXE") '释放资源 Open FileName For Binary As #1 Put #1, 1, byt() Close #1 MsgBox "补丁成功", vbOKOnly, "提示" Else MsgBox "请放到游戏目录", vbOKOnly, "提示" End If End Sub

Public Function FileExists_V2(ByVal FQFilename As String) As Boolean On Error GoTo handler FileExists_V2 = False '默认false If (GetAttr(FQFilename) And vbDirectory) = vbDirectory Then '是文件夹 Else FileExists_V2 = True '文件存在，如果不存在，则已经执行到handler了 End If Exit Function handler: End Function

我画了一个窗体，一个按钮，给按钮添加了一段代码，另写一个判断是否在游戏目录的函数

在VB6的编辑窗体最上菜单栏中

工具---资源编辑器 （如果没有，选择外接程序----外接程序管理器 选中VB6资源编辑器 在下面加载行为中选则 加载/卸载 和 在启动中加载）

在跳出的窗口（拉大看）中选择 添加自定义资源 选择你要添加的EXE程序，然后点保存， 目录和你的VB6工程目录最好一致。

然后使用以上的代码就可以了

LoadResData(101, "EXE")

这函数前参数是你添加的资源在资源编辑器中显示的数字（资源的ID） 后参数是你的资源所在的文件夹

（默认生成是在"CUSTOM"下，我给改了）

其他的应该不用修改就能用了~OK~