Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » SMS GÖNDERME
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

ActiveX Denetimlerinin (Controls) Office aracılığıyla sisteme kaydedilmesi (register)

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 12239
Yayın Tar:06.01.2012
Yazar : ACCENT
Hit :6845

Bu Yazarın Yazıları Sadece bu yazarın örnek kod göster
Bu Yazıyı Tavsiye Et

Public Function SMS_GONDER(CEPTELNO1 As String, SMSMESAJ1 As String)
Dim a As String
Me.Enabled = False
HATAKODU = SMSGonder("05060123456", "SELAMLAR")

If Len(HATAKODU) > 3 And Mid(HATAKODU, 1, 3) = "ID:" Then
MsgBox "SMS MESAJI GONDERILDI (SmsID:" & Mid(HATAKODU, 4) & ")"
Else
MsgBox "SMS MESAJI GONDERILEMEDI (ErrorID:" & HATAKODU & ")"
End If
Me.Enabled = True
End Function

Public Function SMSGonder(CEPTELNO2 As String, SMSMESAJ2 As String) As String
Dim OBJDOMAIN As Object
Dim OBJ_XML_HTTP As Object
Dim XML As String

Set OBJDOMAIN = CreateObject("MSXML2.DOMDocument")
Set OBJ_XML_HTTP = CreateObject("MSXML2.XMLHTTP")

XML = "<MainmsgBody>"
XML = XML & "<USERNAME>"
XML = XML & "test"
XML = XML & "---"
XML = XML & "5010"
XML = XML & "</USERNAME>"
XML = XML & "<PASSWORD>"
XML = XML & "test"
XML = XML & "</PASSWORD>"
XML = XML & "<Action>0</Action>"
XML = XML & "<Mesgbody>"
XML = XML & SMSMESAJ2
XML = XML & "</Mesgbody>"
XML = XML & "<Numbers>"
XML = XML & CEPTELNO2
XML = XML & "</Numbers>"
XML = XML & "</MainmsgBody>"
MsgBox XML

OBJDOMAIN.async = False
OBJDOMAIN.loadXML XML

OBJ_XML_HTTP.Open "POST", "http://app2.cmfcell.com/httppost/requesTxml.aspx", False
OBJ_XML_HTTP.setRequestHeader "Content-Type", "Text/xml; charset=utf-8"

OBJ_XML_HTTP.send OBJDOMAIN.XML

SMSGonder = OBJ_XML_HTTP.responseText

Set OBJ_XML_HTTP = Nothing
End Function




Yorumlar, eklemeler ve düşünceler
        birazdaha açıklama yaparmısın lütfen.. yani eklenecek bir nesne yokmu ? böyle calısmazki bu :S

   erkan1221, 07.01.2012 23:58
   bencede eksik bir şeyler var çalışmıyor

   mtaser38, 09.01.2012 12:22
   text,combo box ne gibi nesneler gerekicek bunları yazar mısınız?

   deluxe2343, 12.01.2012 11:06
   sanırım 2 adet text box var bi tanesi multiline özelliği açık durumda. butona basınca fonksiyonları çalıştırıcaz fonksiyonların 1. giriş değeri texbox1 en ikincisi textbox2 den olucak

   16furkan16, 17.01.2012 22:16
   alttaki adreste örnek kod var bütün diller için örnek hazırlamışlar
http://www.cmfcell.com/tr/Cozumler/developers/

   CyRus, 18.01.2012 15:43
   Sadece Kod Var, Anlatım Yok, Ne Ekliycez, Nereye nE Yazıcaz Lütfen Açıklarmısın?

   Optimist, 11.05.2012 13:36
   copy-paste in en güzel örneklrinden biri

   archon, 10.01.2013 13:44
   Arkadaşlar eksikleri bulup uğraşmanız sizin adınıza yararlı olacaktır.Kopyala yapıştır mantığıyla hiç bir yere varamazsınız...

   scamci, 26.02.2015 15:11
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin