PDA

View Full Version : حرفه ای: فرستادن متن به یاهو مسنجر



sina_saravi1
سه شنبه 18 اسفند 1388, 21:52 عصر
سلام دوستان

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

من 2 روش رو میشناسم
1 استفاده از API
2 استفاده از سرویسی که با آن از درون سایت ها میتوان یاهو مسنجر را آماده ی ارسال کرد

من راه 2 را آزمایش کردم

ولی الان دنبال یاد گرفتن راه اول هستم

اون چیزایی که من میدونم
هندل فرم یاهو رو پیدا کنیم
هندل ورودی متن را پیدا کنیم
متن را در آن ارسال کنیم


ولی من نمیتونم کد نویسی لازم اونو انجام بدم
چون زیاد دست به API ام خوب نیست کمک میخوام

نمیخوام یه روبات درست کنم
میخوام از خود نسخه اصلی یاهو مسنجر استفاده کنم
چون پروتوکل های یاهو هر چند وقت یه بار عوض میشه


حالا از اساتید کمک میخوام

ممنونم

amin_iman82
چهارشنبه 19 اسفند 1388, 15:31 عصر
سلام.
من قبلا با vb6 این کارو کرده بودم.
الان همون برنامه رو هرچی باز میکنم yMagic.dll رو پیدا نمیکنه !!!

به این سایت یه سری بزن ، شاید چیزی دستگیرت بشه.
https://yahooaction.com/forum/thread19585.html

کلی سورس کد داره واسه هک و ... یاهو :لبخند:
البته طبق معمول ف/ی/ل/ت/ر شده ، بپیچون دیگه :لبخند:

نمیدونم چرا هرچی سایت باحاله که من میرم ف/ی/ل/ت/ر شده:عصبانی:

amin_iman82
چهارشنبه 19 اسفند 1388, 15:59 عصر
این کد فکر کنم برا یاهو 8 جواب میده ، من رو 10 تست کردم جواب نداد



Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long


Private Const WM_SETTEXT = &HC
Private Const WM_KEYDOWN = &H100
Private Const VK_RETURN = &HD

Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5


Private Sub Command1_Click()
Dim wnd As Long, meswnd As Long, lhndchild As Long
Dim StrClass As String * 255
Dim i As Integer

wnd = FindWindow("YSearchMenuWndClass", vbNullString)

wnd = FindWindowEx(wnd, 0&, "IMClass", vbNullString)

lhndchild = GetWindow(wnd, GW_CHILD)
Call GetClassName(lhndchild, StrClass, 255)
i = InStr(StrClass, "YIMInputWindow")
If i > 0 Then
SendMessageByString meswnd, WM_SETTEXT, 0, Text2.Text
Exit Sub
End If

'Continue enumuration
Do
lhndchild = GetWindow(lhndchild, GW_HWNDNEXT)
If lhndchild = 0 Then Exit Do

Call GetClassName(lhndchild, StrClass, 255)
i = InStr(StrClass, "YIMInputWindow")
If i > 0 Then
SendMessageByString lhndchild, WM_SETTEXT, 0, Text2.Text
Exit Sub
End If
Loop

End Sub

sina_saravi1
چهارشنبه 19 اسفند 1388, 17:57 عصر
دوست عزیز ممنونم

کد جدیدی نداری؟

amin_iman82
چهارشنبه 19 اسفند 1388, 18:15 عصر
https://yahooaction.com/forum/thread19585.html

سینا جان این سایت کدهایی از 2009 تا 2010 داره دیگه!!
امروز رفتم دیدم بدون ف/ی/لتر شکن وارد میشه :متعجب: چند روز پیش بسته بود ها!

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

اگه سورس دیگه ای پیدا کردم چشم میذارم همینجا.

golbafan
چهارشنبه 19 اسفند 1388, 18:27 عصر
سورس با دلفي هم ميشه بزارين؟

sina_saravi1
چهارشنبه 19 اسفند 1388, 19:05 عصر
ولی خیلی قرو قاطیه

اون چیزی رو که میخوام رو پیدا نکردم

sina_saravi1
چهارشنبه 19 اسفند 1388, 19:24 عصر
درباره Invisible Detector چیزی ندارید ؟!

دوست عزیز من برای این چیزی ندارم
ولی پیدا میشه

ولی جاش تو این تاپیک نیست

لطفا یه تاپیک جدید و مرتبط با موضوتون بزنید

amin_iman82
چهارشنبه 19 اسفند 1388, 19:59 عصر
درباره Invisible Detector چیزی ندارید ؟!

https://yahooaction.com/forum/thread19585.html

داخل همین سایت این مورد رو من دیدم ، 100% مطمئن هستم.

amin_iman82
چهارشنبه 19 اسفند 1388, 20:10 عصر
سورس با دلفي هم ميشه بزارين؟

برادر اینجا بخش vb.net :لبخند: ولی چشم من دوتا سمپل دارم. قبلا کار میکرده ولی الان نمیدونم چرا یه Dll رو پیدا نمیکنه.

به هرحال هردو رو آپلود میکنم.

sina_saravi1
چهارشنبه 19 اسفند 1388, 20:49 عصر
ولی بحث منحرف شد

موضوع اصلی این بود که بشه یه متنی رو تو قسمت تکست یاهو ارسال کرد

amma2amma
پنج شنبه 23 اردیبهشت 1389, 03:58 صبح
سلام. من دقیقا همین برنامه ارسال متن رو برای بیلوکس می خواهم. من برنامه رو نوشم. اما .قتی می خواهم به بیلوکس بفرستم قاطی میاد. مرتب نیست. خواشا کمک کنید. من می خواهم یک دکمه در برنامه باشه و وقتی روی اون کلیک کنی محتوای آن را به بیلوکس انتقال بده.