VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: icecept

[经验技巧] 资源文件精解示例

[复制链接]
发表于 2009-7-16 17:42:14 | 显示全部楼层
强人 下了个软件 呵呵
回复 支持 反对

使用道具 举报

发表于 2009-7-16 17:57:21 | 显示全部楼层
Restorator 2007.rar
就是这个东西有用!
回复 支持 反对

使用道具 举报

发表于 2009-7-17 12:57:39 | 显示全部楼层
楼主所总结的东西非常实用,感谢楼主
回复 支持 反对

使用道具 举报

发表于 2009-7-21 12:59:10 | 显示全部楼层
Restorator 2007确实好用,一直在用。
好贴我一定要顶!
回复 支持 反对

使用道具 举报

发表于 2009-7-28 10:35:34 | 显示全部楼层
这贴子不顶对不起全天下好人~~~~~~~~~
回复 支持 反对

使用道具 举报

发表于 2009-8-3 15:12:47 | 显示全部楼层
谢谢!

res文件真是强大
回复 支持 反对

使用道具 举报

发表于 2009-8-12 11:11:36 | 显示全部楼层
如何用vb替换资源?
回复 支持 反对

使用道具 举报

发表于 2009-8-12 11:15:07 | 显示全部楼层
看看这个行不行?

vb替换资源文件里的字符串该怎么弄,满分悬赏
悬赏分:100 - 解决时间:2008-11-10 17:05

我有个exe程序 用16进制的形式打开它 找到123这几个字符串 然后替换成123  我想在VB里实现  先放到把exe程序添加到资源文件里 然后加个text1.text控件 和一个按钮控件.  比如说我在text1.text里添321 然后按钮控件 就直接生成出替换好了的程序.  这个意思说的很明白了吧. 教会我的我再追加100分

提问者: 244607475 - 助理 二级
最佳答案

'窗体上的控件如你所述,复制下面代码,根据实际情况修改注释部分,然后运行即可。

Option Explicit

'API声明

Private Declare Function BeginUpdateResource Lib "kernel32" Alias "BeginUpdateResourceA" (ByVal pFileName As String, ByVal bDeleteExistingResources As Long) As Long

Private Declare Function UpdateResource Lib "kernel32" Alias "UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As String, ByVal lpName As Long, ByVal wLanguage As Long, lpData As Any, ByVal cbData As Long) As Long

Private Declare Function EndUpdateResource Lib "kernel32" Alias "EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long) As Long

Private Sub Cmd_Write_Click()

Dim hRes As Long, i As Integer

Dim myStr() As Byte, b() As Byte, FileName As String

FileName = "c:\1.exe" '这个就是你要生成的程序名

If Dir(FileName) <> "" Then Kill FileName
      b = LoadResData(101, "CUSTOM") '本程序中Exe文件的资源ID号
      i = FreeFile
      Open FileName For Binary As #i
      Put #i, , b
      Close #i


myStr = StrConv(Text1.Text, vbFromUnicode)

hRes = BeginUpdateResource(FileName, False)

UpdateResource hRes, "CUSTOM", 101, 2052, myStr(0), Len(Text1.Text) 'Exe文件中要替换的资源ID号

EndUpdateResource hRes, False

MsgBox "文件替换并生成完毕!"
End Sub
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-8-12 23:19:25 | 显示全部楼层
88# hovidelphic

谢谢了,这样就更能丰富vb资源文件在编程中的做用了。谢谢
回复 支持 反对

使用道具 举报

发表于 2009-8-13 11:21:24 | 显示全部楼层
感谢版主的精彩总结
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-10-14 11:56

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表