- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]局域网内自动升级问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133251)
-- 发布时间：2019/4/10 17:06:00
-- [求助]局域网内自动升级问题
问题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次升级后，第三次才能正常进入系统，是怎么回事
-- 发布时间：2019/4/10 18:09:00
--
1、改成
p.StandardInput.WriteLine("net use \\\\192.168.1.231 """" /user:""guest""")
2、贴出你的升级代码，afterOpenProject事件代码
-- 发布时间：2019/4/10 20:49:00
-- 回复：（有点甜）1、改成?p.StandardInput.W...
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
Next
Next
\'删除空节点
For Each dr As DataRow In DataTables("用户_授权").Select("父节点 is null")
dr.Delete
Next
\'导航栏授权
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
Next
Next
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
Next
Next
Next
Next
\'隐藏功能区,程序菜单,状态栏
For Each r As RibbonMenu.Tab In RibbonTabs
r.Visible = False
Next
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
Next
\'重置信息
DataTables("人员信息").DataCols("出生日期").RaiseDataColChanged()
DataTables("人员信息").DataCols("进入公司时间_报到日期").RaiseDataColChanged()
End If \'升级
[此贴子已经被作者于2019/4/10 20:54:23编辑过]
-- 发布时间：2019/4/10 21:58:00
--
你的update.txt、update1.zip是自己打包的还是自动打包的？
http://www.foxtable.com/webhelp/scr/2948.htm
-- 发布时间：2019/4/10 22:25:00
-- 回复：（有点甜） 你的update.txt、update1.zi...
自动升级的，路径也没有问题，就是发布后要升级2次，两次都提示成功了，第三次才能正常进入系统
-- 发布时间：2019/4/10 22:59:00
--
发布一个新项目测试，也是这样？
-- 发布时间：2019/4/11 8:25:00
-- 回复：（有点甜）发布一个新项目测试，也是这样？
这个没有试过，后面试下
-- 发布时间：2019/6/3 15:09:00
-- 回复：（有点甜）发布一个新项目测试，也是这样？
在项目发布后，有的电脑能进入我的电脑共享，查看有更新的版本自动升级，但是有的电脑进不去我的共享，提示在线升级失败，未知的用户名和密码，是怎么回事儿
输入这个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")
-- 发布时间：2019/6/3 16:14:00
--
1、在cmd命令窗口输入下面命令，是否报错？
net use \\\\192.168.1.231 "" /user:"guest"
2、如果还不行，那就可能是你共享文件夹不允许太多用户连接吧？
-- 发布时间：2019/6/3 17:53:00
-- 回复：（有点甜）1、在cmd命令窗口输入下面命令，是否...
此主题相关图片如下：360截图16550429424391.jpg
运行正常，就是打开出错