[Yardım]  VB ile Yazılmış Fonksiyonu VBA'ya çevirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

VB ile Yazılmış Fonksiyonu VBA'ya çevirme

İleti#1)  kanakan52 » 06 Nis 2021 13:33

Merhaba Değerli üstadlar,

VB ile yazılmış aşağıdaki kodu, excelde çalışacak şekilde VBA' ya çevirme konusunda yardım rica ediyorum.

Kod: Tümünü seç
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim a As String
       Dim gelen
       a = "<?xml version='1.0' encoding='iso-8859-9'?>
       <mainbody>
       <company dil='TR'>Netgsm</company> 
           <header>         
               <usercode>KullaniciAdi</usercode>
               <password>Sifre</password>
               <type>1:n</type>
               <msgheader>Baslik</msgheader>
           </header>
           <body>
               <msg>
                   <![CDATA[Mesaj Metnim]]>
               </msg>
               <no>051212312312</no>
               <no>051212312312</no>
           </body>
       </mainbody>"
       gelen = WRequest("https://api.netgsm.com.tr/sms/send/xml", "POST", a)
       MsgBox(gelen)

   End Sub

Function WRequest(ByVal URL As String, ByVal method As String, ByVal POSTdata As String) As String
       Dim responseData As String = ""

       Try
           Dim hwrequest As Net.HttpWebRequest = Net.WebRequest.Create(URL)
           hwrequest.Accept = "*/*"
           hwrequest.AllowAutoRedirect = True
           hwrequest.UserAgent = "http_requester/0.1"
           hwrequest.Timeout = 60000
           hwrequest.Method = method

           If hwrequest.Method = "POST" Then
               hwrequest.ContentType = "application/x-www-form-urlencoded"

               Dim postByteArray As Byte() = New System.Text.UTF8Encoding(True).GetBytes(POSTdata)
               ' Dim encoding As New Text.ASCIIEncoding() 'Use UTF8Encoding for XML requests
               ' Dim postByteArray() As Byte = encoding.GetBytes(POSTdata)
               hwrequest.ContentLength = postByteArray.Length

               Dim postStream As IO.Stream = hwrequest.GetRequestStream()
               postStream.Write(postByteArray, 0, postByteArray.Length)
               postStream.Close()

           End If

           Dim hwresponse As Net.HttpWebResponse = hwrequest.GetResponse()
           If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
               Dim responseStream As IO.StreamReader = New IO.StreamReader(hwresponse.GetResponseStream())
               responseData = responseStream.ReadToEnd()
           End If

           hwresponse.Close()
       Catch e As Exception
           responseData = "An error occurred: " & e.Message
       End Try
       Return responseData

   End Function


Şimdiden teşekkür ederim.
Kullanıcı avatarı
kanakan52
Site Dostu
 
Adı Soyadı:Ümit AKBULUT
Kayıt: 15 May 2013 15:56
Konum: TÜRKİYE
Meslek: muhasebe
Yaş: 38
İleti: 519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ORDU

Cevap: VB ile Yazılmış Fonksiyonu VBA'ya çevirme

İleti#2)  Ozan İLGÜN » 07 Nis 2021 13:01

Bu kodlar vb.net kodları mı. Aşağı da bir deneme yaptım ama kullanıcı adı şifre bilgileri olmadığı için emin olamadım 70 değeri döndürdü. Deneyip cevabı bildirirseniz sevinirim.
Kod: Tümünü seç


Function WRequest(ByVal URL As String, ByVal method As String, ByVal POSTdata As String) As String
       Dim responseData As String
       responseData = ""

       
           Set HttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    HttpRequest.Open method, URL
    HttpRequest.Send
    WRequest = HttpRequest.ResponseText
           

         
           
       

   End Function

Private Sub UserForm_Activate()
Dim a As String
       Dim gelen
       a = "<?xml version='1.0' encoding='iso-8859-9'?>"
       a = a & "<mainbody>"
       a = a & "<company dil='TR'>Netgsm</company>"
           a = a & "<header>"
               a = a & "<usercode>KullaniciAdi</usercode>"
               a = a & "<password>Sifre</password>"
               a = a & "<type>1:n</type>"
               a = a & "<msgheader>Baslik</msgheader>"
           a = a & "</header>"
           a = a & "<body>"
               a = a & "<msg>"
                   a = a & "<![CDATA[Mesaj Metnim]]>"
               a = a & "</msg>"
               a = a & "<no>051212312312</no>"
               a = a & "<no>051212312312</no>"
           a = a & "</body>"
       a = a & "</mainbody>"
       gelen = WRequest("https://api.netgsm.com.tr/sms/send/xml", "POST", a)
       MsgBox (gelen)
End Sub

ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 35
İleti: 3045
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe