Foxtable(狐表)用户栏目专家坐堂 → [求助]对注册表的访问被拒绝


  共有3890人关注过本帖树形打印复制链接

主题:[求助]对注册表的访问被拒绝

帅哥哟,离线,有人找我吗?
lgj716330
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1394 积分:10728 威望:0 精华:0 注册:2013/11/8 15:27:00
[求助]对注册表的访问被拒绝  发帖心情 Post By:2021/11/12 17:35:00 [只看该作者]

出现以下提示,会是什么原因呢。WIN10系统

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20211112173432.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/11/12 17:36:37编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/12 17:40:00 [只看该作者]

把Foxtable和自己发布的程序设置为使用管理员身份运行。不要使用360等锁定注册表

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1394 积分:10728 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2021/11/12 18:57:00 [只看该作者]

已经是管理员身份运行,注册表也没锁定,还会有其他什么原因

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/13 8:57:00 [只看该作者]

提示就是注册表没有权限访问。具体原因因电脑而异,不行就手工调用一下注册表文件了。不要在程序里每次打开窗口改一下,注册表是系统敏感功能。

 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1394 积分:10728 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2021/11/13 9:14:00 [只看该作者]

嗯,知道问题在哪了,用管理员身份打开狐表,再在狐表中打开项目就可以了。直接运行项目找不到运行管理员身份的地方,不知在哪设置。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/13 9:34:00 [只看该作者]

在Windows的桌面上右击Foxtable的快捷方式,在快捷菜单中的单击属性命令,然后在兼容性页面中勾选“以管理员身份运行此程序”:

图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
lgj716330
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1394 积分:10728 威望:0 精华:0 注册:2013/11/8 15:27:00
  发帖心情 Post By:2021/11/14 16:28:00 [只看该作者]

'思路:
'1准备好模板要生成的缓存文件夹
'2设置程序默认使用IE9内核
'3把模板html文件内容读取
'4用TextBox的内容替换模板里的关键代码
'5生成一个名字随机不重复的临时html报表结果缓存
'6把html报表结果拿到WebBrowser展示

'准备好缓存目录---
If FileSys.DirectoryExists(ProjectPath & "temp") Then
    FileSys.DeleteDirectory(ProjectPath & "temp",2,2)'清空缓存文件夹
End If
FileSys.CreateDirectory(ProjectPath & "temp") '生成缓存要用的文件夹
'准备好缓存目录---

'配置默认IE9,注意修改为主程序名---
Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION",System.Diagnostics.Process.GetCurrentProcess.ProcessName & ".exe",9999)
'配置默认IE9---

Dim str As String = FileSys.ReadAllText(ProjectPath & "图例/模板1.html", EnCoding.utf8)
str = str.Replace("//##狐表要替换的js代码##//", e.Form.controls("TextBox1").Text)
Dim file As String = ProjectPath & "temp/" & Rand.NextString(32) & ".html" '随机生成一个名字,为了缓存一个不重复的临时文件
FileSys.WriteAllText(file, str, False, Encoding.utf8) '把替换好html内容写回去
Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
wb.Address = file '把生存的缓存html加载到WebBrowser显示
点击按钮时出现下面这些错误,但最终图表可以出来,不知是哪里问题

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2021/11/14 16:54:26编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/14 20:59:00 [只看该作者]

应该是有些新特性不在支持IE了。可以使用旧版本的echarts,或者屏蔽掉错误

Dim wb As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim webb = wb.BaseControl
webb.ScriptErrorsSuppressed = True  '禁止js错误提示
wb.Address = file

 回到顶部
帅哥哟,离线,有人找我吗?
zhutangxin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3983 威望:0 精华:0 注册:2016/10/14 13:40:00
  发帖心情 Post By:2021/11/14 23:25:00 [只看该作者]

这个Echart窗口是怎么做的?可以共享一下吗?

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110790 积分:563882 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/11/15 8:34:00 [只看该作者]

以下是引用zhutangxin在2021/11/14 23:25:00的发言:
这个Echart窗口是怎么做的?可以共享一下吗?

参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=132587&replyID=&skin=1
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144232&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103519&replyID=&skin=1

 回到顶部