vb & Registery

[4ng3l]

سلام
ببخشيد من يه سوال داشتم
من كتاي زياد خوندم در رايطه با vb و registery اما خوب هنوز نتوستم با هش كار كنم
ميشه لطفا چند مثال برام بزنيد
مثلا :
1 - ميخوام data value يك entry رو از 0 به 1 تغيير بدم
2 - يك entery در يك key بسازم ( ميخوام برنامم با startup بالا بياد )
اگه ميشه اين دو كد رو برام بنويسين تا من بتونم كار كنم
اگه سوالي داشتم رو در واسي نميكنم ميپرسم
مرسي
رضا

[Iron_Fist]

اين كد رو بررسي كن به جواب دو سوالت ميرسي

کد:

Dim SECATTR As SECURITY_ATTRIBUTES
Dim SUBKEY As String
Dim NEWORUSED As Long
Dim retval As Long
Dim STRINGBUFFER1 As String
Dim STRINGBUFFER2 As String


SUBKEY = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
SECATTR.nLength = Len(SECATTR)
SECATTR.lpSecurityDescriptor = 0
SECATTR.bInheritHandle = 1
retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, SUBKEY, 0, "", 0, KEY_WRITE, SECATTR, hKey, NEWORUSED)
If retval <> 0 Then
Exit Sub
End If
STRINGBUFFER1 = "your program" & vbNullChar
retval = RegSetValueEx(hKey, "your value name", 0, REG_SZ, ByVal STRINGBUFFER1, Len(STRINGBUFFER1))
retval = RegCloseKey(hKey)

اينم بار و بنديل

کد:

Public Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const KEY_WRITE = &H20006
Public Const REG_SZ = 1
Public Const KEY_ALL_ACCESS = &HF003F
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Const KEY_READ = &H20019

[4ng3l]

سلام
ميشه توضيحات همينو بهم بدي
من يه چيزياي فهميدم اما كامل نه ..... ! ! !
منتظرم
فقط تو رو خدا سريع

[Soheilvb]

برو تو وبلاك من آموزش كامل همراه با مثال نوشتم هر چي در مورد رجيستري با وي بي بخواي هست.
visualbasic.mihanblog.com
بای

[4ng3l]

:x
از بچگي بهم مبگن كند ذهنم اما من باورم نميشه
آقا شما بيايد يك برنامه رو مه من ميگم رو بنوسيسد و كدش رو همينجا بزاريد تا من بررسيش كنم
برنامه :
بياد مقدار كليد CheckedValue زو از آدررس :
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL

از 1 به 0 تغيير بده
همين
مرسي
رضا

[Soheilvb]

اين كد را در وي بي پيست كن و وقتي اجرا كني اون مقدار يك مي شه
Private Const REG_SZ As Long = 1
Private Const REG_DWORD As Long = 4
Private Const REG_BINARY = 3 ' Free form binary
Private Const REG_EXPAND_SZ = 2 ' Unicode nul terminated string

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hkey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Private Const KEY_ALL_ACCESS = &H3F

Private Sub Form_Load()
Dim hkey As Long
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL", ByVal 0&, KEY_ALL_ACCESS, hkey
RegSetValueExLong hkey, "CheckedValue", ByVal 0&, REG_DWORD, 1, 4
RegCloseKey hkey
End Sub
:wink:

[shamsoft]

آقا رضا این برنامه رو دانلود کنید تا جواب سوالتون رو بگیرید.
این برنامه قابلیت ادیت کردن هر سه نوع کلید در رجیستری رو داره.
http://www.h-shams.persiangig.com/source/RegString.zip

[محمد حسینی]

خوب از این ماژول هایی که برای کار با رجیستری نوشته شده استفاده کن. ( فراوونه!)

[Iron_Fist]

جناب 4ng3l کسایی که این حرف رو میزنند جز ضرر برای ادم فایده ای ندارند
اگر هم کسی ضریب هوش اش پایین باشد که شما 100% اینگونه نیستید
با تلاش بیشتر ضعف خود را جبران می کند و يا در مواردی دیگری استعداد خود را نشان
می دهد
حالا بریم سر اصل مطلب
نکته : اگر دستور را روي يك مقداري كه از قبل وجود داشته انجام بدي مقدار جديد بجاي ان قرار مي گيرد
من کدی که خواستی رو دقیقآ برات نوشتم حالا هر جاش رو که مشکل داری
بگو برات کامل توضیح بدم

کد:

Private Type SECURITY_ATTRIBUTES
        nLength As Long
        lpSecurityDescriptor As Long
        bInheritHandle As Long
End Type
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const KEY_WRITE = &H20006
Private Const REG_SZ = 1
Private Const KEY_ALL_ACCESS = &HF003F
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4
Private Const KEY_READ = &H20019

اينم خود تيكه برنامه

کد:

Dim SECATTR As SECURITY_ATTRIBUTES
Dim SUBKEY As String
Dim NEWORUSED As Long
Dim retval As Long
Dim STRINGBUFFER1 As String
Dim STRINGBUFFER2 As String


SUBKEY = "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL"
SECATTR.nLength = Len(SECATTR)
SECATTR.lpSecurityDescriptor = 0
SECATTR.bInheritHandle = 1
retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, SUBKEY, 0, "", 0, KEY_WRITE, SECATTR, hKey, NEWORUSED)
If retval <> 0 Then
Exit Sub
End If
STRINGBUFFER1 = &H0
retval = RegSetValueEx(hKey, "CheckedValue", 0, REG_BINARY, ByVal STRINGBUFFER1, Len(STRINGBUFFER1))
retval = RegCloseKey(hKey)

[محمد حسینی]

خیلی خوبه افراد با حوصله ای مثل شما تو سایت هستن. آقای iron_fist منتظر سوالای سخت من باش :wink:

[Iron_Fist]

نكرتم
اگه از دستم بر بياد رو چشم