Hocam kodların son hali bu ve bu kodlarla sms gönderme yapmıyor artık.

Private Sub Gönder_Click()

Dim sifre As String



kno = "00000"

kad = "00000"

'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.ListIndex = -1 Then

    MsgBox "Gönderici Başlığını Geçemezsiniz...", vbCritical, "HATA"

    Exit Sub

End If



If ComboBox2.ListIndex = -1 Then

    MsgBox "Gönderim Şeklini Boş Geçemezsiniz...", vbCritical, "HATA"

    Exit Sub

End If



If ComboBox2.Value = "Türkçe" Then

    For i = 0 To 11

        TextBox19.Value = Replace(TextBox19, Ing(i), Trk(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

Abey verdiğiniz linke baktım ve yukardakiler yok.
Alttaki gibi ayarladım kodu deneyn olmazsa yapabileceğim bişey yok sanırrım.
O linkle anladığım Checkbox kullnmışlar sizinki ise Combobox ile ayarlandı.

Private Sub Gönder_Click()

Dim sifre As String



kno = "00000000"

kad = "0000000"

'ksifre = ""

ksifre = Application.InputBox("Þifreyi giriniz", "ÞÝFRE")

orjinator = ComboBox1





If ComboBox2.ListIndex = -1 Then

    MsgBox "GÖNDERÝM ÞEKLÝ BOS GECILEMEZ...", vbCritical, "HATA"

    Exit Sub

End If



Dim tur As String

tur = ComboBox2.Value

If ComboBox2.Value = "Türkçe" Then tur = "Türkçe"

    

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



End Sub

---

Kısaca bazı yerleri silip alttaki gibi ekledim.

tur = ComboBox2.Value

If ComboBox2.Value = "Türkçe" Then tur = "Türkçe"

---

Gerçi biraz anlamsız oldu son yazdığım kod.

tur = "Normal"

If ComboBox2.Value = "Türkçe" Then tur = "Türkçe"

Verdiğiniz linkeki koda göre tur aBirde turkce adında checkbox var.Ve bu işretli olursa tur değeri Turkçe oluyor.
Gerisi aynı kod bu durumdada yukarıdaki dgibi kod olmalı alttaki kodun karşılığı olarak.Yani Comboya Normal eklemeye gerek yok.
Önceki verdiğim kodu değiştirep deneyebilirsiniz.

Dim tur As String = "Normal"

        If turkce.Checked = True Then

            tur = "Turkce"

        End If

Hocam tamam da bazen sms gidiyor bazen gitmiyor sms gönderme başarısız diyor sorun ne anlamadım.

(09/01/2021, 20:03)hayalibey yazdı: Hocam tamam da bazen sms gidiyor bazen gitmiyor sms gönderme başarısız diyor sorun ne anlamadım.

Abey söylemiştim daha önceden.
Koddaki linkte bazen 2:Kayıtlı kullanıcı bulunamadı diyor.
Koddada il left( ile başlayan kısımdada soldan ilk karakter 1 ise sms gönder diyor.Bu durumda 2 olunca sms zaten gitmez.Yani kod alakası yok gitmemesinin.Gönderilen sms linkten kaynaklanıyor.Yani ben bilmiyorum.Benim anladıklarım bu.

Bazen gidip gitmemesi kısaca kod çalışınca linkteki sayfadaki yazıda 1 ile başlıyorsa gidiyordur yani 1 ise kullanıcı bulunuyordur 2 de bulunmadığına göre mantıken
Mrsaj gittiği zaman resimde eklediğim linki adres çubuğunda aratın ne çıkacak?