ايران ويج

با سلام

دوستان قبلاً این کد توی ورژن 10 یاهو جواب میداد اما الان چون

ظاهر صفحه PM عوض شده جواب نمیده من هم نتونستم بکار بندازم کد رو

اگه کسی میتونه ممنون میشم

کار این برنامه اینه که از یک تکست باکس متن رو میگیره و توی 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 (Text1.Text)
Call SendMessageLong(c, WM_LBUTTONDOWN, 0&, 0&)
Call SendMessageLong(c, WM_LBUTTONUP, 0&, 0&)
Else
End If