0

ユーザーが txtlocal API を介して SMS を送信できる小さなユーティリティを作成したいと考えています。VB.net の txtlocal オファー コード スニペット。簡単なフォームを作成してコードをコピーして貼り付けるだけで、クレジット残高チェック機能は正常に機能しますが、Win フォームを介した SMS の送信が機能しません。ここにコードスニペットがあります -

txtlocal からのコード スニペット -

Private Function SendSMS_txtLocal(ByVal Test As Boolean, _
ByVal From As String, _
ByVal Message As String, _
ByVal SendTo As String, _
ByVal URL As String) As String
    ' Send a message using the txtLocal transport
    Const TransportURL As String ="http://www.txtlocal.com/sendsmspost.php"
    Const TransportUserNameAs String ="me@myemail.com"
    Const TransportPasswordAs String ="mypassword"
    Const TransportVerboseAs Boolean =True
    Dim strPost As String
    ' Build POST String
    strPost = "uname=" + TransportUserName _
    + "&pword=" + TransportPassword _
    + "&message=" + System.Web.HttpUtility.UrlEncode(Message) _
    + "&from=" + From _
    + "&selectednums=" + SendTo
    If URL  "" Then
        strPost += "&url=" + URL
    End If
    If Test = True Then
        strPost += "&test=1"
    End If
    If TransportVerbose =True Then
        strPost += "&info=1"
    End If
    ' Create POST
    Dim request As WebRequest = WebRequest.Create(TransportURL)
    request.Method = "POST"
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(strPost)
    request.ContentType = "application/x-www-form-urlencoded"
    request.ContentLength = byteArray.Length
    Dim dataStream As Stream = request.GetRequestStream()
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()
    ' Get the response.
    Dim response As WebResponse = request.GetResponse()
    dataStream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    Dim responseFromServerAs String = reader.ReadToEnd()
    ' Clean upthe streams.
    reader.Close()
    dataStream.Close()
    response.Close()
    ' Return result to calling function
    If responseFromServer.Length > 0 Then
        Return responseFromServer
    Else
        Return CType(response, HttpWebResponse).StatusDescription
    End If
End Function

そして、私はこのように関数を呼び出します -

SendSMS_txtLocal(0, TextBox1.Text, TextBox2.Text, TextBox3.Text, "http://www.txtlocal.com/sendsmspost.php")

そして、ここに私のフォームデザインがあります -

ここに画像の説明を入力

提案してください - コードの何が問題なのですか..

感謝をこめて

4

1 に答える 1

0

見た目では、関数の呼び出しが間違っています。試す：

SendSMS_txtLocal(0, TextBox1.Text, TextBox2.Text, TextBox3.Text, "??")

追加している URL は URL として使用されていません。送信してtxtlocalいる情報の文字列で送信されています。その目的や目的がわからない場合は、彼らの Web サイトを読んでください。

于 2015-04-24T09:29:04.247 に答える