以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 局域网内如何通过计算机名字链接  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75917)
--  作者：15986720145
--  发布时间：2015/10/17 16:45:00
--  [求助] 局域网内如何通过计算机名字链接
程序放在局域网内的某台电脑上，当IP地址发生变化后，用原来设置好的IP就无法连接了。

如何通过 计算机名字 连接局域网内的电脑？帮助中，没有通过计算机名字得到IP地址的例子。
\'以下代码放在PC终端，用于打开已经共享的电脑上（IPInput参数为目标PC的局域网地址）的指定程序
Dim Proc As New Process
Proc.File = "\\\\" & IPInput & "\\测试\\测试.Table"  \'IPInput参数为目标PC的局域网地址
If NetWork.Ping(IPInput) Then
    Proc.Start()
    Forms("Linking").Close()
    Syscmd.Project.Exit(True)
Else
    MessageBox.Show("目标主机没有开机,或网络不通!", "警告",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If
[此贴子已经被作者于2015/10/17 17:52:24编辑过]
--  作者：15986720145
--  发布时间：2015/10/17 17:07:00
--  
经过测试，ping命令在局域网内可以直接ping(计算机名)

Dim Proc As New Process
Proc.File = "\\\\" & 计算机名 & "\\测试\\测试.Table"  
Proc.Start()

通过测试，OK! 基本解决！