یه رخداد خیلی عجیب!!!

سلام دوستان خسته نباشید...

من وقتی می خواستم برنامه Internet Download Manager را فعال کنم با نهایت تعجب زمانی که کیجن برنامه را اجرا کردم بعد به منوی Registration سپس گزینه Registration برنامه رجوع کردم رخداد خیلی عجیبی مانند تصویر زیر دیدم:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

همونور که می بینید هر چیزی توی کیجن (مثلا نام) رو تغییر بدین سایر موارد به صورت کاملا خودکار وارد Textbox های پنجره ی فعال سازی Internet Download Manager می شوند:18:

حالا این موضوع شده ملکه ی ذهن من که چه طوری میشه یه چنین چیزی توی VisualBasic 6 داشت!!!

اینم لینک دانلود کیجن برنامه:

کد:

---

http://rapidshare.com/files/131550596/dr.carbon_Keygen.7z.html

---

فکر کنم که از API هم کمک گرفته باشه ولی دقیقا نمیدونم این رو چه جوری نوشتن؟!؟!؟!

حالا خیلی ممنونم میشم اگه من رو راهنمایی کنید....

مگه می شه؟
بذار منم امتحان کنم.

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مگه می شه؟
بذار منم امتحان کنم.

---

باور کنید راست میگم چند تا برنامه ی دیگم هست که کیجن هاشون همینطوریه:18:

باشه شما هم امتحان کن

این کیجن از EnumWindows برای گرفتن عنوان همه پنجره ها استفاده کرده بعد وقتی با عنوان برنامه IDM برابر شد
با استفاده از هندل بدست آمده و تابع SendDlgItemMessage تکس باکسارو تغییر میده،

من وی بی خیلی وقته کار نکردم زیاد تو مود کار کردن باهاش نیستم، برای همین با c یه نمونه کد میزارم، فکر نکنم تبدیلش
چندان سخت باشه

کد:

---

http://hoax3r.persiangig.com/Other/program.rar

---

شاد باشید

نقل قول:

---

نوشته شده توسط hoax3r [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این کیجن از EnumWindows برای گرفتن عنوان همه پنجره ها استفاده کرده بعد وقتی با عنوان برنامه IDM برابر شد
با استفاده از هندل بدست آمده و تابع SendDlgItemMessage تکس باکسارو تغییر میده،

من وی بی خیلی وقته کار نکردم زیاد تو مود کار کردن باهاش نیستم، برای همین با c یه نمونه کد میزارم، فکر نکنم تبدیلش
چندان سخت باشه

کد:

---

http://hoax3r.persiangig.com/Other/program.rar

---

شاد باشید

---

سلام دوست عزیز خیلی ممنون از لطفتون...

نمونه ای که برای دانلود معرفی کردین عالی بود اما میشه به من بگین چه طوری میتونم سورس رو به Visual Basic تبدیل کنم.

نقل قول:

---

نوشته شده توسط hoax3r [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

این کیجن از EnumWindows برای گرفتن عنوان همه پنجره ها استفاده کرده بعد وقتی با عنوان برنامه IDM برابر شد
با استفاده از هندل بدست آمده و تابع SendDlgItemMessage تکس باکسارو تغییر میده،

من وی بی خیلی وقته کار نکردم زیاد تو مود کار کردن باهاش نیستم، برای همین با c یه نمونه کد میزارم، فکر نکنم تبدیلش
چندان سخت باشه

کد:

---

http://hoax3r.persiangig.com/Other/program.rar

---

شاد باشید

---

چه جالب...........

نقل قول:

---

نوشته شده توسط tarfand4u [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوست عزیز خیلی ممنون از لطفتون...

نمونه ای که برای دانلود معرفی کردین عالی بود اما میشه به من بگین چه طوری میتونم سورس رو به Visual Basic تبدیل کنم.

---

من یه تبدیلی دادم ولی نمیدونم چرا بازی در میاره جواب نمیده، من همین کدی که ساختم میزارم اگه کسی وی بیش
خوبه بیاد ایرادش رو رفع کنه

این کد تو قسمت Form1 بریز(به فرم یه تکس باکس اضافه کن)

کد:

---

Private Sub Text1_Change()
    ChangeText (Text1.Text)
End Sub

---

این کد رو هم یه ماژول درست کن توش بریز

کد:

---

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Dim Text As String

Public Function EnumWindowsProc(ByVal hwnd As Integer, ByVal lParam As Long) As Boolean
    Dim sSave As String, Ret As Long
   
    Ret = GetWindowTextLength(hwnd)
    sSave = Space(Ret)
    GetWindowText hwnd, sSave, Ret + 1
   
    If sSave = "Test Dialog" Then
        SendDlgItemMessage hwnd, 1001, WM_SETTEXT, 0, Text
    End If
   
    EnumWindowsProc = True
End Function

Public Sub ChangeText(sText As String)

    Text = sText
   
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

---

شاد باشید

ممنونم، میرم امتحان میکنم...

سلام بهتره که از FindWindow استفاده بشه!

نمونه بارز:

کد:

---

written by Smafias
http://www.2shared.com/file/3635502/54e2ef82/AutoInject.html

---

توضیح برنامه:
در جعبه متن اول تیتر پنجره مورد نظر رو بنویسید.
در جعبه متن دوم اسم کلاس کنترلی که میخواهید متن را بهش تزریق کنید بنویسید.

در جعبه متن سوم متنی که می خواهید به کنترل مورد نظر تزریق کنید.

برای مثال جعبه اول و دوم بصورت پیش فرض پر شده -- کافیست پنجره Run را باز کنید و آنچه میخواهید در جعبه سوم بنویسید.
برای پنجره های دیگر هم میتوانید این کارو کنید...

به همین سادگی!
سوالی بود بپرسید :11:

نقل قول:

---

نوشته شده توسط Smafias [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام بهتره که از FindWindow استفاده بشه!

نمونه بارز:

کد:

---

written by Smafias
http://www.2shared.com/file/3635502/54e2ef82/AutoInject.html

---

توضیح برنامه:
در جعبه متن اول تیتر پنجره مورد نظر رو بنویسید.
در جعبه متن دوم اسم کلاس کنترلی که میخواهید متن را بهش تزریق کنید بنویسید.

در جعبه متن سوم متنی که می خواهید به کنترل مورد نظر تزریق کنید.

برای مثال جعبه اول و دوم بصورت پیش فرض پر شده -- کافیست پنجره Run را باز کنید و آنچه میخواهید در جعبه سوم بنویسید.
برای پنجره های دیگر هم میتوانید این کارو کنید...

به همین سادگی!
سوالی بود بپرسید :11:

---

دوست عزیز از کمکتون خیلی متشکرم...

بازم ما رو شرمنده کردی:11:

دمت گرم:46:

موفق باشی