هندل پنجره یاهو

[Snoopboy]

با سلام خدمت همه دوستان . من هندل پنجره یاهو رو به دست آوردم . پنجره PM منظورم هست.
ولی جواب نمیده. من کد رو میزارم . اگه ممکنه بگید مشکل کجاست. با تشکر


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 (MEAwwwText)
Call SendMessageLong(c, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(c, WM_LBUTTONUP, 0&, 0&)
Else
End If

[M.T.P]

پنجره PM کلاسش CTabbedIMHost هست.


Dim h As Long
h = FindWindow("CTabbedIMHost", vbNullString)


کد اینجوری میشه:


Dim intWndMain As Long
Dim intWndBase As Long
Dim intWndInput As Long
Dim intWndSend As Long

intWndMain = FindWindow("CTabbedIMHost", vbNullString)

If intWndMain Then
intWndBase = FindWindowEx(intWndMain, 0&, "CConvWndBase", vbNullString)
intWndInput = FindWindowEx(intWndBase, 0&, "YIMInputWindow", vbNullString)
intWndSend = FindWindowEx(intWndBase, 0&, "Button", "Send")

SendMessage intWndInput, WM_SETTEXT, 0, ByVal (MEAwwwText)
Call SendMessageLong(intWndSend, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(intWndSend, WM_LBUTTONUP, 0&, 0&)
End If