من اول کد رو به صورت کلي مينويسم بعد يکي يکي توضيح ميدم و يه مثال با سورس کد ميزنم
شکل کلي :
کد:
Dim Keyhand As Long
Dim REG As Long
REG = RegCreateKey([Byval HKEY As Long ], [ByVal IPSubKey As String], [phkResult As Long])
REG = RegSetValueEx([Byval HKEY As Long ], [ByVal IpValueName As String], [ByVal Reserved As Long], [ByVal dwType As long], [IpData As any], [ByVal cbData as Long])
REG = RegCloseKey([Byval HKEY As Long ])
مثال : اين کد رو توي تايمر قرار بدين و اينتروال تايمر رو 1 بذارين:
کد:
Dim keyhand As Long
Dim REG As Long
REG = RegCreateKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", keyhand)
REG= RegSetValueEx(keyhand, "DisableRegistryTools", 0, REG_DWORD, 1, 4)
REG = RegCloseKey(keyhand)
بعد از فرمان RegCreateKey داخل پرانتز ما آدرس HKEY رجيستري رو
ميديم و بعد از آن که علامت (,) رو گذاشتيم ، آدرس رجيستري براي ساختن KEY
رو تايپ ميکنيم اين قسمت در شکل کلي به صورت ByVal IPSubKey As String
ناميده ميشود (مطابق ابتداي همين پست )
بعد دادن آدرس نوبت ساختن KEY ميشود که ما از يک متغير مانند هندل استفاده
ميکنيم که من اسم اونو Keyhand گذاشتم ، اين متغير بايد از نوع Long باشه
RegSetValueEx : در اين مرحله متغير از نوع يه آدرس کامل هست يعني در واقع اين متغير برابر با آدرس و يه Key فرضي هست مثل :
کد:
HKEY_CURRENT_USER \ SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System => Key
حالا نوع KEY و مقدار اونو داخل پرانتز بعد دستور RegSetValueEx بعد از Keyhand مشخص ميکنيم :
بعد از Keyhand ما نام اون KEY رو که ميخوايم بسازيم رو ميذاريم که من در
مثال بالا DisableRegistryTools رو گذاشتم که براي بستن و باز کردن رجيستري
کاربرد داره
حالا بعد نام گذاري عدد 0 رو براي reserve يا همون ذخيره کردن استفاده مي کنيم
بعد از عدد 0 ما نوع KEY رو مشخص ميکينيم که شکل کلي اون [ByVal dwType As
long] هست و ما طبق تعريفي که در ماژول براي DWORD کرده بوديم اونو
REG_DWORD قرار ميديم
بعد از REG_DWORD ما بايد اطلاعاتي که ميخوايم توي DWORD قرار بديم رو
ميذاريم اگه دراين مثالي که من زدن عدد 1 باشه رجيستري بسته و اگه 0 باشه
رجيستري باز ميشه
بعد از اون هم عدد مشخص شده براي REG_DWORD در ماژول تعيين کرديم که همون عدد 4 هست رو قرار ميديم
البته شرمنده يه خورده سربسته توضيح دادم ، شما به بزرگي خودتون ببخشين ، چون کار کردن باهاش آسونه ولي توضيح دادن سختره
يه سورس گذاشتم براي بستن رجيستري و تسک منيجر ; حالا ايشاالله رفته رفته مطالب رو پيشرفته تر ميکنم
Source.rar (46.1 کیلو بایت, 252 نمایش)
رمز فایل: www.downloadha.com
لینک دانلود – 4.77 مگابایت | لینک کمکی
*داریم با حسین حسین پیر می شویم *