PDA

View Full Version : تغییر رجیستری



el_abdollahi
چهارشنبه 19 دی 1386, 14:50 عصر
با سلام
من توی پروژه ام برای نمایش نمودار از کنترل tchart استفاده کرده ام :

<tchart:webchart id="WebChart1" style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 8px" runat="server"
Font-Names="Tahoma" Width="936px" TempChart="File" AutoPostback="False" Height="496px" Config="AAEAAAD/////AQAAAAAAAAAMAgAAAFFUZWVDaGFydCwgVmVyc2lvbj0xLjAuMT E5Ny4xMDY1LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRv a2VuPTljODEyNjI3NmM3N2JkYjcMAwAAAFFTeXN0ZW0uRHJhd2 luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWws IFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAAB VTdGVlbWEuVGVlQ2hhcnQuQ2hhcnQjAAAAEy5ab29tLkFuaW1h dGVkU3RlcHMPLlpvb20uTWluUGl4ZWxzCFNlcmllcy4wEC5TZX JpZXMuMC5MYWJlbHMVLlNlcmllcy4wLkJydXNoLkNvbG9yFy5T ZXJpZXMuMC5YVmFsdWVzLlZhbHVlFy5TZXJpZXMuMC5YVmFsdW VzLkNvdW50FS5TZXJpZXMuMC5NYXJrcy5BbmdsZRsuU2VyaWVz LjAuTWFya3MuQXJyb3dMZW5ndGgZLlNlcmllcy4wLk1hcmtzLk ZvbnQuU2l6ZRUuU2VyaWVzLjAuTWFya3MuU3R5bGUXLlNlcmll cy4wLllWYWx1ZXMuVmFsdWUXLlNlcmllcy4wLllWYWx1ZXMuQ2 91bnQQLlNlcmllcy4wLkNvbG9ycxsuQXhlcy5MZWZ0LkxhYmVs cy5Gb250LlNpemUWLkF4ZXMuTGVmdC5UaXRsZS5MaW5lcxouQX hlcy5MZWZ0LlRpdGxlLkZvbnQuQm9sZBouQXhlcy5MZWZ0LlRp dGxlLkZvbnQuU2l6ZSguQXhlcy5MZWZ0LlRpdGxlLkZvbnQuU2 hhZG93LkJydXNoLkNvbG9yIS5BeGVzLkxlZnQuVGl0bGUuRm9u dC5CcnVzaC5Db2xvchkuQXhlcy5Cb3R0b20uTGFiZWxzLkFuZ2 xlGC5BeGVzLkJvdHRvbS5UaXRsZS5BbmdsZQYuV2lkdGgHLkhl aWdodBEuTGVnZW5kLkFsaWdubWVudBIuTGVnZW5kLlZlcnRNYX JnaW4TLkxlZ2VuZC5MZWdlbmRTdHlsZREuTGVnZW5kLkZvbnQu U2l6ZQdUb29scy4wFC5Ub29scy4wLlNoYXBlLkxpbmVzHS5Ub2 9scy4wLlNoYXBlLlNoYWRvdy5WaXNpYmxlEi5QYW5lbC5QZW4u VmlzaWJsZQ0uSGVhZGVyLkxpbmVzES5IZWFkZXIuRm9udC5Cb2 xkES5IZWFkZXIuRm9udC5TaXplAAABBQQHAAAAAAQHAAUABgAA BAQAAAAABAAEAAEGAAAGAAAICBRTeXN0ZW0uRHJhd2luZy5Db2 xvcgMAAAAGCAYICCJTdGVlbWEuVGVlQ2hhcnQuU3R5bGVzLk1h cmtzU3R5bGVzAgAAAAYICAEIFFN5c3RlbS5EcmF3aW5nLkNvbG 9yAwAAABRTeXN0ZW0uRHJhd2luZy5Db2xvcgMAAAAICAgIIFN0 ZWVtYS5UZWVDaGFydC5MZWdlbmRBbGlnbm1lbnRzAgAAAAgcU3 RlZW1hLlRlZUNoYXJ0LkxlZ2VuZFN0eWxlcwIAAAAIAQEBCAIA AAAKAAAAIgAAAAYEAAAAGlN0ZWVtYS5UZWVDaGFydC5TdHlsZX MuQmFyCQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2YWx1ZQp rbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAD//gAAAAAAAAIACQcAAAAGAAAAAAAAAACAVkAiAAAACQAAAAX4////IlN0ZWVtYS5UZWVDaGFydC5TdHlsZXMuTWFya3NTdHlsZXMBAA AAB3ZhbHVlX18ACAIAAAAAAAAACQkAAAAGAAAACQoAAAAJAAAA CQsAAAABCwAAAAH0////+v///wr//wD+AAAAAAAAAgAB8/////r///8K/wAA/gAAAAAAAAIAWgAAAAUAAACoAwAA8AEAAAXy////IFN0ZWVtYS5UZWVDaGFydC5MZWdlbmRBbGlnbm1lbnRzAQAAAA d2YWx1ZV9fAAgCAAAAAwAAAAIAAAAF8f///xxTdGVlbWEuVGVlQ2hhcnQuTGVnZW5kU3R5bGVzAQAAAAd2YWx 1ZV9fAAgCAAAAAQAAAAkAAAAGEAAAACBTdGVlbWEuVGVlQ2hhc nQuVG9vbHMuUGFnZU51bWJlcgkRAAAAAQEJEgAAAAELAAAAEAU AAAAGAAAABhMAAAAACRMAAAAJEwAAAAkTAAAACRMAAAAJEwAAA A8HAAAAZQAAAAYAAAAAAAAAAAAAAAAAAPA/AAAAAAAAAEAAAAAAAAAIQAAAAAAAABBAAAAAAAAAFEAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAADwkAAABlAAAABgAAAAAAEIVAAAAAAADIg0AAAAAAACCC QAAAAAAAmIFAAAAAAABggUAAAAAAAMB8QAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQCg AAAAYAAAAJFAAAAAkVAAAACRYAAAAJFwAAAAkYAAAACRkAAAAR CwAAAAEAAAAGGgAAAArYqti52K/Yp9ivEREAAAABAAAABhsAAAAPUGFnZSB7MH0gb2YgezF9ERIAA AABAAAABhwAAAAx2YbZhdmI2K/Yp9ixINiq2LnYr9in2K8g2YPYp9mE2KfZh9in2Yog2YXZiNis2 YjYrwEUAAAA+v///woAAAAAAAAAAAAAAAABFQAAAPr///8KAAAAAAAAAAAAAAAAARYAAAD6////CgAAAAAAAAAAAAAAAAEXAAAA+v///woAAAAAAAAAAAAAAAABGAAAAPr///8KAAAAAAAAAAAAAAAAARkAAAD6////CgAAAAAAAAAAAAAAAAs=" Visible="False"></tchart:webchart>
اما این کنترل روی بعضی از کامپیوترها درست کار میکنه و روی بعضی دیگر expire میشه . برا یهمین خواستم تا روی سرور نصبش کنم . برای این کار باید رجیستری رو تغییر میدادم :

Dim RK As Microsoft.Win32.RegistryKey
RK = Microsoft.Win32.Registry.ClassesRoot.CreateSubKey("CLSID\\{C6DF6000-E9E9-43CB-8B84-069179FAE373}\\TypeLib")
Dim v As String
v = RK.GetValue("").ToString()
Dim Today As DateTime = DateTime.Now
Dim NewDate As String = CInt(Today.ToOADate()).ToString()
Dim NewValue As String = v.Substring(0, 3) + NewDate.Substring(1, 2) + v.Substring(5, 7) + NewDate.Chars(3) + v.Substring(13, 7) + NewDate.Chars(4) + v.Substring(21, 13) + NewDate.Chars(0) + v.Substring(35, 3)
RK.SetValue("", NewValue)
حالا این کد هم روی بعضی خوب کار میکنه و روی بعضی دیگر خطای Access Denied میده .
نمیدونم چه کار کنم . کمک کنید .