برنامه اي كه به ياهو كانكت بشه و يك متن رو به همه اد ليست ها ارسال كنه

[elimiz]

سلام دوستان
چطوري ميشه يه برنامه اي نوشت كه با يوزر و پسورد ياهو لاگين بشه و ادد ليست رو بياره و يك متن رو text1 بخونه و براي كل ادد ليست ارسال كنه ؟
اگر نمونه سورس يا ادرس دارين دريغ نكنين.
مرسي

[Snoopboy]

اینو ببین
http://barnamenevis.org/attachment.php?attachmentid=72730&d=1311193554

[elimiz]

سلام داداش. اين سورس كه گذاشتي حرف نداره.
فقط يه چيزش كم هست
سند تو ال نداره
من ميخوام يك متن رو از text1 بگيره و به كل ادد ليست ارسال كنه
ميتوني اين قابليت رو بهش اضافه كني. بخدا يك عمر دعاگوت ميشم
خيلي ضروري لازم دارم
فدات

[Snoopboy]

بفرما.

78905

[elimiz]

دستت درد نكنه داداش. pm ميفرسته اما سند تو ال نميزنه :گریه:
تست كردم ارسال نشد
بازم دستت درد نكنه زحمت كشيدي
اگه وقت داشتي تست بكن داداش
مرسي

[elimiz]

سلام اقاي snoopboy خوبين ؟
اگر امكان داره يك بار ديگه تستش كنين. سند تو ال نميزنه.
بد جوري لازمش دارم بخدا
مرسي دستت درد نكنه

[Snoopboy]

شرمنده من یادم رفت بزارم تو حلقه
الان درست شد78968

[elimiz]

اقا دستت درد نكنه مشكل برطرف شد. الان سند تو ال ميزنه.
فقط يك ايراد داره.
متن فارسي رو خالي ميفرسته. با انگليسي مشكل نداره اما فارسي نميفرسته
اينقد زحمت دادم شمارو كه ديگه رووم نميشه
بخدا شرمندتم داداش
شاد باشي

[Snoopboy]

پکت فارسی ارسال نمی کنه . می تونی یک تابع بنویسی یونیکد کده بعد ارسال کنه.

[elimiz]

اگر امكان داره يه كمي بيشتر راهنمايي كنيد. ممنون

[elimiz]

از دوستان كسي هست كه بتونه اين برنامه رو كامل كنه تا pm فارسي بفرسته

[Snoopboy]

