RE: Userform İle Tanımlı Adresten Sms Atmak - hayalibey - 09/01/2021
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
RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 09/01/2021
Kod:
Trk = Array("ý", "Ý", "ð", "Ð", "ü", "Ü", "þ", "Þ", "ö", "Ö", "ç", "Ç")
Ing = Array("i", "I", "g", "G", "u", "U", "s", "S", "o", "O", "c", "C")
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.
RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 09/01/2021
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
RE: Userform İle Tanımlı Adresten Sms Atmak - hayalibey - 09/01/2021
Hocam tamam da bazen sms gidiyor bazen gitmiyor sms gönderme başarısız diyor sorun ne anlamadım.
RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 09/01/2021
(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.
RE: Userform İle Tanımlı Adresten Sms Atmak - feraz - 09/01/2021
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?
|