Проблема разрешения доступа к фреймворку политика безопасности
я просто делаю приложение простым и есть exe исполнительный файл из папки bin проекта я копирую и мимо в другом компьютере для запуска его некоторое время он работает приложение и несколько раз показывает эту ошибку пожалуйста, направьте меня, где я пропал без вести или какие-либо настройки
это и есть vb.net а веб форма приложения нет as.net
Что я уже пробовал:
приложение попыталось выполнить операцию, не разрешенную политикой безопасности . чтобы предоставить этому приложению необходимые разрешения, обратитесь к системному администратору или воспользуйтесь средством настройки Microsoft framwork.
если вы продолжите работу, приложение проигнорирует эту ошибку и попытается продолжить, если вы выйдете из приложения, то оно немедленно закроется .
запрос доступа к реестру не допускается .
Imports Microsoft.Win32 Public Class Form1 Public trailtime As DateTime Dim VALUE As String 'Public trailtime As DateTime Dim exePath As String = Application.ExecutablePath() Dim appPath As String = Application.StartupPath() Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' MsgBox(exePath) ' MsgBox(appPath) txtapplicationrunpath.Text = appPath + "\file.exe" ' Try Dim regStarUP As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN", True) regStarUP.GetValue(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath.ToString)) VALUE = regStarUP.GetValue(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath.ToString)) If Not VALUE = Nothing Then If My.Settings.checkbox = True Then 'Me.WindowState = FormWindowState.Minimized ' NotifyIcon1.Icon = SystemIcons.Application 'NotifyIcon1.BalloonTipText = "thi is minimize" 'NotifyIcon1.ShowBalloonTip(1000) ' Me.ShowInTaskbar = False Visible = False ShowInTaskbar = False ' MyBase.OnLoad(e) End If Else Visible = True ShowInTaskbar = True End If If My.Settings.status = False Then 'Not My.Settings.check Then 'My.Settings.check = True My.Settings.status = True trailtime = DateTime.Now My.Settings.expiringdate = Nothing Else If My.Settings.expiringdate > DateTime.Now Then 'My.Settings.mydate.Add(New TimeSpan(22, 0, 0, 0)) > DateTime.Now Then 'MsgBox("active") Else System.Diagnostics.Process.Start(My.Settings.apppath) 'MsgBox("exried") End If End If txtremaingdays.Text = My.Settings.expiringdate Label2.Text = My.Settings.apppath 'Label1.Text = Application.ExecutablePath.ToString ' Catch ex As Exception ' End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'OpenFileDialog1.Filter = "EXE FILE|*.EXE|JPEG FILE|*.JPEG|JPG FILE|*.JPG" 'If OpenFileDialog1.ShowDialog = DialogResult.OK Then ' txtapplicationrunpath.Text = OpenFileDialog1.FileName 'Else ' MsgBox("PLEASE SELECT FILE", MsgBoxStyle.Information 'End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If CheckBox1.Checked = True Then My.Settings.checkbox = True ElseIf CheckBox1.Checked = False Then My.Settings.checkbox = False End If If txtapplicationrunpath.Text = "" Or TextBox1.Text = "" Then MsgBox("Please Browse File Name Not Allow Blank") Else Dim regStarUP As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN", True) regStarUP.GetValue(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath.ToString)) VALUE = regStarUP.GetValue(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath.ToString)) If VALUE = Nothing Then 'If regStarUP.GetValue(Label1.Text) = Nothing Then 'If VALUE <> Application.ExecutablePath.ToString Then regStarUP.SetValue(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath.ToString), Application.ExecutablePath.ToString) 'regStarUP.Close() MsgBox("WRITE COMPLETE :") My.Settings.apppath = txtapplicationrunpath.Text Else Dim result = MsgBox("do you want to delete old registry key file ", MsgBoxStyle.YesNo) If result = MsgBoxResult.Yes Then regStarUP.DeleteValue(Application.ProductName, True) ElseIf result = MsgBoxResult.No Then MsgBox("YOUR OLD FILE IS SAME AS IT WAS THANKS ") End If End If My.Settings.expiringdate = DateTime.Now.AddDays(TextBox1.Text) End If End Sub End Class