PDA

View Full Version : Help with VB to VBA



gonen
04-29-2013, 06:41 AM
Hello

I have this piece of code in VB

it is sample API .


I need to run it in VBA

can someone help in translating it ?
most of the code is compatible...

I have problems with the bold lines

thank you very much for your help

=======================================================
VB example
Important: need to add reference to System.Web.dll
'set password, user name, message text, semder name and number
Dim userName As String = "UserName"
Dim password As String = "UserPassword"
Dim messageText As String = System.Security.SecurityElement.Escape("Message text")
Dim senderName As String = "MySender"
Dim senderNumber As String = "1111"
Dim messageInterval As Integer = 0
'set phone numbers
Dim phonesList As String = "0503333333;0503333334;0503333335;0503333336;0503333337"
'set additional parameters
Dim timeToSend As String = "02/12/2008 15:30"
' create XML
Dim sbXml As New Text.StringBuilder()
sbXml.Append("<Inforu>")
sbXml.Append("<User>")
sbXml.Append("<Username>" & userName & "</Username>")
sbXml.Append("<Password>" & password & "</Password>")
sbXml.Append("</User>")
sbXml.Append("<Content Type=""sms"">")
sbXml.Append("<Message>" & messageText & "</Message>")
sbXml.Append("</Content>")
sbXml.Append("<Recipients>")
sbXml.Append("<PhoneNumber>" & phonesList & "</PhoneNumber>")
sbXml.Append("</Recipients>")
sbXml.Append("<Settings>")
sbXml.Append("<SenderName>" & senderName & "</SenderName>")
sbXml.Append("<SenderNumber>" & senderNumber & "</SenderNumber>")
sbXml.Append("<MessageInterval>" & messageInterval & "</MessageInterval>")
sbXml.Append("<TimeToSend>" & timeToSend & "</TimeToSend>")
sbXml.Append("</Settings>")
sbXml.Append("</Inforu >")
Dim strXML As String = System.Web.HttpUtility.UrlEncode(sbXml.ToString(), System.Text.Encoding.UTF8)
Dim result As String = PostDataToURL("http://aaa.bbb.com/SendMessageXml.ashx", "InforuXML=" &
strXML)

Private Function PostDataToURL(ByVal szUrl As String, ByVal szData As String) As String
'Setup the web request
Dim szResult As String = String.Empty
Dim Request As Net.HttpWebRequest
Request = CType(System.Net.WebRequest.Create(szUrl), System.Net.HttpWebRequest)
Request.Timeout = 30000
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
'Set the POST data in a buffer
end function