Kodu neden kabul etmiyor

Başlatan isikyasar, 15 Temmuz 2014, 14:15:36

isikyasar

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.