[求助]对注册表的访问被拒绝 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'思路:

'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编辑过]

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