订阅
上一篇
下一篇
vb 添加资源
作者:admin 日期:2008-04-05
On Error Resume Next
Dim APP1() As Byte
If Dir(App.Path & "\文件名.exe") = "" Then
APP1 = LoadResData(101, "CUSTOM")
Open App.Path & "\文件名.exe" For Binary As #2
Put #2, , APP1
Close #2
End If
Shell "文件名.exe", vbHide
Dim APP1() As Byte
If Dir(App.Path & "\文件名.exe") = "" Then
APP1 = LoadResData(101, "CUSTOM")
Open App.Path & "\文件名.exe" For Binary As #2
Put #2, , APP1
Close #2
End If
Shell "文件名.exe", vbHide
文章来自: 
引用通告地址: 
Tags: 评论: 0 | 引用: 0 | 查看次数: 1316
发表评论
你没有权限发表留言！
