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

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

من وقتی می خواستم برنامه 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:

موفق باشی

من می خوام مثلا توی پنجره ای که Capition اون برابر 1 هست متن Ok رو در Textbox اون بریزم ولی جواب نمی ده...

در تکست باکس اول 1 رو وارد میکنم

در تکست باکس دومی TextBox رو وارد می کنم

در تکست باکس سومی هم OK رو وارد می کنم که کلمه ی TextBox قرمز میشه...

میشه کمک کنید

خواهش می کنم....

در جعبه متن دوم ThunderTextBox بنویسید مشکلتون حل میشه!


در ضمن برای بدست آوردن نام Class کنترل ها از برنامه ++Spy میتوانید استفاده کنید:
Start->All Programs->Microsoft Visual Studio 6.0->Microsoft Visual Studio 6.0 Tools->++Spy

اگه مشکلی بود مطرح کنید!

قربان شما :11:

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

امیدوارم که در تمام مراحل زندگی موفق و مؤید باشین:8:

فقط یه خواهشی ازتون دارم:

می خواستم بدونم اگه داخل یک پنجره بیشتر از یک Textbox بود چیکار باید بکنیم؟؟؟

یا اینکه متنمون توی یکی از تکس باکس های موجود در صفحه ریخته بشه (اونی که خودمون می خوایم)

ممنون

خواهش میکنم! :20: وظیفم رو انجام دادم.

----------------------

خوب اینجاست که دیگه باید بریم سراغ EnumChildWindows -- اینم سورس:

کد:

---

Written by Smafias
http://www.2shared.com/file/3647439/f1f61b65/AutoInject.html

---

فقط کافیه شماره کنترل مورد نظر رو در جعبه متن سوم بنویسید و متن مورد نظرتون رو هم در جعبه متن چهارم.

به همین سادگی!

امیدوارم که شما هم همیشه موفق باشین!
بازهم اگه مشکلی بود بگید :11:

دوست عزیز واقعا از لطفتون ممنونم(تو ویژوال بیسیک حرف اول میزنی پسر!!!)

ایول بابا دمت گرم:46:

راستی دوست عزیز من مسیری رو که داده بودین برای اجرا برنامه ی Spy++ پیدا نکردم میشه راهنمایی ام کنید...

اختیار دارین -- شما استاد مایی.

احتمالا موقع نصب Visual Studio تیک گزینه Tools رو نزدید -- شاید هم تیک گزینه ++Spy .

به هر حال آپلودش کردم:

کد:

---

http://www.2shared.com/file/3656101/57174caa/Spy.html

---

برای بدست آوردن اطلاعات یک پنجره یا یک کنترل از منوی Spy گزینه Find Window رو انتخاب کن --
بعد روی اون شکل (نشانه) کلیک رو نگه دار و ببر روی مقصد مورد نظر (پنجره یا کنترل) --
بعد یه پنجره حاوی اطلاعات شئ مورد نظر باز میشه روبروی Class نام کلاس شئ مورد نظر رو نوشته...


و یه برنامه هم هست که تقریبا مشابهشه و یکم آسونتره:

کد:

---

http://www.dennisbabkin.com/php/downloads/WinID.zip

---

موفق باشی :11:

خواهش می کنم دوست عزیز زیادی پست که نشونه ی بزرگی نیست:13:

شما با این که پستاتون از من کمتر هست اما همین عدد پست شما از صد تا رقم پست های ناچیز من ارزش بالاتری داره دوست عزیز:20:

ما کوچیک شما هستیم شما بزرگتری، شما استادین ما چه کاره ایم( یه سوال بپرس خیلی پر رو فقط همین ):19:

راستی از آپلودتون واقعا متشکرم:46:

سریال برنامه ی دومی رو پبدا کردم گفتم بذارم شاید لازمتون بشه:

WinID 3.1
Name: Mohsen3800
Code: 121220TP1

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

از انجایی که شما لطف های زیادی در حق من کردین منم می خوام جبران کنم.

ازتون می خوام اگه کرک برنامه ای لازمش داشتین به من پیغام ارسال کنید، من همه سعی خودم رو میکنم تا براتون پیدا کنم...

راستی دوست عزیز من که از برنامه اولی چیزی آنچنان سر در نیاوردم اما با برنامی دومی به یه جاهایی رسیدیم.

حالا از شما می خوام یه سوال بپرسم:

دوست عزیز در برنامه دومی (WinID 3.1) زمانی که شما ماوس رو در محیط ویندوز به حرکت در میارین اون قسمتی که در برنامه به رنگ قرمز در میاد همون آیدی مورد نظر هست یا اینکه ایدی مورد نظر ما یه جای دیگه توی برنامه هست و من نمی بینم!!!

با تشکر از شما دوست عزیز

از بابت شماره سریال برنامه ممنون!

باشه اگه در زمینه کرک مشکل داشتم مزاحمتون میشم.


در برنامه WinID اگر نام کلاس یک شئ رو میخواهید بدست بیاورید اینجاست (با کادر قرمز مشخص شده):
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون و متشکرم :11:

روبروم بوده ندیدم

دوست عزیز به خاطر تمام را هنمائی های کاملی که در این پست ها و سایر سوالاتی که داشتم به من کردین بی نهایت متشکرم و امیدوارم که در هر جا و در مکانی که هستین هموراه موفق و مؤید باشید.:11:

من گفتم بازم میگم:
ما کوچیکتیم

دیگه مزاحمتون نمیشم

خدانگهدار