Merhaba Arkadaşlar. Takıldığım bir husus oldu. Yardımcı olurmusunuz.
Private Sub HttpClient_Example()
Dim httpCl As HttpClient
Dim xml As String
Dim response As String
Set httpCl = New HttpClient
httpCl.URL = "http://127.0.0.1:8080/SMS-Web/xmlsms"
xml = "<?xml version=""1.0"" encoding=""iso-8859-9"" ?><message-context type=""mmmgsd""><username>ibbvethiz34</username><password>261188</password><outbox-name>IBBVETERINR</outbox-name>" + _
"<message><message-sequence>1</message-sequence><message-id>2345590</message-id><message-date>03112006153338</message-date><sender-gsm>905054436483</sender-gsm><message-body>Smart</message-body></message><message><message-sequence>2</message-sequence><message-id>2345642</message-id><message-date>03112006154150</message-date><sender-gsm>905555765386</sender-gsm><message-body>Smart nk</message-body></message><message><message-sequence>3</message-sequence><message-id>2345643</message-id><message-date>03112006154217</message-date><sender-gsm>905054436483</sender-gsm><message-body>Smart tert</message-body></message><message><message-sequence>4</message-sequence><message-id>2346742</message-id><message-date>03112006183541</message-date><sender-gsm>905054436483</sender-gsm><message-body>Smart test</message-body></message></message-context>"
httpCl.ContentType = "text/xml"
httpCl.connectAndPostData (xml)
response = httpCl.ResponseAndDisconnect
Text1.Text = xml
Text2.Text = response
End Sub
Private Sub Command1_Click()
Dim cr2 As SmsToMany
Dim numbers() As String
Dim response As ResponseFromBiotekno
Dim preparedMessage As String
Set cr2 = New SmsToMany
Set response = New ResponseFromBiotekno
cr2.SmsBase_Username = "**********"
cr2.SmsBase_Password = "*********" '* işareti ile olan alanlar kullanıcı bilgileridir.
cr2.SmsBase_Originator = "*********"
cr2.Text = "DENEME SMS"
cr2.MessageType = "0"
'---------------------------------------------------------------------------------------------------
'numbers() = Text1.Text Kodu bu şekilde yapınca olmuyor.
numbers() = Split("905054436***", ";") Kodu bu şekilde yapınca sorunsuz çalışıyor
'--------------------------------------------------------------------------------------------------------------
cr2.GsmNumbers = numbers
'istek gönder
Set response = cr2.sendMessage
Text3.Text = cr2.SmsBase_XmlToSend
Text4.Text = response.Code + " - " + response.Message
End Sub
'-------------------------------------------------------------------------------------------
formda 4 adet text var ve bir tanede command button.
'numbers() = Text1.Text Kodu bu şekilde yapınca olmuyor.