Question

我想通过我的way2sms帐户从vb .net应用程序发送免费短信。如果可能的话，请给我一步一步的说明如何实现。

Answer 1

尝试这样的事情

Protected Sub btn_Click(sender As Object, e As EventArgs)
Try

    send("way2sms_userid", "way2sms_password", txtxmsg.Text, txtphn.Text)
    Response.Write("message send successfully......")
Catch
    Response.Write("Error Occured!!!")
End Try
End Sub

Public Sub send(uid As String, password As String, message As String, no As String)
Dim myReq As HttpWebRequest = DirectCast(WebRequest.Create("http://ubaid.tk/sms/sms.aspx?uid=" & uid & "&pwd=" & password & "&msg=" & message & "&phone=" & no & "&provider=way2sms"), HttpWebRequest)
Dim myResp As HttpWebResponse = DirectCast(myReq.GetResponse(), HttpWebResponse)
Dim respStreamReader As New System.IO.StreamReader(myResp.GetResponseStream())
Dim responseString As String = respStreamReader.ReadToEnd()
respStreamReader.Close()
myResp.Close()
End Sub

如何从vb .net应用程序发送免费短信？

1 个答案: