Soru Userform İle Tanımlı Adresten SMS Atmak

[TURKOLOG]

Herkese Merhaba
ekteki dosya ile userform ile arada sms gidiyor genelde ise sms göndermiyor. aşağıda belirttiğim kısımda hata veriyor ama çözemedim Ekteki dosya da Dim tur As String tur = "Normal" Dim smsNN As String smsNN = vbNullString
bu kısımda normal yazınca Türkçemizin karekterlerini ingilizce karaktere çevirip yolluyor . Normal Yazan yerde Türkçe yazınca ise Türkçe karakterleri ingilizce karaktere çevirmeden Türkçe ç ş ğ ü ö şeklinde göndermesini istiyorum.
Yardım edebilecek olan varsa çok sevinirim.
Aşağıda eklediğim kısımda hata veriyor çözemedim ama bir türlü

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
Kod ender de olsa çalışıyor ama yüzde 99 çalışmıyor hatayı bulamadım

 

[veyselemre]

Şifre olmadığı için denenmedi..

Private Sub Gönder_Click()
Dim sifre As String

kno = "XXXX"
kad = "XXXXXX"
ksifre = "XXXXX"

orjinator = "DENEME"

Dim i As Integer
Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")

Dim msg As String
Dim tur As String

If ComboBox1.Text = "Türkçe" Then
    tur = "Turkce"
    msg = TextBox19.Text
    Else
    tur = "Normal"
    For i = 0 To UBound(Trk)
        msg = Replace(TextBox19.Text, Trk(i), Ing(i))
    Next i
End If

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>" & msg & "</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

 

[TURKOLOG]

Şifre olmadığı için denenmedi..

Private Sub Gönder_Click()
Dim sifre As String

kno = "XXXX"
kad = "XXXXXX"
ksifre = "XXXXX"

orjinator = "DENEME"

Dim i As Integer
Trk = Array("ı", "İ", "ğ", "Ğ", "ü", "Ü", "ş", "Ş", "ö", "Ö", "ç", "Ç")
Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")

Dim msg As String
Dim tur As String

If ComboBox1.Text = "Türkçe" Then
    tur = "Turkce"
    msg = TextBox19.Text
    Else
    tur = "Normal"
    For i = 0 To UBound(Trk)
        msg = Replace(TextBox19.Text, Trk(i), Ing(i))
    Next i
End If

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>" & msg & "</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

Sayın @veyselemre Hocam malesef kod çalışmadı. Kodun excel çalışma kitabında çalışır halini paylaşırsam daha net bir şeyler ortaya çıkar diye yüklüyorum buraya. Yüklenen dosyada çalışma kitabında excel sayfasında sms gönderiyor .

 

[TURKOLOG]

Yardım edebilecek olan var mı acaba