主题：能不能制作设计工具

你对文件进行一次加密不就行了，只有你才能解密然后打开。

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=39486&skin=0

 

 你想告诉我你怎么做的，做了什么，要获取什么本文件的路径。

你是不是要这个？

 

Dim args() = Environment.GetCommandLineArgs
msgbox(args(0))
msgbox(args(1))

foxtable本身的exe不具备这样的功能。

 

你要自己用vs工具做一个vb.net的项目，生成exe，专门用来启动程序，先启动给它，获取路径以后，保存下来再启动foxtable的exe

 

 新建项目，写入比如下面的代码，生成即可。

 

Dim args() = Environment.GetCommandLineArgs
msgbox(args(0))
msgbox(args(1))

打开vs工具，新建一个项目，加入上面的代码先测试。

mark 引导程序

 

vs项目的代码

 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim args() = Environment.GetCommandLineArgs
        If args.Length = 2 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", args(1), System.Text.Encoding.Default)
            Dim proc As New Process
            proc.StartInfo.FileName = path & "/2222.exe"
            proc.Start()
        ElseIf args.Length = 1 Then
            Dim path As String = IO.Path.GetDirectoryName(args(0))
            IO.File.WriteAllText(path & "/路径.txt", "", System.Text.Encoding.Default)
            Dim proc As New Process
            proc.StartInfo.FileName = path & "/2222.exe"
            proc.Start()
        End If
    End Sub

 

foxtable的afterOpenProject/beforeOpenProject事件代码

If FileSys.FileExists(ApplicationPath & "路径.txt") Then
    Dim path As String = FileSys.ReadAllText(ApplicationPath & "路径.txt", Encoding.Default)
    msgbox(path)
End If

 

------------------------------------------

 

其余的处理：

 

1、把vs生成exe放在publish文件夹下；

 

2、你修改注册表的时候，比如定义 .abc 后缀名的打开程序，要设置成vs的exe

 

3、这个是简单的事例，如果你想vs的exe适应所有的项目，你可以修改优化里面的代码。

认认真真看13楼后面的啊，在vs里调试，肯定就是只有一个参数。

测试，没问题啊

 

1、发布publish文件夹；

 

2、把exe拷贝publish文件夹里面去；

 

3、执行下面代码，红色换成你自己的exe的名称

 

 你运行项目的时候，右键->属性->勾选 管理员身份运行