rezaei manesh
شنبه 09 اردیبهشت 1385, 10:40 صبح
سلام
من برای نمایش پیغام در کتاب sybex دیدم از رجیستری استفاده کرده من هم می خوام از این روش استفاده کنم اما وقتی کد اون رو می نویسم این پیغام رو می ده ؟
Access to the registry key HKEY_LOCAL_MACHINE\SOFTWARE\Sybex is denied
اینم کد در فرم لود
Dim x As RegistryKey
x = Registry.PerformanceData
If x Is Nothing Then
Response.Write("x is nothing")
Response.End()
End If
m_keySybex = Registry.LocalMachine.OpenSubKey("SOFTWARE\Sybex", True)
If m_keySybex Is Nothing Then
Try
m_keySybex = Registry.LocalMachine. _
CreateSubKey("SOFTWARE\Sybex")
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
End If
m_keyVBNetWeb = m_keySybex.OpenSubKey("VBNetWeb", True)
If m_keyVBNetWeb Is Nothing Then
Try
m_keySybex.CreateSubKey("VBNetWeb")
m_keyVBNetWeb = m_keySybex.OpenSubKey("VBNetWeb", True)
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
End If
Try
m_subKeys = m_keyVBNetWeb.GetSubKeyNames()
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
و این رو هم توی رویداد کلید دکمه
' Dim anIndex As Integer
Dim aName As String
Dim aKey As RegistryKey
aName = TextKey.Text
' set the subkey
aKey = m_keyVBNetWeb.OpenSubKey(aName)
If Not aKey Is Nothing AndAlso aName.Trim() <> "" Then
aKey.Close()
m_keyVBNetWeb.DeleteSubKey(aName)
' clear the text boxes
Me.TextKey.Text = Nothing
Me.TextValue.Text = Nothing
' reset the listbox
Call fillSubKeys()
Else
RegisterStartupScript("BadKey", "<script type=""text/javascript"">" & _
"alert('The key you entered does not exist.');</script>")
End If
من برای نمایش پیغام در کتاب sybex دیدم از رجیستری استفاده کرده من هم می خوام از این روش استفاده کنم اما وقتی کد اون رو می نویسم این پیغام رو می ده ؟
Access to the registry key HKEY_LOCAL_MACHINE\SOFTWARE\Sybex is denied
اینم کد در فرم لود
Dim x As RegistryKey
x = Registry.PerformanceData
If x Is Nothing Then
Response.Write("x is nothing")
Response.End()
End If
m_keySybex = Registry.LocalMachine.OpenSubKey("SOFTWARE\Sybex", True)
If m_keySybex Is Nothing Then
Try
m_keySybex = Registry.LocalMachine. _
CreateSubKey("SOFTWARE\Sybex")
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
End If
m_keyVBNetWeb = m_keySybex.OpenSubKey("VBNetWeb", True)
If m_keyVBNetWeb Is Nothing Then
Try
m_keySybex.CreateSubKey("VBNetWeb")
m_keyVBNetWeb = m_keySybex.OpenSubKey("VBNetWeb", True)
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
End If
Try
m_subKeys = m_keyVBNetWeb.GetSubKeyNames()
Catch ex As Exception
Response.Write(ex.Message)
Response.End()
End Try
و این رو هم توی رویداد کلید دکمه
' Dim anIndex As Integer
Dim aName As String
Dim aKey As RegistryKey
aName = TextKey.Text
' set the subkey
aKey = m_keyVBNetWeb.OpenSubKey(aName)
If Not aKey Is Nothing AndAlso aName.Trim() <> "" Then
aKey.Close()
m_keyVBNetWeb.DeleteSubKey(aName)
' clear the text boxes
Me.TextKey.Text = Nothing
Me.TextValue.Text = Nothing
' reset the listbox
Call fillSubKeys()
Else
RegisterStartupScript("BadKey", "<script type=""text/javascript"">" & _
"alert('The key you entered does not exist.');</script>")
End If