以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个加密狗能否对多台电脑授权  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80627)
--  作者：cyl123
--  发布时间：2016/1/27 16:50:00
--  一个加密狗能否对多台电脑授权
一个加密狗能否对多台电脑授权，比如一个加密狗对局域网内几台电脑授权。如何实现？
--  作者：sara
--  发布时间：2016/1/27 16:59:00
--  
要注册码，但是选择不同的位置
--  作者：大红袍
--  发布时间：2016/1/27 17:02:00
--  

一个加密狗，在同一时间，只能在一台电脑使用。你可以激活多台，但是只能在某一个里使用。
--  作者：大红袍
--  发布时间：2016/1/27 17:07:00
--  
如果你是想实现这种功能，就采用OpenQQ通信，打开的时候，连接服务器，看其机器码是否在授权的表了，如果在，就允许其登陆和打开项目，否则退出。
--  作者：cyl123
--  发布时间：2016/1/29 10:41:00
--  

如果你是想实现这种功能，就采用OpenQQ通信，打开的时候，连接服务器，看其机器码是否在授权的表了，如果在，就允许其登陆和打开项目，否则退出。

 

”打开的时候，连接服务器“

 

首次安装系统，局域网内，有办法自动搜索到服务器吗？
--  作者：大红袍
--  发布时间：2016/1/29 10:44:00
--  

 服务器的ip地址和端口号，必须明确，才能连上的。

 

 你可以用一个txt填入信息，或者弹出一个窗口让用户填写。
--  作者：cyl123
--  发布时间：2016/1/29 10:47:00
--  
能否搜索局域网内的所有电脑，根据获取电脑名称与ip，用户直接选择既可？
--  作者：大红袍
--  发布时间：2016/1/29 10:50:00
--  

 参考代码

 

Dim p As new Process()
p.StartInfo.FileName = "cmd.exe"
p.StartInfo.UseShellExecute = False \'关闭Shell的使用
p.StartInfo.RedirectStandardInput = True \'重定向标准输入
p.StartInfo.RedirectStandardOutput = True \'重定向标准输出
p.StartInfo.RedirectStandardError = True \'重定向错误输出
p.StartInfo.CreateNoWindow = True \'设置不显示窗口
p.Start()

p.StandardInput.WriteLine("net view")
p.StandardInput.WriteLine("exit")
Dim strRst As String = p.StandardOutput.ReadToEnd()

msgbox(strrst)

Dim ary() As String = strrst.replace(chr(10), "").Split(chr(13))
For Each s As String In ary
    If s.StartsWith("\\\\") Then
        msgbox(s)
    End If
Next

 
--  作者：cyl123
--  发布时间：2016/1/29 11:11:00
--  
ip地址如何获取呢
--  作者：大红袍
--  发布时间：2016/1/29 11:14:00
--  

参考

 

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