teşekkürler @DrEgHoT bulmuştum rnek kodları

http://www.cenksari.com/Yazi/AspNet-Sanal-pos-entegrasyonu-Epayment.aspx burada vb ile yapmış çalışır mı bilmem :) biraz araştırırsan c# ile de bulursun. - xx yerde hata var. - ya aslında kod şyle sanıyor olabilir bla bla bla - olm kendine gel kodlar düşünmez - ...

garanti hariç 5 tane bankanın sanal pos rneği var bende asp. net c# ile yapılmış şuan iş yerindeyim akşama eve gidince gnderebilirim istersen.

Kodlar burda arkadaşlar. Belki elinizde direk asp. net c# halide vardır. paylaşırsanız çok makbule geçecek. <% Uyisno="xxxxxxx" Sifre="xxxxxx" ClientId="xxxxxxx" Dim sayi, sayi2 Randomize sayi = int((Rnd 9999999999 )+1 ) Randomize sayi2 = int((Rnd 9999999999 )+1 ) d="HZLSPRS-" & sayi & " - " & sayi2 Set SrvHTTPS = Server. CreateObject("MSXML2. ServerXMLHTTP") Set XMLSend = Server. CreateObject("MSXML2. DOMDocument") Set XMLReceive = Server. CreateObject("MSXML2. DOMDocument") Set sendroot = XMLSend. createElement("CC5Request") Set e1 = XMLSend. createElement e1. text= Uyisno sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= Sifre sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= ClientId sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= "P" sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text=d sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= "Auth" sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= KART_NO 'KREDİ KARTI NUMARASI sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= KART_AY & "/" & KART_YIL'KREDİ KARTI AY YIL 'Request. Form & "/" & Request. Form //MM YY formatinda son kullanma tarihi sendroot. appendChild(e1) Set e1 = XMLSend. createElement("Cvv2Val") e1. text= KART_CV2'KREDİ KARTI CVC NUMARASI sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= CEKILECEK_TUTAR 'ÇEKİLECEK TUTAR rn : 85 - 95 - 150 gibi sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= "949" sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= Request. Form sendroot. appendChild(e1) Set e1 = XMLSend. createElement e1. text= lCase(Request. Form sendroot. appendChild(e1) ' Set sendbillto = XMLSend. createElement Set b1 = XMLSend. createElement b1. text=KART_SAHIBI'KREDİ KARTI SAHİBİ sendbillto. appendChild(b1) Set b1 = XMLSend. createElement("Street2") b1. text= "IP = "&Request. ServerVariables sendbillto. appendChild(b1) Set b1 = XMLSend. createElement("Street3") b1. text= "IP = "&Request. ServerVariables sendbillto. appendChild(b1) Set b1 = XMLSend. createElement b1. text= Request. Form("CC_ADR3") sendbillto. appendChild(b1) Set b1 = XMLSend. createElement b1. text= Request. Form sendbillto. appendChild(b1) sendroot. appendChild XMLSend. documentElement=sendroot XMLSend. async = false XMLSend. resolveExternals = false SrvHTTPS. open "POST","https://www.sanalakpos.com/servlet/cc5ApiServer", false SrvHTTPS. setRequestHeader "Content-Type","application/x-www-form-urlencoded" SrvHTTPS. send "DATA="+XMLSend. xml Set XMLReceive = SrvHTTPS. responseXML res = XMLReceive. selectSingleNode("/CC5Response/Response"). text ErrorMsg = XMLReceive. selectSingleNode("/CC5Response/ErrMsg"). text SONUCUN=res HATADETAYI=ErrorMsg If trim ="Approved" then 'İŞLEM ONAYLANDI end if %>

http://msdn.microsoft.com/en-us/library/dddsc60w(VS.71).aspx iyi okumalar ^_^ http://www.netcoole.com/asp2aspx.htm

aldım ordaki rnek kodları çalışırsa vb çevirmesi kolay en azından alttaki gibi bir site var :) http://www.developerfusion.com/tools/convert/csharp-to-vb/