Konu: cep telefonuna sms gönderme
Selamlar;
Bildiğiniz gibi web üzerinden veya bazı uygulamalarla toplu sms gönderme hizmetleri vermekteler.
Acaba bu işlemi vfp 8 veya 9 üzeründen dll veya başka bir yol ile yapmak mümkünmü?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Web Uygulamaları » cep telefonuna sms gönderme
Selamlar;
Bildiğiniz gibi web üzerinden veya bazı uygulamalarla toplu sms gönderme hizmetleri vermekteler.
Acaba bu işlemi vfp 8 veya 9 üzeründen dll veya başka bir yol ile yapmak mümkünmü?
www.sonsurat.net sql server la birlikte dbf tablo yapısını destekliyor. Sistem windows servisi olarak arka planda çalışırken sms tablosu olarak verdiğin dbf dosyasını kontrol ediyor. Bu yöntemle aylık 200 bin civarında SMS gönderiyoruz. bir problem çıkmadı.
selamlar;
----------
http://secure.smsnext.com/developer/bul … oupsms.asp
<?xml version="1.0" encoding="ISO-8859-9"?>
<MainmsgBody xmlns:sql='urn:schemas-microsoft-com:xml-sql' xmlns:updg='urn:schemas-microsoft-com:xml-updategram'>
<UserName>test</UserName>
<PassWord> C6BC82EF-A80A-4905-B2A1-0B9F6311A26C</PassWord>
<Developer>1521</Developer>
<Originator>TEST</Originator >
<Version>xVer.2.0</Version>
<Mesgbody>test mesajıdır</Mesgbody>
<Numbers>905552683537, 905552683535, 905552455443</Numbers>
<SDate></SDate>
<EDate></EDate>
</MainmsgBody>
-------
yukarıda yazılı xml i link e POST etmem gerekiyormuş bunu nasıl yapabilirim?
smsnext firmasının gönderidği dökünanın tamımı sanırım yardımcı olur.
http://www.mrduyar.com/SmsNexT_SMS.doc
Şimdiden teşekkürler.
selamlar;
----------
http://secure.smsnext.com/developer/bul … oupsms.asp<?xml version="1.0" encoding="ISO-8859-9"?>
<MainmsgBody xmlns:sql='urn:schemas-microsoft-com:xml-sql' xmlns:updg='urn:schemas-microsoft-com:xml-updategram'>
<UserName>test</UserName>
<PassWord> C6BC82EF-A80A-4905-B2A1-0B9F6311A26C</PassWord>
<Developer>1521</Developer>
<Originator>TEST</Originator >
<Version>xVer.2.0</Version>
<Mesgbody>test mesajıdır</Mesgbody>
<Numbers>905552683537, 905552683535, 905552455443</Numbers>
<SDate></SDate>
<EDate></EDate>
</MainmsgBody>
-------yukarıda yazılı xml i link e POST etmem gerekiyormuş bunu nasıl yapabilirim?
smsnext firmasının gönderidği dökünanın tamımı sanırım yardımcı olur.
http://www.mrduyar.com/SmsNexT_SMS.docŞimdiden teşekkürler.
kendi calisan ornegim , xml icerigini sana uydurdum
local lcXMLFile
lcXmlFile [ <?xml version="1.0" encoding="ISO-8859-9"?> ]+;
[ <MainmsgBody xmlns:sql='urn:schemas-microsoft-com:xml-sql' ] +;
[ xmlns:updg='urn:schemas-microsoft-com:xml-updategram'> ]+;
[ <UserName>test</UserName> ]+;
[ <PassWord> C6BC82EF-A80A-4905-B2A1-0B9F6311A26C</PassWord> ]+;
[ <Developer>1521</Developer> ]+;
[ <Originator>TEST</Originator > ]+;
[ <Version>xVer.2.0</Version> ]+;
[ <Mesgbody>test mesajıdır</Mesgbody> ]+;
[ <Numbers>905552683537, 905552683535, 905552455443</Numbers> ]+;
[ <SDate></SDate> ]+;
[ <EDate></EDate> ]+;
[ </MainmsgBody> ]
Local lcSingleXml,lcURL
lcSingleXml="chba_single.xml"
Strtofile(m.LcXMLFile,m.lcSingleXml)
lcUrl = [ [url]http://secure.smsnext.com/developer/bulksmsv2/sendgroupsms.asp[/url] ]
httpOb = Createobject("MSXML2.ServerXMLHTTP")
httpOb.Open([POST], m.LcUrl, .F.)
httpOb.setRequestHeader("Content-Type","text/xml")
httpOb.Send(m.LcXMLFile)
? httpOb.responseText && sonuc gonderim raporu
lcXmlFile =[ <?xml version="1.0" encoding="ISO-8859-9"?> ]+;
[ <MainmsgBody xmlns:sql='urn:schemas-microsoft-com:xml-sql' ] +;
[ xmlns:updg='urn:schemas-microsoft-com:xml-updategram'> ]+;
[ <UserName>0600607301</UserName> ]+;
[ <PassWord>testsifre</PassWord> ]+;
[ <Developer>1521</Developer> ]+;
[ <Originator>TEST</Originator > ]+;
[ <Version>xVer.2.0</Version> ]+;
[ <Mesgbody>test mesajıdır</Mesgbody> ]+;
[ <Numbers>905336010099</Numbers> ]+;
[ <SDate></SDate> ]+;
[ <EDate></EDate> ]+;
[ </MainmsgBody> ]
Local lcSingleXml,lcURL
lcSingleXml="chba_single.xml"
Strtofile(m.lcXmlFile,m.lcSingleXml)
lcURL = "http://secure.smsnext.com/developer/bul … oupsms.asp"
httpOb = Createobject("MSXML2.ServerXMLHTTP")
httpOb.Open("POST", m.lcURL, .F.)
httpOb.setRequestHeader("Content-Type","text/xml")
httpOb.Send(lcXmlFile)
? httpOb.responseText && sonuc gonderim raporu
<PassWord>testsifre</PassWord> testsifre nin "Xml paketinde password alanında kullanılacak GUID" olması gerekiyor. bunu nasıl "C6BC82EF-A80A-4905-B2A1-0B9F6311A26C" şeklinde yapabilirim.
Local lcguid
lcguid=Substr(guid(),2,36)
&&Wait Window lcguid && C6BC82EF-A80A-4905-B2A1-0B9F6311A26C
Function guid()
Local pGUID,rGUID
Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid
Declare Integer StringFromGUID2 In 'Ole32.dll' ;
STRING rguid, String @lpsz, Integer cchMax
pGUID=Replicate(Chr(0),16)
rGUID=Replicate(Chr(0),80)
Return Iif(Inlist(UuidCreate(@pGUID),0,1824),;
IIF(StringFromGUID2(pGUID,@rGUID,40) # 0, ;
STRCONV(Left(rGUID,76),6), ""),"")
Endfunc
selamlar
bu kodu anlayamadım "testsifre" bir text şifreyi nasıl guid formatına çevireceğim.
Teşekkürler sorunu çözdüm.
fox4um » Web Uygulamaları » cep telefonuna sms gönderme