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