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

ببينم كدوم قسمت اين پس سندر رو خودت نوشتي. تو كه همش داري به من ميگي اينجاشو بنويس بقيشو خودم ميفهمم. پس كي ميخواي بفهمي. ميخواي برنامه رو بنويسم بذارم اينجا برات.
من راهنمايي هاي لازم رو كردم. حتي بيشتر از حد لازم كه هر كسي ميفهمه. يه زحمتي هم به خودت بده و كمي تلاش كن. اگه همه قسمت هارو من آماده بذارم در اختيارت چيزي ياد نميگيري. سعي خودتو بكن اگه به مشكل برخوردي من در خدمتم.

بابا مرد مومن من كار با ريجستري بلد نيستم يا مثلا مي تونم با ريجستري يه كاري كنم كه پسو سيو نكنه من گفتم اون كدا بنويسكه كار با ريجستري ياد بگيرم يا يه مثال زده باش و گر نه من يه كاري كردم كه پس سندر يه پرت ياز كنه كه بهش وصل شيم (البته فقط همين كارو كردم :biggrin: )
من در كل خيلي دوست دارم كار با ريجستري رو ياد بگيرم هر چي گفتين نوشتم ولي باز ارور داد مثلا تو مقاله نوشته بود اين كدا رو بنويس يه test ميسازه اما باز ارور ميده
Const boxmode = vbMsgBoxRtlReading + vbMsgBoxRight
Dim lngreturn As Long
Dim phkresult As Long

Dim lpClass1 As Class1
Dim lpclass As String
ingReturn = RegCreateKeyEx(HKEY_CURRENT_USER, "TEST", 0&, _
lpclass, REG_OPTION_VOLATILE, KEY_ALL_ACCESS, _
lpsecurityattributes, phkresult, 0&)
If lngreturn <> ERROR_SUCCESS Then
gAPIDisplayError lngreturn
Exit Sub
Else
MsgBox "IVAL", boxmode, "1"

گفتي يه مثال در مورد سرچ كردن بزن. كدشو كامل برات گذاشتم. من تو كدي كه گذاشته بودم از regOpenKeyExa هم استفاده كرده بودم و شما خيلي راحت ميتونستي حداقل كار كردن با اين تابع رو ياد بگيري. ولي شما اومدي نوشتي
Text1 = RegOpenKeyExA("HKEY_CURRENT_CONFIG\Softwar\Fonts\F ONTS.FON")
خوب اين يعني يه نگاه ساده هم به كد من ننداختي و فقط كپي كرديش تو فرمت.
راستي منظورت از اينكه پورت باز كردي كه بهش وصل شيم چيه. مگه ميخواي تروجان Server Client بنويسي. پس سندر كه ديگه نياز به وصل شدن نداره. فقط بايد برنامه اي بنويسي كه اطلاعاتو برات ميل كنه.

اول اينكه مي خوام چيزي كه ميسازسم تمام امكاناتو داشتو باشه بابا هرچي كد مي نويسم ارور مي ده به خدا (ديروز5 ساعت ور رفتم اما نتيجه نگرفتم)

يه سوال؟اول بايد حتما regopenkeyexA بازش كنم تا بشه تغييرات تو ريجستري انجام داد.(من انقدر با كدات ور رفتم تا بلخره يه كاري با ريجستري كنم به خدا خسته شدم)
ولي بازم دستت درد نكنه كه كمكم كردي منم جبران مي كنم(اگه ريجستري ياد گرفتم يه مقاله بهت مي دم با نام ساخت تروجان در وي بي كه حيلي خيلي توپه فارسيم هست ولي بديش اينه كه پس سندر نيست)

نقل قول:

---

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

اول اينكه مي خوام چيزي كه ميسازسم تمام امكاناتو داشتو باشه

---

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

نقل قول:

---

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

يه سوال؟اول بايد حتما regopenkeyexA بازش كنم تا بشه تغييرات تو ريجستري انجام داد.

---

