djsongonline
دوشنبه 09 فروردین 1389, 12:39 عصر
سلام علیکم خسته نباشید http://forum.persiantools.com/images/smilies2/smilingsmiley.gif
ببخشید یه سوال داشتم میشه بپرسم http://forum.persiantools.com/images/smilies2/wacsmiley.gif
oخب میپرسم http://forum.persiantools.com/images/smilies2/biggrinsmiley.gif
آقا سوال من معلومه که چی چون تو تایتل نوشتم خب یه بار د یگه کامل میگم
آقا من یک سورس یا کدی میخوام که لاگین کنه و پیغام های فارسی بفرسته برای طرف ---- اگر سورس نبود لاقل بگین که چطوری فارسی ارسال کنم چون من یکی نوشتم ارسال نمیکنه حالا شما ببینید درست نوشتم ؟ http://forum.persiantools.com/images/smilies2/sadsmiley.gif
کد :
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
----------------- آقا ببخشید یکم طولانی شدااا --- آقا من این کد رو نوشتم اما متاسفانه جملات فارسی ارسال نمیکنه به هر دری هم زدم نتوستتم چیزی گیر بیارم فقط یه اکتیویس گیر آوردم به نام ymsgmode.ocx که خیلی قدیمه جملات فار سی ارسال میکنه اما به درد نمیخوره چون اکتیویس هستش و من میخوام کدی که برای ارسال پیغم نوشته رو ببینم ----
-----------------------------------
خب ممنون میشم اگر یه جوای به من بدین
یعنی واقعا ممنون میشم چون به هر دری زدم هیچ کی کمک نکرد
ببخشید یه سوال داشتم میشه بپرسم http://forum.persiantools.com/images/smilies2/wacsmiley.gif
oخب میپرسم http://forum.persiantools.com/images/smilies2/biggrinsmiley.gif
آقا سوال من معلومه که چی چون تو تایتل نوشتم خب یه بار د یگه کامل میگم
آقا من یک سورس یا کدی میخوام که لاگین کنه و پیغام های فارسی بفرسته برای طرف ---- اگر سورس نبود لاقل بگین که چطوری فارسی ارسال کنم چون من یکی نوشتم ارسال نمیکنه حالا شما ببینید درست نوشتم ؟ http://forum.persiantools.com/images/smilies2/sadsmiley.gif
کد :
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
----------------- آقا ببخشید یکم طولانی شدااا --- آقا من این کد رو نوشتم اما متاسفانه جملات فارسی ارسال نمیکنه به هر دری هم زدم نتوستتم چیزی گیر بیارم فقط یه اکتیویس گیر آوردم به نام ymsgmode.ocx که خیلی قدیمه جملات فار سی ارسال میکنه اما به درد نمیخوره چون اکتیویس هستش و من میخوام کدی که برای ارسال پیغم نوشته رو ببینم ----
-----------------------------------
خب ممنون میشم اگر یه جوای به من بدین
یعنی واقعا ممنون میشم چون به هر دری زدم هیچ کی کمک نکرد