Отправка полученных сообщений с использованием VB.net

Привет, у меня есть полностью запущенное приложение SMS, которое выполняет двухсторонний процесс отправки и получения. Теперь я являюсь частью отправки полученных SMS-сообщений. Я просто заверить, что я получаю SMS так плохо, просто показываю коды разделяющей части.Отправка полученных сообщений с использованием VB.net

 'Split parts of the Message Received by "_" 
    Dim textmess As String() = Message.Split("_") 
    Dim pass As String = textmess(0) 
    Dim txt As String = textmess(1) 
    Dim recipients As String = textmess(2)

Там я использовал функцию split, чтобы вырезать сообщение на 3 части. Если в сообщении указано «abc_123_432», то пропуск, txt, получатели будут иметь abc, 123,432 соответственно, но разделены.

  'Verify Number for Authorization 
    myr.Close() 
    mycom.Connection = cn 
    mycom.CommandText = "Select MobileNum,Name,UserName,Password,Position from tbl_user where MobileNum='" & Number1 & "'" 
    myr = mycom.ExecuteReader() 
    If myr.Read Then 
     Dim num As String = myr(0).ToString 
     Dim name As String = myr(1).ToString 
     Dim user As String = myr(2).ToString 
     Dim pass2 As String = myr(3).ToString 
     Dim post As String = myr(4).ToString 

     If num = Number1 Then 
      myr.Close() 
      mycom.CommandText = "Insert into tbl_inbox(message,received_date,sender) values ('" & Message & "','" & DateAndTime.Now.ToString & "','" & name & "');" 
      myr = mycom.ExecuteReader 
      myr.Close()

Я просто хочу, чтобы указать, что, когда я послал SMS с моим приложением, он превосходит эту часть, потому что, когда я проверил мой почтовый ящик стола, он показывает правильное сообщение, которое я послал. На следующих кодах я не знал, где там пошло не так.

If pass2 = pass1 Then 
       mycom.CommandText = "Insert into tbl_activity(UserName,Activity,CDate) values ('" & user & "','Send SMS to System','" & DateAndTime.Now.ToString & "');" 
       myr = mycom.ExecuteReader 

       Form1.txtnumber.Text = recipients 
       Form1.txtmessage.Text = txt 
       Form1.btnSend.PerformClick() 

      Else 
       MessageBox.Show(pass1) 
       MessageBox.Show(txt) 
       MessageBox.Show(recipients) 
      End If 

     End If 
     End If 
     myr.Close() 
    End If

Я также попытался сделать pass1 и pass2 появляются в MessageBox, прежде чем сравнивать, но все же оно не проходит через хотя они точно thesame. Пожалуйста, помогите мне, ребята, я просто нужен необходимый код Как можно скорее, благодаря

источник

2015-03-27 Ako Ci Divine

Изменить

Dim textmess As String() = Message.Split("_")

Dim textmess As String() = Split(Message,"_")

также почему вы используете = при сравнении строк ??? Попробуйте следующее:

If pass2.equals(pass1) Then

источник

2015-03-28 01:51:50 Dancho

Отправка полученных сообщений с использованием VB.net

ответ

Смежные вопросы