بايد يه هندل از كليدي كه ميخواي روش كار كني داشته باشي. حالا اگه كليدو خودت با RegCreateKeyExA ساخته باشي پارامتر يكي مونده به آخر اين تابع يعني phkResult هندل اون كليديه كه ساختي و ميتوني روش كار كني. اگرم كليدو خودت نساخته باشي بايد با regOpenKeyExa بازش كني تا يه هندل ازش به دست بياري و بتوني روش كار كني. پارامتر آخر در اين تابع يعني phkResult هندل كليديه كه بازش كردي.
اين كد كليد HKEY_CURRENT_USER\Software\yahoo\Pager رو برات باز ميكنه و hKey هندل اين كليده كه ميتوني ازش تو توابع ديگت براي اعمال تغييرات استفاده كني.

کد:

---

RegOpenKeyExA HKEY_CURRENT_USER, "Software\yahoo\Pager", 0, KEY_ALL_ACCESS, hKey

---

مثلا اين كد تو اون مسير يه Value به اسم Test و با مقدار Payman ايجاد ميكنه و مقدار Valueي Yahoo! User ID رو به Vorojax تغيير ميده.

کد:

---

Option Explicit
Private Const READ_CONTROL = &H20000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
Private Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
Private 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

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

Private Const REG_SZ = 1
Private Const REG_EXPANDSZ = 2
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4

Private Declare Function RegOpenKeyExA Lib "advapi32" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueExA Lib "advapi32" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Private Sub Command1_Click()
Dim hKey As Long, lpcbData As Long
Dim lpData As String
    RegOpenKeyExA HKEY_CURRENT_USER, "Software\yahoo\Pager", 0, KEY_ALL_ACCESS, hKey
    lpData = "Payman"
    lpcbData = Len(lpData)
    RegSetValueExA hKey, "Test", 0, REG_SZ, lpData, lpcbData
    lpData = "Vorojax"
    lpcbData = Len(lpData)
    RegSetValueExA hKey, "Yahoo! User ID", 0, REG_SZ, lpData, lpcbData
    RegCloseKey hKey
End Sub

---

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

نقل قول:

---

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

بابا هرچي كد مي نويسم ارور مي ده به خدا (ديروز5 ساعت ور رفتم اما نتيجه نگرفتم)
(من انقدر با كدات ور رفتم تا بلخره يه كاري با ريجستري كنم به خدا خسته شدم)

---

من با مراجعه به MSDN و نوشتن برنامه هاي آزمايشي كار با رجيستري رو ياد گرفتم. كسي يادم نداد. پس فكر نكن پيچيدست. خيلي ساده تر از اونيه كه فكرِشو ميكني و خيلي راحت ميتوني ياد بگيري. فقط اصولي كار كن. ببين تو اون فايل هاي PDF چه توضيحاتي داده و من تو كدهايي كه گذاشتم از چه روشي استفاده كردم تا ياد بگيري. همين جور شانسي نيا و RegOpenKeyExA رو برابر تكس باكس قرار نده.

نقل قول:

---

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

ولي بازم دستت درد نكنه كه كمكم كردي منم جبران مي كنم(اگه ريجستري ياد گرفتم يه مقاله بهت مي دم با نام ساخت تروجان در وي بي كه حيلي خيلي توپه فارسيم هست ولي بديش اينه كه پس سندر نيست)

---

خواهش ميكنم ولي من تا به حال بدون هيچ چشم داشتو انتظاري اطلاعاتم رو در اختيارت گذاشتم. از اين به بعد هم همين طوره. ولي شما چرا براي ياد دادن شرط ميذاري.

عزيزم شرط چيه تو جون بخاه (اخه ديدم قاطي كردي گفتم شايد ديگه ياد ندي البته شرمنده نبايد چنين فكري مي كردم)
مقاله رو فردا اپ مي كنم لينكشم به صورت خصوصي برات مي فرستم چون فكر نكم صاحب اون مقاله دوست داشته باشه مقالشو واسه همه بزارم.
(امروز نميتونم واست بزارم چون الان بايد برم از كمكاتم يه دنيا ممنون)

برات لينكشو فرستادم از بابت كداتم ممنومن. تو زبانت خيلي قويه كه تونستي اينارو با msdn ياد بگيري اره؟؟

دستت درد نكنه. اين مقاله بيشتر به توضيح Winsock پرداخته تا فوت و فن تروجان نويسي. يه مقاله مشابه همين مقاله دارم با نام winsock and vb.

اگه از مقاله واسه من بهتره برامون بزار دمت گرم.

مثله همونه . اينجا هم كه نميشه فايل آپلود كرد.