首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB 做登陆器配置器 怎么按确定后释放出EXE文件等配置文件

2013-10-01 
VB 做登陆器配置器 如何按确定后释放出EXE文件等配置文件VB 做登陆器配置器 如何按确定后释放出EXE、dll等

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

热点排行