公司的一项业务.请高手帮忙看看.解决了加分！！！

Question

最近我们公司要制作一项软件.不是什么大公司.就是帮别人搞搞程序类的.
要实现的是这样子的。
我们有1个窗口要调用一个已经生成的文件..就是将文件放入到这个窗口里。
而那个文件是共享文件.不能给客户看到.也就是说要建立一个文件夹.然后文件夹加密.
在用窗口调用这个生成的文件.简单说明一下.
就是<加密的文件夹里放一个已经生成完的程序>.这个文件夹是打不开的.
然后用1个窗口来调用这个程序.
不知道能不能做这样的程序?高手帮忙看看!..

Answer 1

可以,有一个投机取巧的方法,把你的文件改后缀名字,如果你是的doc文件的话,你改成gif后缀,用户怎么也不回想到用word程序打开,有不就改成谁也不认识的后缀!!嘿嘿,
  改了后缀还不影响你程序的调用!!!

Answer 2

这个程序是EXE.我调用过来不是编程GIF了??.

Answer 3

明白你的意思了,你是不让用户打开你调用的EXE 文件,是吗?

Answer 4

兄弟,给我200吧,开玩笑了，给你代码,没有什么深奥的知识
     还是换格式!!测试成功!
Option Explicit
Dim m() As Byte
Dim FLen As Long
Private Sub Command1_Click()
  Open "C:\Documents and Settings\Admin\桌面\FontSet.exe" For Binary As #1
    FLen = LOF(1)
     ReDim m(FLen - 1) As Byte
         Get #1, , m
   Close #1
   
   Open "C:\Documents and Settings\Admin\桌面\FontSet1.gif" For Binary As #1
      Put #1, , m
   Close #1
 End SubPrivate Sub Command2_Click()
  Shell "C:\Documents and Settings\Admin\桌面\FontSet1.gif", vbNormalFocus
End Sub
 完了!!

Answer 5

用得着这么麻烦吗？直接改名或复制就可以了。
然后再调用就可以了。
Shell "C:\test.gif", vbNormalFocus

Answer 6

路径你可以自己写,对应就是了!!
       就是要生成一张图片,把这个图片放客户机器上,他双击看不到任何东西,但是你用程序调用就没有问题!!
Command1_Click() 是为了把exe文件换成gif文件!! Command2_Click 是调用gif文件,看起来好象是调用gif文件,实际是运行了exe文件

Answer 7

说实话,我的机器该不了后缀,所以就换了一个方法!!
   原理就是改后缀!!这样如果用户双击在注册表里面就会找gif打开文件的应用程序了

Answer 8

这个路径能不能帮我改成我自己文件夹里面的路径.
比如App.Path & "\11\FontSet.exe的.
这样我改了出错.提示下越边界什么的

Answer 9

App.Path & "\FontSet.exe"
   就是你工程所在的文件夹
FontSet.exe 与你的工程同一等级!!
 App.Path & "\11\FontSet.exe"
  表示在11文件夹和你的工程文件在一个文件夹里面,FontSet.exe 和工程文件不是一个等级的

Answer 10

这个11文件夹是在我的工程目录里建的.用来存放那个程序的其他文件.才可以调用出来.
要是用App.Path & "\FontSet.exe"的话.完整代码该怎么写呢.
还有我要是发布了的话.COMMAN1的CLICK内容要不要也加进去?

Answer 11

不用,COMMAN1的CLICK 是把exe文件改后缀而已!!你也可以直接改后缀,然后调用
改了后缀后,就这样就好了
Private Sub Command2_Click()
  Shell App.Path & "\11\FontSet1.gif", vbNormalFocus
End Sub

Answer 12

把exe文件的擴展名改為其它的諸如.JPG、.GIF...
都能用Shell來調用運行
只是這個秘密不能讓你的客戶知道了，否則是白忙

Answer 13

恩.谢谢解析提醒.我就是换成GIF的.