چطوري بفهمم يك ايدي ياهو روشن هست يا خواموش؟

[ebrahimv]

من دنبال كدي هستم كه بتونم بفهمم يك ايدي ياهو روشن هست يا خاموش
مي خوام يه چيزي مثل همين پشتيباني ها رو تو برنامم بزارم

[ho3ein.3ven]

سلام .بفرمایید
Data = Me.Inet1.OpenURL("http://opi.yahoo.com/online?u=" & Trim(Replace(Mid(Message, 6), " ", " ")) & "&m=j")
Data = Replace(Data, "is NOT ONLINE", "<b><black><red>Offline</red> Ast:-s</black></b>")
Data = Replace(Data, "is ONLINE", "<b><black><green>Online</green> Ast:></black></b>")
Data = check.check(Trim(Replace(Mid(Message, 6), " ", " ")))
البته یکم باید تغییر بدین

[ebrahimv]

MsgBox Inet1.OpenURL("http://mail.opi.yahoo.com/online?u=eev_1368&m=a&t=1")
ممنون از دوست عزيز يه كد ساده پيدا كردم

[MohammadGh2011]

سلام عليکم


چطوري بفهمم يك ايدي ياهو روشن هست يا خواموش؟
:متفکر::متعجب:
=======================
بفرما اين سورس ها رو ببينيد:
http://barnamenevis.org/attachment.php?attachmentid=60401&d=1289980402
و
http://barnamenevis.org/attachment.php?attachmentid=71435&d=1308658783

موفق باشيد