مشکل در فرستادن متن در صفحه یاهو

[sevdaboy]

با سلام

قبلاً از این سورس ها زیاد بود توی ایران ویج ، من هرچی گشتم نتونستم پیدا کنم

یه سورس میخوام که هرچی توی تکست باکس هست رو توی صفحه چت ارسال کنه مثل تروجان قدیمیا

این سورس رو پیدا کردم اما هر کاریش کردم به یاهو 10 جواب نداد




  YSend.zip (اندازه: 2.1 KB / تعداد دفعات دریافت: 104)

[sevdaboy]

نبود ؟

[sevdaboy]

دوستان کسی این مشکل رو نمیتونه حل کنه ؟

اگه ممکنه آموزشش رو هم بزاره

[snoopboy]

دوستان کسی این مشکل رو نمیتونه حل کنه ؟

اگه ممکنه آموزشش رو هم بزاره

هندل پنجره های یاهو عوض شده من این کد رو امتحان کردم برام کار کرد ببین واسه توام کار می کنه

کد:

Dim h As Long
Dim f As Long
Dim c As Long
h = FindWindow("CConvWndBase", vbNullString)
If h <> 0 Then
f = FindWindowEx(h, 0&, "YIMInputWindow", vbNullString)
c = FindWindowEx(h, 0&, "Button", "Send")
SendMessage f, WM_SETTEXT, 0, ByVal (Text1.Text)
Call SendMessageLong(c, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(c, WM_LBUTTONUP, 0&, 0&)
Else
End If

[sevdaboy]

داداش ورژن یاهوت چنده که بهتون جواب داد ؟

[snoopboy]

دقیقا 10.0.0.1270 us

[reza-ezdeham]

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

[sevdaboy]

کد رو Snooopboy قرار داده دیگه فقط باید کپی کنی