Private Sub Gönder_Click()

Dim sifre As String



kno = "00000"

kad = "0000000"

'ksifre = ""

ksifre = Application.InputBox("Şifreyi giriniz", "ŞİFRE")

orjinator = ComboBox1





  Dim i As Integer

Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")

Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")



If ComboBox1.Value = "Türkçe" Or ComboBox1.ListIndex <> -1 Then

    For i = 0 To 11

        TextBox19.Value = Replace(TextBox19, Trk(i), Ing(i))

    Next

End If





Dim tur As String

tur = ComboBox2

Dim smsNN As String

smsNN = vbNullString



smsNN = "data=<sms><kno>" & kno & "</kno><kulad>" & kad & "</kulad><sifre>" & ksifre & "</sifre>" & _

"<gonderen>" & orjinator & "</gonderen>" & _

"<telmesajlar>"

   



           smsNN = smsNN + "<telmesaj><tel>" & TextBox18.Value & "</tel><mesaj>" & TextBox19.Value & "</mesaj></telmesaj>"



   

smsNN = smsNN + "</telmesajlar>" & _

"<tur>" & tur & "</tur></sms>"



Dim oXmlHttp As MSXML2.XMLHTTP60

Set oXmlHttp = New MSXML2.XMLHTTP60

URL = "http://panel.vatansms.com/panel/smsgonderNNpost.php"

oXmlHttp.Open "POST", URL, False

oXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"



Dim bytArguments() As Byte

bytArguments = StrConv(smsNN, vbFromUnicode)

oXmlHttp.send bytArguments



Dim bytRetData() As Byte

bytRetData = oXmlHttp.responseText



Dim cevap As String

cevap = bytRetData



Dim ilkKarakter As String

ilkKarakter = Left$(cevap, 1)

    If ilkKarakter = "1" Then

        MsgBox "SMS Gönderimi Başarıyla Tamamlandı.!"

    Else

        MsgBox "SMS Gönderimi BAŞARISIZ.!"

    End If

Set oXmlHttp = Nothing

Debug.Print smsNN



End Sub



Function RToplaSay(Alan As Range, ToplaSay As Byte) As Long

    Dim Bak As Range

    Dim Karakter As String

    Dim Sira As Integer

    Dim RakamSay As Long

    Dim Toplam As Long

    Dim Basamak As Integer

    Basamak = 1

    For Each Bak In Alan

        Bak.Select

        For Sira = 1 To Len(Bak.Value)

            Karakter = Mid(Bak.Value, Sira, Basamak)

            If IsNumeric(Karakter) Then

                For Basamak = 2 To Len(Bak.Value)

                    Karakter = Mid(Bak.Value, Sira, Basamak)

                    If Not IsNumeric(Karakter) Then

                        Karakter = Mid(Bak.Value, Sira, Basamak - 1)

                        Sira = Sira + Basamak

                        Toplam = Toplam + Karakter

                        RakamSay = RakamSay + 1

                        Exit For

                    End If

                Next

            End If

        Next

        Basamak = 1

    Next

    If ToplaSay = 0 Then

        RToplaSay = RakamSay

    ElseIf ToplaSay = 1 Then

        RToplaSay = Toplam

    End If

   

End Function

Private Sub UserForm_Initialize()





ComboBox1.AddItem "Kullanıcı Adı"



ComboBox2.AddItem "Normal"

ComboBox2.AddItem "Türkçe"

End Sub

Hocam bu şekilde sms gönderme işlemi yapıyor ama Tür olarak Türkçe seçsem de Türkçe karakterleri çevirip gönderiyor

tur = ComboBox2 burda ComboBox2 de Türkçe seçiyorum ama yine de Normal olarak sms gönderiyor.
Misal Mesaj metni : Türkçe Özgür Şekil Mağrib yazılı . Türkçe yi seçsem de : Turkce Ozgur Sekil Magrib
şeklinde normal yani ingilizce karekterlere çevirip gönderiyor.

Olması gereken Türkçe seçilirse ComboBox2 de Türkçe karakterlerle Normal Seçilirse İngilizce karekterlerle göndermesi lazım