Public Function Send_Message(Str As String) As String
On Error Resume Next
Dim I As Integer
Dim N As Integer
Dim St As String
For I = 1 To Len(Str)
N = 2
If Left(Str, 1) = Chr(215) Then
St = St & ChrW(195) & Chr(151)
N = 2
ElseIf Left(Str, 1) = Chr(161) Then
St = St & ChrW(216) & Chr(140)
N = 2
ElseIf Left(Str, 1) = Chr(186) Then
St = St & ChrW(216) & Chr(155)
N = 2
ElseIf Left(Str, 1) = Chr(187) Then
St = St & ChrW(216) & Chr(156)
N = 2
ElseIf Left(Str, 1) = Chr(188) Then
St = St & ChrW(216) & Chr(157)
N = 2
ElseIf Left(Str, 1) = Chr(189) Then
St = St & ChrW(216) & Chr(158)
N = 2
ElseIf Left(Str, 1) = Chr(191) Then
St = St & ChrW(216) & Chr(159)
N = 2
ElseIf Left(Str, 1) = Chr(192) Then
St = St & ChrW(216) & Chr(160)
N = 2
ElseIf Left(Str, 1) = Chr(193) Then
St = St & ChrW(216) & Chr(161)
N = 2
ElseIf Left(Str, 1) = Chr(194) Then
St = St & ChrW(216) & Chr(162)
N = 2
ElseIf Left(Str, 1) = Chr(195) Then
St = St & ChrW(216) & Chr(163)
N = 2
ElseIf Left(Str, 1) = Chr(196) Then
St = St & ChrW(216) & Chr(164)
N = 2
ElseIf Left(Str, 1) = Chr(197) Then
St = St & ChrW(216) & Chr(165)
N = 2
ElseIf Left(Str, 1) = Chr(198) Then
St = St & ChrW(216) & Chr(166)
N = 2
ElseIf Left(Str, 1) = Chr(199) Then
St = St & ChrW(216) & Chr(167)
N = 2
ElseIf Left(Str, 1) = Chr(200) Then
St = St & ChrW(216) & Chr(168)
N = 2
ElseIf Left(Str, 1) = Chr(201) Then
St = St & ChrW(216) & Chr(169)
N = 2
ElseIf Left(Str, 1) = Chr(202) Then
St = St & ChrW(216) & Chr(170)
N = 2
ElseIf Left(Str, 1) = Chr(203) Then
St = St & ChrW(216) & Chr(171)
N = 2
ElseIf Left(Str, 1) = Chr(204) Then
St = St & ChrW(216) & Chr(172)
N = 2
ElseIf Left(Str, 1) = Chr(205) Then
St = St & ChrW(216) & Chr(173)
N = 2
ElseIf Left(Str, 1) = Chr(206) Then
St = St & ChrW(216) & Chr(174)
N = 2
ElseIf Left(Str, 1) = Chr(207) Then
St = St & ChrW(216) & Chr(175)
N = 2
ElseIf Left(Str, 1) = Chr(208) Then
St = St & ChrW(216) & Chr(176)
N = 2
ElseIf Left(Str, 1) = Chr(209) Then
St = St & ChrW(216) & Chr(177)
N = 2
ElseIf Left(Str, 1) = Chr(210) Then
St = St & ChrW(216) & Chr(178)
N = 2
ElseIf Left(Str, 1) = Chr(211) Then
St = St & ChrW(216) & Chr(179)
N = 2
ElseIf Left(Str, 1) = Chr(212) Then
St = St & ChrW(216) & Chr(180)
N = 2
ElseIf Left(Str, 1) = Chr(213) Then
St = St & ChrW(216) & Chr(181)
N = 2
ElseIf Left(Str, 1) = Chr(214) Then
St = St & ChrW(216) & Chr(182)
N = 2
ElseIf Left(Str, 1) = Chr(216) Then
St = St & ChrW(216) & Chr(183)
N = 2
ElseIf Left(Str, 1) = Chr(217) Then
St = St & ChrW(216) & Chr(184)
N = 2
ElseIf Left(Str, 1) = Chr(218) Then
St = St & ChrW(216) & Chr(185)
N = 2
ElseIf Left(Str, 1) = Chr(219) Then
St = St & ChrW(216) & Chr(186)
N = 2
ElseIf Left(Str, 1) = Chr(220) Then
St = St & ChrW(217) & Chr(128)
N = 2
ElseIf Left(Str, 1) = Chr(221) Then
St = St & ChrW(217) & Chr(129)
N = 2
ElseIf Left(Str, 1) = Chr(222) Then
St = St & ChrW(217) & Chr(130)
N = 2
ElseIf Left(Str, 1) = Chr(223) Then
St = St & ChrW(217) & Chr(131)
N = 2
ElseIf Left(Str, 1) = Chr(225) Then
St = St & ChrW(217) & Chr(132)
N = 2
ElseIf Left(Str, 1) = Chr(227) Then
St = St & ChrW(217) & Chr(133)
N = 2
ElseIf Left(Str, 1) = Chr(228) Then
St = St & ChrW(217) & Chr(134)
N = 2
ElseIf Left(Str, 1) = Chr(229) Then
St = St & ChrW(217) & Chr(135)
N = 2
ElseIf Left(Str, 1) = Chr(230) Then
St = St & ChrW(217) & Chr(136)
N = 2
ElseIf Left(Str, 1) = Chr(237) Then
St = St & ChrW(217) & Chr(138)
N = 2
ElseIf Left(Str, 1) = Chr(240) Then
St = St & ChrW(217) & Chr(139)
N = 2
ElseIf Left(Str, 1) = Chr(241) Then
St = St & ChrW(217) & Chr(140)
N = 2
ElseIf Left(Str, 1) = Chr(242) Then
St = St & ChrW(217) & Chr(141)
N = 2
ElseIf Left(Str, 1) = Chr(243) Then
St = St & ChrW(217) & Chr(142)
N = 2
ElseIf Left(Str, 1) = Chr(245) Then
St = St & ChrW(217) & Chr(143)
N = 2
ElseIf Left(Str, 1) = Chr(246) Then
St = St & ChrW(217) & Chr(144)
N = 2
ElseIf Left(Str, 1) = Chr(248) Then
St = St & ChrW(217) & Chr(145)
N = 2
ElseIf Left(Str, 1) = Chr(129) Then
St = St & ChrW(217) & Chr(190)
N = 2
ElseIf Left(Str, 1) = Chr(141) Then
St = St & ChrW(218) & Chr(134)
N = 2
ElseIf Left(Str, 1) = Chr(142) Then
St = St & ChrW(218) & Chr(152)
N = 2
ElseIf Left(Str, 1) = Chr(152) Then
St = St & ChrW(218) & Chr(169)
N = 2
ElseIf Left(Str, 1) = Chr(144) Then
St = St & ChrW(218) & Chr(175)
N = 2
Else
St = St & Left(Str, 1)
End If
Str = Mid(Str, N)
Next I
Send_Message = St
End Function


آینو بزار توی یک ماژول
برای ارسال متن. متنتو اول بوسیله این کد تبدیل کن بعد سند کن. مثلا الان من خواستم Text9 رو سند کنم. اینطوری.
Send_Message(Text9)

[elimiz]

دستت درد نكنه.
نتونستم اضافه كنم.
يعني اضافه كردم ها اما كار نكرد.فكر كنم من جايي رو اشتباه كردم
مرسي دستت درد نكنه

[Snoopboy]

اینطوری مثلا
Winsock2.senddata Sendpm(ID, Be Kasi Ke Mikhay Send Koni,Send_Message(Text9))