- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]对注册表的访问被拒绝 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173056)
-- 发布时间：2021/11/12 17:35:00
-- [求助]对注册表的访问被拒绝
出现以下提示，会是什么原因呢。WIN10系统
此主题相关图片如下：微信图片_20211112173432.png
[此贴子已经被作者于2021/11/12 17:36:37编辑过]
-- 发布时间：2021/11/12 17:40:00
--
把Foxtable和自己发布的程序设置为使用管理员身份运行。不要使用360等锁定注册表
-- 发布时间：2021/11/12 18:57:00
--
已经是管理员身份运行，注册表也没锁定，还会有其他什么原因
-- 发布时间：2021/11/13 8:57:00
--
提示就是注册表没有权限访问。具体原因因电脑而异，不行就手工调用一下注册表文件了。不要在程序里每次打开窗口改一下，注册表是系统敏感功能。
-- 发布时间：2021/11/13 9:14:00
--
嗯，知道问题在哪了，用管理员身份打开狐表，再在狐表中打开项目就可以了。直接运行项目找不到运行管理员身份的地方，不知在哪设置。
-- 发布时间：2021/11/13 9:34:00
--
在Windows的桌面上右击Foxtable的快捷方式，在快捷菜单中的单击属性命令，然后在兼容性页面中勾选“以管理员身份运行此程序”：
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2021/11/14 23:25:00
--
这个Echart窗口是怎么做的？可以共享一下吗？
-- 发布时间：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这个Echart窗口是怎么做的？可以共享一下吗？
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