Кто может сможет сделать ? Автоматическую оплату счетов

S7
На сайте с 09.04.2007
Offline
0
728

Кто может сможет сделать ? Автоматическую оплату счетов дл провадера спутникового интернета PlanetSky

Может кто уже делал подобное ?

на веб манях есть подобные сервисы только скрипь для запроса логина с паролем все равно нужен...

S7
На сайте с 09.04.2007
Offline
0
#1

что некто не делал что ли?

ïðèìåð âûçîâà èíòåðôåéñà áåç ôîðìèðîâàíèÿ ïîäïèñè (IIS, ASP, VBScript)

<%@ LANGUAGE="VBSCRIPT"%>

<%

wmid = ""

passportwmid = "464889785562"

planstr = ""

signstr = ""

Set WinHttpReq = Server.CreateObject("WinHttp.WinHttpRequest.5")

WinHttpReq.open "POST", "https://passport.webmoney.ru/asp/XMLGetWMPassport.asp", 0

s= "<request>"

s=s+"<wmid>"+wmid+"</wmid>"

s=s+"<sign>"+signstr+"</sign>"

s=s+"<passportwmid>"+passportwmid+"</passportwmid>"

s=s+"<params>"

s=s+"<dict>1</dict>"

s=s+"<info></info>"

s=s+"<mode></mode>"

s=s+"</params>"

s=s+"</request>"

WinHttpReq.send s

Response.Write WinHttpReq.ResponseText

Set WinHttpReq = Nothing

%>

&#239;&#240;&#232;&#236;&#229;&#240; &#226;&#251;&#231;&#238;&#226;&#224; &#232;&#237;&#242;&#229;&#240;&#244;&#229;&#233;&#241;&#224; &#241; &#244;&#238;&#240;&#236;&#232;&#240;&#238;&#226;&#224;&#237;&#232;&#229;&#236; &#239;&#238;&#228;&#239;&#232;&#241;&#232; (IIS, ASP, VBScript)

<%@ LANGUAGE="VBSCRIPT"%>

<%

Set WinHttpReq = Server.CreateObject("WinHttp.WinHttpRequest.5")

wmid = "111111111111"

passportwmid = "464889785562"

planstr = wmid + passportwmid

Set Signer = Server.CreateObject("WMSignerX.Signer")

Signer.Login = wmid

Signer.Passwd = "XXX"

Signer.KeyFName = "X:\test.kwm"

signstr = Signer.SignString(planstr)

WinHttpReq.open "POST", "https://passport.webmoney.ru/asp/XMLGetWMPassport.asp", 0

s= "<request>"

s=s+"<wmid>"+wmid+"</wmid>"

s=s+"<sign>"+signstr+"</sign>"

s=s+"<passportwmid>"+passportwmid+"</passportwmid>"

s=s+"<params>"

s=s+"<dict>1</dict>"

s=s+"<info></info>"

s=s+"<mode></mode>"

s=s+"</params>"

s=s+"</request>"

WinHttpReq.send s

Response.Write WinHttpReq.ResponseText

Set Signer = Nothing

Set WinHttpReq = Nothing

%>

http://www.webmoney.ru/rus/developers/interfaces/index.shtml может это кому то поможет..

[Удален]
#2

Это не то..☝

Evil1
На сайте с 25.02.2007
Offline
103
#3

Можно организовать через готовый сервис недорого icq 6662265

Разработка Интернет-магазинов под ключ от 133уе (/ru/forum/845497)

Авторизуйтесь или зарегистрируйтесь, чтобы оставить комментарий