ارسال پيام به آي دي ياهو بدون وجود مسنجرو وارد شدن به اکانت

[gorg313]

سلام به همه ي دوستان عزيز و گل

من ميخوام براي آي دي ياهو پيام ارسال کنم

روش يک : استفاده از کامپوننت YMSG هست که براي فرستادن پيام ابتدا بايد وارد حساب کاربري بشيم



call YMSG1.PckSendMsg ID,"TXT"



روش : دو استفاده از تکه کد که (ymsgr) که پيام را ارسال ميکنن



ymsgr:sendim?ID&m=hello




خوب روش اول نياز به لاگين شدن داره
و روش دوم هم بايد هم يه آي دي لاگين باشه و پيچيده ميشه ID متغييره و متن پيام هم زياده + اينکه چند خطي و زياد هست متن پيام

اگر روش ديگه هم هست که بدون لاگين شدن بشه پيام فرستاد و همچنين ياهو مسنجرم لازم نباشه فراخواني بشه روش دوم وقتي ميخوام پيام بفرستم برنامه ياهو مسنجرو بازخواني ميکنه و برنامشو مياره

لطفآ راهنمايي کنيد

اگه روش دوم جواب بده برا کد زير هم جواب ميده؟


خوب به جاي آي دي ===== ID = TEXT1
به جاي hello هم hello=TEXT2




TEXT1= ID@YAHOO.COM

TEXT2.MULTILINE=TRUE

TEXT2="HELOO THIS IS A TEST & VBNEWLINE & "NEW LINE"

ymsgr:sendim?ID&m=hello



البته اين کد (ymsgr:sendim?ID&m=hello ) با دستور شل اجرا ميشه

[سید حمید حق پرست]

سلام علیکم
بدون لوگین شدن به مسنجر نمیشه پی ام به یک آی دی دیگری فرستاد عزیز. الان بهترین راه استفاده از کامپوننت YMSGMod هست، بجز این کامپوننت بیشتر روشهای لوگین شدن به یاهو بسته شده
موفق باشید.

یا علی (ع)

[gorg313]

سلام علیکم
بدون لوگین شدن به مسنجر نمیشه پی ام به یک آی دی دیگری فرستاد عزیز. الان بهترین راه استفاده از کامپوننت YMSGMod هست، بجز این کامپوننت بیشتر روشهای لوگین شدن به یاهو بسته شده
موفق باشید.

یا علی (ع)

سلام سيد جان

خوب من از همين کامپوننت استفاده ميکنم

حالا سوالات و مشکلات من در اين رابطه

من براي ورود به اکانت ياهو و .... مشکلي ندارم

ولي موقع ارسال پيام به آي دي اين مشکلات برام پيش مياد

براي مثال من يه ليست ايميل ياهو فراخواني ميکنم

X@YAHOO.COM
N@YAHOO.COM

خوب براي ارسال پيام از کد زير استفاده ميکنن

Call YMSG1.PckSendMsg (ID, TXT)

ولي چند تا مشکل پيش مياد

آي دي ها به صورت کامل نوشته ميشن مثلآ براي ارسال پيام فقط آي دي را درست ارسال ميکنه

وقتي X@YAHOO.COM هست ارسال نميکنه بايد X تنها باشه

و اينکه X@YAHOO.COM و متن مورد نظرمون را بايد به صورت زير بزنيم تا ارسال کنه

Call YMSG1.PckSendMsg ("X", "متن مورد نظرمون")


خوب طبق دستور بالا پيام ارسال ميشه

حالا مثلآ کد زير ارسال نميشه



DIM A,B,C,D AS STRING

A= TEXT1.TEXT
B= TEXT2.TEXT
C=TEXT3.TEXT
D=TEXT4.TEXT


Call YMSG1.PckSendMsg (A, B & C & D)




خوب من اگه بخوام به صورت بالا پيام سند کنه چکار کنم؟؟؟

[سید حمید حق پرست]

متغیر هارو به شکل زیر تعریف کنید :
Dim A As String, B As String, C As String, D As String
موفق باشید.

یا علی (ع)

[gorg313]

سيد سلام

من اين کدو ويرايش کردم

يه ليست هست ايميل بارگذاري ميکنم توش

ميخوام @yahoo.com حذف بشه فقط نام کاربريش بمونه

بعد اين کد متنو سند نميکنه نميدونم به خاطر چيه متنام تو چند تا تکس باکس هستن و متغيير هم هستن اولشم آي دي لاگين ميشه و تو استتيوس کامپوننت هم مي نويسه login.

کد زير نه اررو داره نه چيزي پيام نمي فرسته




Dim A As String, B As String, C As String, D As String


A = Text2.Text
B = Text3.Text
C = Text4.Text
D = Text5.Text
Call YMSG1.PckSendMsg(B, A & " . " & C & " : " & D)

[سید حمید حق پرست]

برای حذف @yahoo.com از Replace میتونید استفاده کنید.
اگر میخواید به لیست ایمیلی که بارگذاری کردید پی ام بفرستید که میتونید با یک حلقه for اینکار رو انجام بدید، مثلا :
For I = 0 To List1.ListCount - 1
YMSG1.PckSendMsg List1.List(I), PMText.Text
Next
البته باید یک وقفه در حلقه ایجاد کنید چون یاهو پشت سر هم پی ام ارسال نمیکنه (مثلا یک وقفه 0.5 ثانیه ای بین هر پی ام)
موفق باشید.

یا علی (ع)