Question

您好我有一个完全运行的短信应用程序，它执行发送和接收的双向过程。我现在发送收到的短信。我只是保证我收到短信，所以只是显示分裂部分的代码。

        '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)

我使用拆分功能将消息分成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()

我只想指定当我向我的应用程序发送短信时，它超过了这部分，因为当我检查我的收件箱表时，它会显示我发送的正确消息。在下面的代码中，我不知道那里出了什么问题。

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

使用VB.net发送收到的短信

1 个答案: