程序放在局域网内的某台电脑上,当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编辑过]