PDA

Orijinalini görmek için tıklayınız : Asp İle Sms Gönderme



Rhy
15.Şubat.2014, 13:17
Asp ile Sms Gönderme

Güncel bir kod örnegi olan sms gönderme beti?i;

Asp ile ilgilenen arkada?lar bilirler asphttp://www.forumuz.net/images/digersmileyler/virgul.gif 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 http://www.forumuz.net/images/digersmileyler/virgul.gif Persits.MailSenderhttp://www.forumuz.net/images/digersmileyler/virgul.gifASPEMAILhttp://www.forumuz.net/images/digersmileyler/virgul.gifJMAIL vbhttp://www.forumuz.net/images/digersmileyler/nokta.gif.)

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 componentlerehttp://www.forumuz.net/images/digersmileyler/virgul.gif 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 http://www.kolobok.us/smiles/icq/cool.gif>

- 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 (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 (http://localhost/sms.html)) 'referer sayfası
ekren_baglan.UserAgent = Mozilla Compatible (MS IE 6.01 WinXP)
strResult = ekren_baglan.getsurl
if instr(strResulthttp://www.forumuz.net/images/digersmileyler/virgul.gifokey_gitti)>0 then
Response.write(sms gitmi?tir.)
else
Response.write(Sms gitmemi?tir.)
end if
set ekren_baglan=Nothing
%>

Alıntıdır ve yasak olduğunu unutmayalım!