کار با یاهو مسنجر.

[persianteen]

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

  yahoo.rar (اندازه: 1.22 KB / تعداد دفعات دریافت: 53)

[Soheilvb]

بفرما
این تابع readtext است ورودیش hwnd و خروجیش متنشه
اول اینا رو تو قسمت بالای ماژول می ذاری

کد:

[align=left]Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Public Const WM_GETTEXT = &HD[/align]

و بعد اینم تابع readtext

کد:

[align=left]Public Function ReadText(hwnd As Long)
Dim s As String
s = String(255, Chr(0))
SendMessageByString hwnd, WM_GETTEXT, 255, s
s = Left(s, InStr(1, s, Chr(0)) - 1)
ReadText = s
End Function
Public Function SetText(hwnd As Long, Text As String)
SendMessageByString hwnd, WM_SETTEXT, 0, Text
End Function[/align]

امیدورام مشکلت حل شده باشه
موفق باشی
بای

[persianteen]

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

  yahoo.rar (اندازه: 1.64 KB / تعداد دفعات دریافت: 43)

[Soheilvb]

پس هندلت 100% غلطه . من الان کافی نتم نمی تونم بررسی کنم . شب یا فردا اشکالشو می گم بهت
با کیلاگرم راحت می تونی این کارو کنی
کیلاگر صفحه اول سایت رو بگیر و ببین

[persianteen]

مرسی از جوابت مشکل اینجاست که کیلاگر رو آنتی ویروس ها به راحتی شناسایی می کنن

[Soheilvb]

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