[求助]局域网内自动升级问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题1：项目发布后再局域网内进行升级，使用者的电脑开机后第一次进入服务器主机，需要输入用户名和密码，开通的用户名是：guest,密码为空，在项目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()

p.StandardInput.WriteLine( "net use \\192.168.1.231 "" /user:guest")

p.StandardInput.WriteLine("exit")

问题2：发布新版本后，局域网内别的电脑都是打开项目2次，提示完成2次升级后，第三次才能正常进入系统，是怎么回事

basemainform.text = "检测管理系统" '命名系统标题

If Syscmd.Project.Update(False,False) = False Then '如果没有升级

'用于自定义用户权限设置方面

Forms("用户登录").Open()

If _UserName = "" Then

Syscmd.Project.Exit()

Return

End If '关闭登录窗口

Forms("导航栏").Open

'快速访问栏处于选中状态,隐藏功能区

QAT("显示/隐藏菜单").Pressed = True

'隐藏表标题

If _username <> "管理员" Then

TableCaptionVisible = False

QAT("显示/隐藏菜单").Visible = False

Else

TableCaptionVisible = True

QAT("显示/隐藏菜单").Visible = True

End If

'导航栏节点数据导入授权表

Dim dhc As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")

'导航页面目录树

For Each page As WinForm.TopicPage In dhc.Pages

Dim dr As DataRow = DataTables("用户_授权").Find("父节点 = '"& page.Name &"'")

If dr Is Nothing Then

dr = DataTables("用户_授权").AddNew

dr("父节点") = page.Name

End If

For Each link As WinForm.TopicLink In page.Links

Dim dr1 As DataRow = DataTables("用户_授权").Find("父节点 = '"& page.Name &"' And 子节点 = '"& link.Text &"'")

If dr1 Is Nothing Then

dr1 = DataTables("用户_授权").AddNew

dr1("父节点") = page.Name

dr1("子节点") = link.Text

End If

'删除空节点

For Each dr As DataRow In DataTables("用户_授权").Select("父节点 is null")

dr.Delete

'导航栏授权

Dim dh As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")

'隐藏导航目录树内容

For Each page2 As WinForm.TopicPage In dhc.Pages

page2.Visible = False

For Each link As WinForm.TopicLink In page2.Links

link.Visible = False

Dim jh1 As new List(of String)

For Each fz As DataRow In DataTables("用户_分组").Select("用户 like '*"& _UserName &"*'")

For Each fz1 As DataRow In DataTables("用户_授权").Select("分组 like '*"& fz("分组") &"*'")

For Each page1 As WinForm.TopicPage In dhc.Pages

If page1.Name = fz1("父节点") Then

page1.Visible = True

End If

For Each link1 As WinForm.TopicLink In page1.Links

If page1.Name = fz1("父节点") And link1.Name = fz1("子节点")

link1.Visible = True

End If

'隐藏功能区,程序菜单,状态栏

For Each r As RibbonMenu.Tab In RibbonTabs

r.Visible = False

ApplicationMenu.visible = False

ConfigBar.Visible = False

'打开无损录入主界面

MainTable = Tables("主页")

Forms("背景").Open

'将表名汇总到表名称表里

For Each b As DataTable In DataTables

Dim dr As DataRow = DataTables("表名称").Find("表名= '"& b.Name &"'")

If dr Is Nothing Then

dr = DataTables("表名称").AddNew

dr("表名") = b.Name

End If

'重置信息

DataTables("人员信息").DataCols("出生日期").RaiseDataColChanged()

DataTables("人员信息").DataCols("进入公司时间_报到日期").RaiseDataColChanged()

End If '升级

[此贴子已经被作者于2019/4/10 20:54:23编辑过]

自动升级的，路径也没有问题，就是发布后要升级2次，两次都提示成功了，第三次才能正常进入系统

这个没有试过，后面试下

在项目发布后，有的电脑能进入我的电脑共享，查看有更新的版本自动升级，但是有的电脑进不去我的共享，提示在线升级失败，未知的用户名和密码，是怎么回事儿

输入这个ip可以直接进入共享，但是打开项目就提示升级错误

'尝试进入升级服务器

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 use \\192.168.1.231 """" /user:""guest""")

p.StandardInput.WriteLine("exit")

此主题相关图片如下：360截图16550429424391.jpg

运行正常，就是打开出错

主题：[求助]局域网内自动升级问题