“资源文件”？偶尔见过，却没有深究。还得学习学习先！
非常感谢您给我提供这个思路！

你那个exe如果是独立的话，你需要想个办法加密（加密了的exe是无效程序无法运行），
在通过别一个程序B通过验证后，再解密运行
不过你要防止解密后的exe被复制出来而不需要验证
所以实际要完全你的要求，难度是不小的
有点类似exe加壳/解壳
最好是你自己查资料



by 雨中飞燕 QQ:78803110 QQ讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

非常感谢小燕子！

是不是另外编写一个加密程序对前一个EXE文件加密？

我还没有编写过加密程序呢，能否提供一点意见或参考资料？

对文本文件加密，我略知一二。而对EXE文件加密，还一片空白啊！

我高兴惨啦！
问题已经基本解决，用的是10楼贵宾Knocker提供的方法。非常感激Knocker的帮助！

按照Knocker的思路，我试做了一个小程序，代码如下：（详细见附件）
Private Sub cmdRun_Click()
'运行并删除
Dim b As String
b = Shell("C:\WINDOWS\system32\lsz.exe", vbNormalFocus)

Kill Environ("windir") & "\system32\lsz.exe" 'Environ("windir")获得系统目录
'这里还要考虑正在运行的文件不能删除
End Sub

Private Sub cmdShi_Click()
' 把资源文件中的EXE文件释放到C:\WINDOWS\system32\并命名为lsz.exe
Dim App1() As Byte
If Dir("C:\WINDOWS\system32\lsz.exe") = "" Then
App1 = LoadResData(102, "CUSTOM")
Open "C:\WINDOWS\system32\lsz.exe" For Binary As #2
Put #2, , App1
Close #2 '
End If

End Sub

通过这次学习，我受益非浅！学到了资源文件的建立和使用，学到了SHELL函数的用法，等等。所以，我快乐！
我把这个例子放这里，一是作为总结，二是给那些象我一样的朋友参考，三是希望高手有空也看看，并提提意见。
再次感谢Knocker的帮助！也感谢所有好心人！
小燕子说的方法“EXE加壳”，也许也不错，但太深奥了。如果小燕子有空的话就给我们这些菜鸟详细讲讲。

嗯 这个思路挺好的。

你这个方法可以是可以，不过没有什么安全性可言，只要监测一下硬盘，
很容易发现你的资料放到哪里，然后在运行的时候直接复制出来，那你的验证程序就失效了
我的方法就是为了加大用户复制出来的难度（至少让一般用户没有办法）

你那个方法其实就相当于简单加壳，把可执行程序放在你的“壳”里面
只不过很容易破解而已

更多技术方面的资料可以搜索“exe文件加壳”


by 雨中飞燕 QQ:78803110 QQ讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

谢谢小燕子！
虽然是位小妹妹，但造诣之深，令人佩服！