主题：项目保密及安全问题

首先你公司的网络有什么特点没有？比如你公司访问外网的话，是同一个ip，或者之类的特征。

如果没有这些特征，如何区分是不是在公司里面使用？那就只能是用每一个电脑的网卡、或者ComputeId作为依据了。

你的用户那里，网卡号或者computeid号，登陆的时候，判断此号是否在你【网卡表】里面。

可以用ComputerID。把各个电脑的computerID保存在一个表里面。

获取computerId，这样写，命令窗口，执行 msgbox(computerid)

AfterOpenProject查询你的表格，看computerid是否在里面，即可，如

Dim fdr As DataRow = DataTables("表").Find("id = '" & computerid & "'")

If fdr Is Nothing Then

    msgbox("没有权限")

    basemainform.Close

End If

这个查不到。ComputerID是foxtable独有的。

不然你就换成网卡号，如

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
msgbox(nics.length)
For Each nic As object In nics
    msgbox(nic.name & " " & nic.GetPhysicalAddress.tostring)
Next