با سلام
قبلاً از این سورس ها زیاد بود توی ایران ویج ، من هرچی گشتم نتونستم پیدا کنم
یه سورس میخوام که هرچی توی تکست باکس هست رو توی صفحه چت ارسال کنه مثل تروجان قدیمیا
این سورس رو پیدا کردم اما هر کاریش کردم به یاهو 10 جواب نداد
[
attachment=6372]
دوستان کسی این مشکل رو نمیتونه حل کنه ؟
اگه ممکنه آموزشش رو هم بزاره
(۰۷-خرداد-۱۳۹۰, ۲۰:۳۳:۴۷)sevdaboy نوشته است: [ -> ]دوستان کسی این مشکل رو نمیتونه حل کنه ؟
اگه ممکنه آموزشش رو هم بزاره
هندل پنجره های یاهو عوض شده من این کد رو امتحان کردم برام کار کرد ببین واسه توام کار می کنه
کد:
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
داداش ورژن یاهوت چنده که بهتون جواب داد ؟
با سلام دوست عزیز این کدکه شما میگی من هرچقد کردم پی ام نداد لطفا بیشتر راهنمایی کن ممنون
کد رو Snooopboy قرار داده دیگه فقط باید کپی کنی