حتما شما هم تا حالا اسم رجیستری به گوشتون خورده و باهاش آشنایی دارید.
رجیستری ویندوز رو میشه از طریق برنامه ی regedit درش تغییراتی به وجود آورد.
همچنین یکسری توابع api نیز ویندوز داره که به وسیله ی اونا میتونین از داخل برنامه ی خودتون رجیستری رو تغییر بدید.
حالا یک پروژه ی جدید باز کنید چون میخوایم در غالب یک پروژه قسمت عمده ی این توابع رو یادبگیریم(بگیرید چون من که بلدم (: )
خب خیلی طبیعیه که برای کار کردن با یک رشته یا عدد از یک فایل دیگه اول اون رو باز کنیم.
برای این کار تابعی به نام RegOpenKeyEx وجود داره به شکل زیر
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
اگر برنامه ی regedit رو باز کنید میبینید که وقتی اولین شاخه یعنی شاخه ی MyComputer رو باز میکنید پنج فولدر مشاهده میکنید.(از این به بعد به این فولدر ها میگیم key یا "کی" که به فارسی یعنی کلید.پس میگیم کلید ،فولدر تو رجیستری=کلید)
خب اگر در APIViewer خود در لیست ثابت ها(constants) نگاه کنید میبینید هشت کلید با نام کلید های ذکر شده وجود دارد که با سه تا از اونا کاری نداریم.
بقیه یه اونها به شرح زیر
Public Const HKEY_CLASSES_ROOT As Long = &H80000000
Public Const HKEY_CURRENT_CONFIG As Long = &H80000005
Public Const HKEY_CURRENT_USER As Long = &H80000001
Public Const HKEY_LOCAL_MACHINE As Long = &H80000002
Public Const HKEY_USERS As Long = &H80000003
قبل از اینکه سراغ کد نویسی برم این رو هم بگم که اگر مقدار برگشتی هرکدوم از توابع API مربوت به رجیستری مقدار 0 رو برگردونن یعنی تابع کارش رو با موفقیت به انجام رسونده و در غیر این صورت یعنی خطایی رخ داده.
خب بریم که یک کلید رو باز کنیم.
دونه دونه مقادیری رو که برای regopenkeyex نیاز دارید در پایین توزیح میدم
hKey=یکی از همون پنج ثابت
lpSubKey=نام کلیدی که میخواهیم اون رو باز کنیم
ulOptions=فقت یک صفر بزارید
samDesired=یک پوشش امنیتی که یه چندتا ثابت میخواد به شرح زیر.
Public Const KEY_ALL_ACCESS As Long = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Public Const STANDARD_RIGHTS_ALL As Long = &H1F0000
Public Const KEY_QUERY_VALUE As Long = &H1
Public Const KEY_SET_VALUE As Long = &H2
Public Const KEY_CREATE_SUB_KEY As Long = &H4
Public Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Public Const KEY_NOTIFY As Long = &H10
Public Const KEY_CREATE_LINK As Long = &H20
Public Const SYNCHRONIZE As Long = &H100000
شما فقت KEY_ALL_ACCESS رو مینیویسید ولی ثابت های دیگر رو هم باید توی ماژول یا جای دیگه نوشته باشید.
و اگر نگاه کنید تمامی ثوابت توی خود KEY_ALL_ACCESS هستند پس فقت کافیه KEY_ALL_ACCESS رو حفظ کنید.
و اینکی KEY_ALL_ACCESS باید بعد از ثوابط دیگر تعریف شود
phkResult=هندل کلیدی رو که باز کردیم بر میگرداند.
حالا برید تو رویداد Form1_Load و کد زیر رو بنویسید
Private Sub Form_Load()
Dim RetVal As Long
Dim SubKey As String
Dim KeyHandle As Long
SubKey = "console"
RetVal = RegOpenKeyEx(HKEY_CURRENT_USER, SubKey, 0, KEY_ALL_ACCESS, KeyHandle)
If Not RetVal = 0 Then
MsgBox "error in openning"
End
Else
MsgBox "openning succeded"
End
End If
End Sub
برنامه اول سأی میکنه که کلید console که در Hkey_Current_User هست رو باز کنه و اگه موفق شد هندل اون رو در متغیر KeyHandle قرار میده . ولی اگه با خطا مواجه شد اول میگه که در بازکردن مشکل به وجود آمده و بعد برنامه رو میبنده.
اگر هم که با خطا مواجه نشد میگه که باز شدن با موفقیت انجام شد و بعد برنامه رو میبنده.
نکته:وقتی که یک کلید رجیستری رو باز میکنید یه مقداری رم رو به خودش اختصاص میده به همین علت وقتی یک کلید رجیستری باز شد و خوانده شد یا تغییراتی درش به وجود آمد بای سریع بسته شه که رم رو آزاد کنه .بستن یک کلید رجیستری به وسیله ی یک API یه دیگه انجام میشه ولی چون هنوز اون رو نخوندیم برنامه رو میبندیم و باز هم رم به این ترتیب آزاد میشه.
خب حالا میخوایم یک مقدار(value) رو بخونیم.مقادیر رو در قسمت سمت راست برنامه ی regedit مشاهده میکنید که متنها و عدد ها در انها ذخیره میشوند.
برای خواندن یک مقدار از تابع RegQueryValueEx استفاده میکنیم به شکل زیر.
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByRef lpData As Any, ByRef lpcbData As Long) As Long
خب حالا به به شرح آرگومان هاش میپردازیم
hKey=هندل کلید باز شده به وسیله ی RegOpenKeyEx
lpValueName=نام مقداری(value)ای که میخواهیم اونو باز کنیم
lpReserved=صفر
lpType=تایپ مقداری که میخواهیم باز کنیم که یه چندتا ثابت با پیشوند REG داره
Public Const REG_BINARY As Long = 3
Public Const REG_DWORD As Long = 4
Public Const REG_SZ As Long = 1
البته تایپ های دیگری هم وجود داره ولی اینا مهمترین هان
REG_SZ=مقادیر رشته ای
REG_BINARY=مقادیر دودویی
REG_DWORD=مقادیر Hex یا decimal
بقیه یه آرگومان
lpData=متغیری که مقدار برگشتی به آن فرستاده میشود
lpcbData=طول مقدار برگشتی
خب دو آرگومان آخر یکم توضیح میخوان
برای بدست آوردن مقدار دو راه وجود دارد که من به این روش عمل میکنم
اول دو متغیر از نوع استرینگ(string) تعریف میکنیم
حد اکثر طول یکی از آنها رو مساوی با 255 قرار میدیم به شکل زیر
Dim Buff As String *255
Dim RegValue as String
بعد برای lpData متغیر اولی رو مینویسیم
برای lpcbData هم حد اکثر طول متغیر اولی رو مینویسیم
گیج نشید الان مثال میزنم متوجه میشید.
Private Sub Form_Load()
Dim RetVal As Long
Dim Buff As String * 255, Fn As String
RetVal = RegQueryValueEx(KeyHandle, ValueName, 0, REG_SZ, ByVal Buff, 255)
If RetVal = 0 Then
Fn = Left(Buff, 255)
Else
MsgBox "error in reading", vbCritical, "error"
End
End If
End Sub
بعد با دستور RegCloseKey باید کلید بسته بشه
بستن کلید خیلی سادس.فقط هندل کلیدی رو که باز کردین بهش بدین
