我也遇到这样的问题，在BeforeOpenProject 事件中增加如下代码，但是无法登录，但手动输入共享路径可以访问，访问后程序升级又正常，不知何故啊！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()
'shell ("cmd.exe /c ping " & CurrentTable.Current("IP地址"),1)
p.StandardInput.WriteLine( "net use * /del /y") '清除已有的其它的密码,防止登录不上去
p.StandardInput.WriteLine( "net use \\172.16.11.5 **** /user:administrator")
p.StandardInput.WriteLine("exit")
[此贴子已经被作者于2018/3/20 18:24:40编辑过]
加好友 
发短信
Post By：2017/5/27 14:46:00 [只看该作者]
