[此贴子已经被作者于2007-9-19 18:43:09编辑过]

首先感谢以上各位！

“通过接受COMMAND启动命令行参数来设置密码”----
能否说的更详细呢？ 前者EXE文件并没有密码呀，而且是可执行文件，且没有源码的！

按照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加壳”，也许也不错，但太深奥了。如果小燕子有空的话就给我们这些菜鸟详细讲讲。

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