السلام عليكم
أريد اضيف القيمة التالية إلى الريجستري
وهي
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] "Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5B,E0,00,00,5C,E0,00,00,00,00
لكني ماعرفت
وطبعا هذا مضاد الكود السابق
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] "Scancode Map"=-
فمن يساعدني بإضافة قيمة HEX عبر الدوت نت
تحياتي
شباب حطيت الكود التالي
عطاني ايرور
Imports Microsoft.Win32
Public Class WinKey
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Registry.SetValue("[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout", "Scancode Map", "hex:00,00,00,00,00,00,00,00,03,00,00,00,00,00,5B,E0,00,00,5C,E0,00,00,00,00")
End Sub
End Classعطاني ايرور
من يقدر يصححه لي جزاه خير
منتظر ردكم
تم تعديل هذه المشاركة بواسطة qaher في 18 يناير 2008 في 01:04
السلام عليكم و رحمة الله و بركاته
اخي الكريم .. اولا القيم الست عشرية هي قيم Binary في الاخير و بالتالي يمكن اضافتها عن طريق الامر SetValue باستخدام البارميتر Microsoft.Win32.RegistryValueKind.Binary اي انك اذا اردت ان تضيف قيم Hexadecimal قم باضافتها على انها قيم Binary و الشي الثاني الذي ينبغي الاحاطة به هو انه ينبغي تحويل السلسلة النصية "00,01,EC,0A" مثلا الى مصفوفة من البايتات Bytes وذلك بأي طريقة تريد مثلا يمكن استخدام دالة بسيطة كالتالي:
Function GetHexArray(ByVal HexadecimalString As String) As Byte()
Dim Values As String() = Split(HexadecimalString, ",")
Try
If Values.Length Then
Dim Data(Values.Length - 1) As Byte
For I As Integer = 0 To Values.Length - 1
Data(I) = Val("&h" & Values(I))
Next
Return Data
End If
Catch ex As Exception
Return Nothing
End Try
End Functionاي انه لتحويل قيمة من نص هكسديسمال الى بايتات قم بالتالي :
Dim Values() As Byte = GetHexValues("00,01,EC,0A")اخيرا اقول اذا اردت ان تضيف القيمة التي ذكرتها ساتخدم شيئاء مشابه لـ:
Dim Data() As Byte = GetHexArray("00,00,00,00,00,00,00,00,03,00,00,00,00,00,5B,E0,00,00,5C,E0,00,00,00,00")
My.Computer.Registry.LocalMachine.CreateSubKey("SYSTEM\CurrentControlSet\Control\Keyboard Layout").SetValue("Scancode Map", Data, Microsoft.Win32.RegistryValueKind.Binary)الله يوفقك سبحانه
السلام عليكم
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
سلمت يارغيد الطيب
بارك الله فيك وجزاك الله خير
على فكرة أنا نازل اليمن خلال شهر
ان شاء الله نتقابل هناك
رح ارسل لك بياناتي بالبريد الخاص
طيب أخوي رغيد ماقلتلي كيف اضيف القيمة التالية
للريجستر
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout] "Scancode Map"=-
ولدي سؤال وهو:
ان الكود اشتغل 100% مع الويندوز XP وقام بأداء الوظيفة اللي أنا طالبها
لكن لما نفذت الكود على ويندوز فيستا يعطيني ايرور access deniad
فما الحل؟؟؟
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…