使用VB.net發送收到的SMS

Question

嗨，我有一個完全運行的SMS應用程序，它執行2種發送和接收過程。 我現在正在發送接收的SMS。 我會向您保證我會收到短信，所以請只顯示拆分部分的代碼。

        '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”，則pass，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出現在消息框中，但是即使它們完全相同，也不會通過。 請幫助我，我只需要所需的代碼，謝謝

Answer 1

更改

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

至

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

還有為什么在比較STRINGS時使用=？ 嘗試這個：

If pass2.equals(pass1) Then