VB 做登陆器配置器 如何按确定后释放出EXE文件等配置文件
VB 做登陆器配置器 如何按确定后释放出EXE、dll等配置文件
注意不是用VB环境生成!是VB编译的生成器来释放
图片是别人的登陆器配置器
[解决办法]
不确定理解你的意思对没有,你是不是想把别的文件一起内置到你的exe中,然后可以自己释放这些文件到磁盘上?如果是这样,不考虑兼容性的情况下,你可以把你所谓的配置文件放到VB的资源里(VB的外接程序菜单中可以加载资源管理器)。在程序运行时,你可以用 LoadResData 函数取得资源里的数据到一个字节数组,然后可以用 Open 语句将这个字节数组的数据写到你指定的磁盘文件上,这就完成的所谓的释放操作。具体的你可以参考 MSDN 或百度一下我说的函数或语句用法。
[解决办法]
Public Function MadeFile(FileName As String, ResName As String, ResNumber) As String
On Error GoTo A:
Dim lpFileTemp() As Byte
Dim lpFileSize As Long, i As Long
Dim iFileNum As Long
iFileNum = FreeFile
lpFileTemp = LoadResData(ResNumber, ResName)
Open FileName For Binary As #iFileNum
Put #iFileNum, , lpFileTemp
Close #iFileNum
A:
If Err.Number <> 0 Then
Exit Function
End If
End Function
把要释放的文件添加到资源文件,调用
MadeFile "c"\123.exe","CUSTOM",101