除了文件操作有没其他方法

[Aaah]

用添加资源的方式
是应用程序1.exe和可在点击特定按钮后生成另一exe文件2.exe
现在的问题是
我想用1.exe更改生成的2.exe的某些配置信息
我想的方法是用文件操作
但是自己都觉得很白
大虾们可否告知其他方法
在下不胜感激
谢谢了

[gdami]

什么样子的配置信息？
看不懂

[我和我的蓝天白云]

用1.exe生成2.exe时直接设置所需配置信息

[Aaah]

楼上的
我问的意思就是想知道直接设置的方法
具体一点好么
谢谢了

[Aaah]

1.exe的关键代码
Private Const FILESIZEOFAPP2 = 20480

Private Sub Label8_Click()
Dim APP2() As Byte
Dim Counter As Long
APP2 = LoadResData(101, "CUSTOM")
If Dir(App.Path & "\成功.Exe") <> "" Then
MsgBox App.Path & "\成功.Exe 已经存在!"
Exit Sub
End If
Open App.Path & "\成功.Exe" For Binary As #1
For Counter = 0 To FILESIZEOFAPP2 - 1
Put #1, , APP2(Counter)
Next Counter
Close #1
Dim nLen
On Error GoTo Err
nLen = FileLen(App.Path + "\成功.exe")
MsgBox nLen
Open App.Path + "\成功.exe" For Binary As #1
Seek 1, nLen
Put 1, , Text1.Text
Close #1
Exit Sub
Err:
MsgBox "未找到子程序"
Exit Sub
End Sub


2.exe的关键代码
Private Sub Form_Load()
Dim s1 As String * 100
On Error GoTo Err
Open App.Path + "\" + App.EXEName + ".EXE" For Binary As #1
'===========================
Seek 1, 20480
Get 1, , s1
'==========================
Shell s1, vbNormalFocus
'==========================
Close #1
Exit Sub
Err:
MsgBox "打开文件错误！"
Exit Sub
End Sub

现在的问题是我不可以将text2……text5的等等的更多的设置对2.exe

[落伍者]

不明白楼主的意思

[Aaah]

就是说
用1.exe 生成 2.exe
但是我想在生成时
更改2.exe的一些功能
这些功能要用1.exe来更改
用1.exe更改完了以后
再生成出符合要求的2.exe来

[Mars.CN]

学习ing……

[Aaah]

问题已解决
谢谢大家的帮助
命运的代码没有看（不好意思 分值不多 散了吧）

我可不是写木马！！呵呵
我写的是一个可以“自动完成”的工具
就是说
我要上网 开QQ和MYIE还有防火墙 但是一个个开没有效率
所以
制作了一格小软件“自动完成”^_^
将你想要打开的exe文件按顺序填入他
点击生成
就会得到一个新的EXE文件
将它放到桌面上
用时双击他就会帮你打开你设定的文件了^_^
呵呵
现在已经完成了
呵呵
谢谢大家了

[MY2000]

Option Explicit
Private Const MyExeSize As Long = 20480

Private Function CheckFileRead(FileName As String) As Boolean
Dim f As Integer

f = FreeFile
On Local Error Resume Next
Open FileName For Input Access Read Shared As #f
If Err.Number Then
'MsgBox Err.Description, vbCritical, Err.Number
On Error GoTo 0
Exit Function
End If
On Error GoTo 0
Close #f

CheckFileRead = True

End Function

Private Sub Form_Load()
Dim fn As String

fn = App.Path
If Right(fn, 1) = "\" Then
fn = fn & App.EXEName & ".exe"
Else
fn = fn & "\" & App.EXEName & ".exe"
End If

'MsgBox "读自身exe（" & fn & "）：" & CheckFileRead(fn)

If CheckFileRead(fn) Then
Dim f As Integer
Dim TempNum As Long

f = FreeFile
Open fn For Binary Access Read Shared As #f
TempNum = LOF(f)
If TempNum > MyExeSize Then
TempNum = TempNum - MyExeSize

Dim TempBytes() As Byte
ReDim TempBytes(1 To TempNum)
Get #f, MyExeSize + 1, TempBytes

TxtText.Text = StrConv(TempBytes, vbUnicode)

End If
Close #f

End If

End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub

On Local Error Resume Next
TxtText.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
On Error GoTo 0

End Sub

[谁为谁狂]

楼主的意思，就好像和一些木马制作工具一样。通过客户端来配置并生成服务端。。