Aradığınız içerik sitemizde mevcut durumdadır
buradan sitemize dönebilirsiniz !
Forum Başlıklarına gitmek için tıklayınız
Asp ile SMS gönderme mantığı
Güncel bir kod örnegi olan sms gönderme betiði;
Asp ile ilgilenen arkadaþlar bilirler asp, componetlerden oluþmaktadýr.
Yani her uygulama için genellikle özel componentler çaðrýlýr.
Örnegin basit bir email gönderiminde bile componet caðýrýmý yapýlýr.(CDONTS.NewMail , Persits.MailSender,ASPEMAIL,JMAIL vb...)
Sms göndermekte ayný þekilde yani iki tür componentle gerçekleþmektedir.
Asp bilenler zaten bunlarýn hangi component olduðunu bilirler.
Bunlar genellikle windows sunucularýnda yüklüdür.
Kod:
(
SOFTWING.AspTear
MSXML2.ServerXMLHTTP
MSXML2.ServerXMLHTTP.3.0
MSXML2.ServerXMLHTTP
AspNNTP.Conn
AspHTTP.Conn
xmlHTTP.Conn
)
Bu componetlerden hepsi olmasa bile bir çogu her sunucuda yüklüdür.
Birde özel componentler vardýr.
Bunlar
Kod:
(
ASPSMS.Booster
Xmlsms.Foolt
Aspsms
)
gibi maliyetli özel componentler vardýr.
Bunlarý satýn aldýgýnýzda kodlarý ile beraber verildiði için deðinmeme gerek yok
Gelelim bizim componentlere, componetler arasýnda iþlemi hýzlý yapan ve sunucuda iþlemciyi az kullananlar genellikle sunuculara yüklenir.
* component = com. 'kýsaltalým degilmi
Sms göndermenin mantýðý genelde elimizdeki datalarý hedef servera göndererek serverdan cevap almaktýr genel olarak.
Pratikte ise örnek kod ===>
- Sms göndermek için öncelike gerekli com.'te baglantý yapýlýr.
- Daha sonra hedef url yazýlýr.
- bilgiler url ile birleþtirilir.
- bir kaç tanýmlama yapýlýr.
- Referer sayfasý belirlenir.
- ve karþý sayfadan cevap alýnýrak yönlendirme yapýlýr.
Kod:
<%
no=request.querystring(no)
Set ekren_baglan = Server.CreateObject(AspNNTP.Conn)
ekren_baglan.Url = http://localhost/gonder.asp 'hedef url
ekren_baglan.PostData =cepno=&no 'datalar
ekren_baglan.RequestMethod = POST 'Get olabilir.
ekren_baglan.AddExtraHeader (Referer: http://localhost/sms.html ) 'referer sayfasý
ekren_baglan.UserAgent = Mozilla Compatible (MS IE 6.01 WinXP)
strResult = ekren_baglan.getsurl
if instr(strResult,okey_gitti)>0 then
Response.write(sms gitmiþtir.)
else
Response.write(Sms gitmemiþtir.)
end if
set ekren_baglan=Nothing
%>
Aslýnda bu kodu bulmanýz biraz zordur. Çünkü kolay kolay kimse yayýnlamak istemez.
Bu sistem daha önce 3eclub.com web portalýnda kullanýldý.
Ve hiçbir sorun yaþanmadý. 20 Milyon sms gönderildi bu kod ile...
Kod tamam ama sunucu nerede derseniz...
Biraz iþ zorlaþýyor kodu buldunuz ama server bulmanýz lazým...
Bunuda artýk sizlere býrakýyorum belki sonraki makalelerimde sms server adresleri de verebilirim.
Ama hem araþtýrýn hem de yeni sunucular bulun
Örnek ise (1rstwap.com,a1.net,vizzavi.gr,boltblue.com,sms.ac ,aycell.com.tr,aria.com.tr,turkcell.com.tr,telsim. com.tr)
Hosting Sponsorumuz - Noktahost internet hizmetleri