ايران ويج

سلام ایا میشه استاتوس یاهو ایدی خودم رو که با یاهو مسنجر انلاین میشم رو تغییر داد؟!

فکر کنم این باشه:
کد روشن کردن
Dim i As Byte
Dim yahoobuddymain As Long
yahoobuddymain = FindWindow("YahooBuddyMain", vbNullString)
SendMessage yahoobuddymain, WM_COMMAND, 376, 0
کد خاموش کردن
Dim i As Byte
Dim yahoobuddymain As Long
yahoobuddymain = FindWindow("YahooBuddyMain", vbNullString)
SendMessage yahoobuddymain, WM_COMMAND, 375, 0

اگه بخوام استاتوس رو تغییر بدم چیزی بنویسم باید چی کار کنم